Ändern vieler Titeleigenschaften (Microsoft Word)
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.