Office: (Office 2010) Dateiname aus Inhaltssteuerelementen erstellen

Pixxelstubser · 1. Februar 2016

Hallo Gerhard,
danke für den verweis auf Google. Die richtigen Suchworte ergeben auch den richtigen Treffer.

Hab da was gefunden und im Script eingebaut.

Code:

Sub autosave()
Dim c_Path As String
Dim dateiname As String, teil1 As String, teil2 As String
Dim strNewName As String, strTemp As String
Dim bFound As Boolean, iCount As Integer, iMax As Integer
Dim strName As String
'
c_Path = "T:\xyz\Objekt\Ausgabe\" & "\"
teil1 = ActiveDocument.SelectContentControlsByTitle("Rubrik").Item(1).Range.Text
teil2 = ActiveDocument.SelectContentControlsByTitle("Ausgabe").Item(1).Range.Text
dateiname = Year(Now) & "_" & teil2 & "_" & teil1
bFound = False: iCount = 0
'
strNewName = dateiname & "_" & Format(Date, "ddMMyyyy") 'Datum
strName = Dir(c_Path, vbDirectory) ' Ersten Eintrag abrufen.
Do While strName "" ' Schleife beginnen.
If strName "." And strName ".." Then
If InStr(1, strName, strNewName) > 0 And GetAttr(c_Path & strName) vbDirectory Then
iCount = iCount + 1
strTemp = Mid(strName, Len(strNewName) + 2, InStr(1, strName, ".doc") - Len(strNewName) - 2)
If iMax < CInt(strTemp) Then iMax = CInt(strTemp)
Debug.Print strName
End If
End If
strName = Dir ' Nächsten Eintrag abrufen.
Loop
iMax = iMax + 1
strTemp = String(2 - Len(CStr(iMax)), "0") & CStr(iMax)
strNewName = strNewName & "_" & strTemp & ".doc"
ActiveDocument.SaveAs c_Path & strNewName
MsgBox "Die Datei wurde unter folgendem Namen gespeichert:" & vbCrLf & strNewName
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert auch soweit ich es mir vorgestellt habe. Da ist aber noch ein kleiner Fehler drin - der Dateiname wird ja aus den Steuerelementen generiert, dahinter fügt er noch das Datum ein vor dem Ticker ein.

2016_02 - Februar_Standortpolitik_02022016_03.doc

Da ich aber keine Ahnung von der Scriptsprache habe weiss ich nicht wie ich die Zeile "strNewName = dateiname & "_" & Format(Date, "ddMMyyyy") 'Datum" entsprechend abändern kann oder ist da noch mehr was ich nicht sehe ??

Gruß
Pixxelstubser

Gerhard H · 1. Februar 2016

Hallo stubser,

da hast du dir ja was Kompliziertes ausgesucht. Auf die Schnelle: Lösch einfach in dieser Zeile den roten Teil raus:
Code:

strNewName = dateiname & "_" & Format(Date, "ddMMyyyy") 'Datum
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, das wars.

Pixxelstubser · 2. Februar 2016

Hallo Gerhard,
den roten Teil habe ich nach vorne gestellt und bei der Dateinamensvergabe auf den festen Wert verzichtet.

Vielleicht kannst du mir noch bei einer anderen Sache im Script weiterhelfen...

teil2 = ActiveDocument.SelectContentControlsByTitle("Ausgabe").Item(1).Range.Text

kann man auch aus dem Steuerelement den Wert des Anzeigennamens auslesen?
weil in Ausgabe steht August und im Wert steht 08 für die Dateinnamensvergabe wäre dann der Wert 08 besser

Gruß
Pixxelstubser

TomTom2010 · 3. Februar 2016

Hi,

ungetestet ...

Code:

Sub autosave()
Dim c_Path As String
Dim dateiname As String, teil1 As String, teil2 As String
Dim strNewName As String, strTemp As String
Dim bFound As Boolean, iCount As Integer, iMax As Integer
Dim strName As String
Dim oCC As ContentControl, oCCEntry As ContentControlListEntry, i As Long
'
c_Path = "T:\xyz\Objekt\Ausgabe\" & "\"
teil1 = ActiveDocument.SelectContentControlsByTitle("Rubrik").Item(1).Range.Text
Set oCC = SelectContentControlsByTitle("Ausgabe").Item(1)
For i = 1 To oCC.DropdownListEntries.Count
If oCC.DropdownListEntries.Item(i).Text = oCC.Range.Text Then
Set oCCEntry = oCC.DropdownListEntries.Item(i)
teil2 = oCCEntry.Value
Exit For
End If
Next

' ...
' ...
' ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Deklaration in lila ist dazugekommen, der Teil Set oCC ... Next ersetzt die Zeile "teil2 = ActiveDocument.SelectContentControlsByTitle("Ausgabe").Item(1).Range.Text".

Gruß
TT

Pixxelstubser · 3. Februar 2016

Geile Scheiße year funzt *boah

habe aber in der Zeile

"Set oCC = SelectContentControlsByTitle(Ausgabe).Item(1)"

noch vor SelectContent....
ActiveDocument. einfügen müssen.

" Set oCC = ActiveDocument.SelectContentControlsByTitle("Ausgabe").Item(1)"

damit hat's dann gefunzt.

Super, vielen Dank an euch alle *grins *grins

Office: (Office 2010) Dateiname aus Inhaltssteuerelementen erstellen

Dateiname aus Inhaltssteuerelementen erstellen

Dateiname aus Inhaltssteuerelementen erstellen

Dateiname aus Inhaltssteuerelementen erstellen

Dateiname aus Inhaltssteuerelementen erstellen - Similar Threads - Dateiname Inhaltssteuerelementen erstellen

Name der Datei durch Excel geändert

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Dateinamen ohne Punkt und Dateiendung ermitteln

PDF-Dateinamen aus Zellen zusammensetzen

Email Speicherung via Drag and Drop macht aus einem Punkt einen Unterstrich im Dateinamen

Dateiname splitten in vba

Sonderzeichen für Gültigen Dateinamen elemeniren