Rachel hat mehrere hundert Dokumente, in denen sie die Titeleigenschaft ändern muss. (Dies ist die Titeleigenschaft, die mit den anderen Dokumenteigenschaften beibehalten wird.) Sie fragt sich, ob es eine Möglichkeit gibt, diese Änderung in einer so großen Anzahl von Dokumenten einfach vorzunehmen.

Word verfügt nicht über eine integrierte Methode, um eine große Anzahl von Dokumenten gleichzeitig zu beeinflussen. Sie können jedoch ein Makro erstellen, um die Arbeit für Sie zu erledigen. Es ist wichtig, sich daran zu erinnern, dass Sie auf die integrierte Document Title-Eigenschaft zugreifen möchten, und dies in VBA, indem Sie mit der BuiltInDocumentProperties-Auflistung herumspielen. Beispielsweise können Sie die Title-Eigenschaft in VBA folgendermaßen ändern:

ActiveDocument.BuiltInDocumentProperties("Title") = "xyz"

Um Ihr Makro für eine große Anzahl von Dokumenten wirksam zu machen, müssen Sie lediglich die Namen der Dokumente ermitteln, die Sie beeinflussen möchten, jedes Dokument nacheinander laden, die Title-Eigenschaft ändern und dann das Dokument speichern. Das folgende Makro führt diese Aufgaben aus:

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 = Environ("USERPROFILE") & "\Desktop\temp\"

FType = "*.docx"

sTitle = "My New Doc Title"



' 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") = sTitle         ActiveDocument.Close wdSaveChanges     Next J End Sub

Beachten Sie, dass am Anfang des Makros die Verzeichnisvariable gleich dem vollständigen Pfad zum Ordner „temp“ auf dem Desktop gesetzt wird. Sie sollten sicherstellen, dass Directory auf den vollständigen Pfad zu den Dokumenten eingestellt ist, die Sie ändern möchten. Beachten Sie auch, dass der Pfad mit einem Backslash endet – dies ist sehr wichtig.

Die andere Variable, die Sie ändern möchten, ist der neue Titel, den Sie in der sTitle-Variablen speichern. Für jedes Dokument im Verzeichnisordner wird die Title-Eigenschaft in die in der sTitle-Variablen gespeicherte Eigenschaft geändert.

Der erste Teil des Makros durchläuft alle Dateien im Zielverzeichnis und ermittelt dort den Namen einer DOCX-Datei. Diese werden im sFiles-Array gespeichert. Sobald dies abgeschlossen ist, wird das Array durchlaufen und als Leitfaden für die zu öffnenden und zu ändernden Dateien verwendet.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13543) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.