Hallo VBA Experten,
ich möchte per VBA den Dateinamen in den Titel von Worddokumenten und Exceltabellen schreiben.
Für Word habe ich eine Lösung gefunden, aber weiß nicht, wie ich sich sie ändern muss, damit sie auch in allen Unterordnern funktioniert.
Sub ChangeTitles()
Dim Directory As String
Dim FType As String
Dim FName As String
Dim sTitle As String
Dim sFiles(250) As String
Dim iFiles As Integer
Dim J As Integer
Directory = „E:\Pfad“
FType = "*.docx"
sTitle = FName
' Get names of documents
iFiles = 0
FName = Dir(Directory & FType)
While FName <> ""
iFiles = iFiles + 1
sFiles(iFiles) = FName
FName = Dir
Wend
' Process files
For J = 1 To iFiles
Documents.Open fileName:=Directory & sFiles(J)
ActiveDocument.BuiltInDocumentProperties("Title") = ActiveDocument.Name
ActiveDocument.Close wdSaveChanges
Next J
End Sub
Über euere Unterstützung würde ich mich freuen.
Viele Grüße