Im Laufe der Zeit ist es sehr gut möglich, eine große Anzahl von Dokumenten zu sammeln. Irgendwann möchten Sie möglicherweise an jedem Dokument in der Sammlung dieselbe Änderung vornehmen. Beispielsweise müssen Sie möglicherweise den Firmennamen in jedem Dokument ändern. Natürlich können Sie jedes Dokument öffnen, Änderungen vornehmen und dann das Dokument speichern. Dieser Vorgang kann jedoch schnell anstrengend werden, wenn Sie Hunderte oder Tausende von Dokumenten verarbeiten müssen.

Was ist zu tun? In Übereinstimmung mit dem Punkt, der in anderen Ausgaben von _WordTips _ angesprochen wurde, können Sie immer dann, wenn Sie etwas Alltägliches und Mühsames zu erledigen haben, ein Makro verwenden, um die Arbeit für Sie zu erledigen. Sie könnten beispielsweise ein Makro schreiben, das alle Dokumente in einem Verzeichnis durchläuft, jedes nacheinander lädt, nach dem erforderlichen Text sucht und diesen ändert und das Dokument erneut speichert. Dieser Prozess unterscheidet sich nicht von dem Prozess, den Sie manuell ausführen würden, außer dass er unter der Kontrolle des Makros ausgeführt wird. Dies macht es viel einfacher und schneller.

Das Folgende ist ein Beispiel für ein Word-Makro, das den Trick ausführen könnte:

Public Sub MassReplace()

Dim Directory As String     Dim FType As String     Dim FName As String

Directory = "d:\temp"

FType = "*.docx"



ChDir Directory     FName = Dir(FType)

' for each file you find, run this loop     Do While FName <> ""

' open the file         Documents.Open FileName:=FName

' search and replace the company name         selection.Find.ClearFormatting         selection.Find.Replacement.ClearFormatting         With selection.Find             .Text = "OldCompanyName"

.MatchCase = True             .Replacement.Text = "NewCompanyName"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace street address         With selection.Find             .Text = "OldStreetAddress"

.Replacement.Text = "NewStreetAddress"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace the City, State, and Zip code         With selection.Find             .Text = "OldCityStateAndZip"

.Replacement.Text = "NewCityStateAndZip"

End With         selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document         ActiveDocument.Close wdSaveChanges

' look for next matching file         FName = Dir     Loop End Sub

Dieses Makro ist sehr leistungsfähig und ermöglicht es Ihnen, nicht nur einen Firmennamen, sondern auch die Adresse Ihres Unternehmens zu ändern. Sie müssen lediglich Änderungen vornehmen, um anzugeben, welches Verzeichnis und Laufwerk für Ihre Suche verwendet werden soll, sowie die alten und neuen Unternehmensinformationen.

Wenn der Umgang mit Makros etwas über das hinausgeht, was Sie angehen möchten, gibt es auch eine Reihe verschiedener kommerzieller Produkte, die mit Word-Dokumenten funktionieren. Verschiedene Abonnenten haben die folgenden Programme vorgeschlagen:

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (8477) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Massensuche und -ersetzung.