Wenn Sie Word Tag für Tag verwenden, sammeln Sie in der Regel viele, viele Dokumente an. Wenn diese Dokumente für einen Standardzweck verwendet werden, ist es nicht ungewöhnlich, dass die Dokumente einige der gleichen Informationen enthalten.

Beispielsweise verfügen Sie möglicherweise über Dokumente, die Geschichten enthalten, die Sie bei verschiedenen Zeitungen und Zeitschriften einreichen. Während die einzelnen Geschichten unterschiedlich sein können, kann jedes Dokument Ihren Namen und Ihre Kontaktinformationen enthalten. Wenn sich Ihre Kontaktinformationen ändern oder Sie sich für eine andere Schreibweise für Ihren Namen entscheiden, können Sie sich nach einer Möglichkeit sehnen, alle Dokumente gleichzeitig zu ändern.

Leider enthält Word diese Art von Funktion nicht. Sie können sich entweder auf eine Lösung eines Drittanbieters verlassen oder ein eigenes Makro schreiben, um die Änderungen vorzunehmen. Es gibt eine Reihe von Programmen von Drittanbietern, die die Art der Such- und Ersetzungsfunktion bieten, die für die Arbeit mit mehreren Dokumenten erforderlich ist. Das Folgende sind nur einige der von WordTips-Abonnenten vorgeschlagenen:

Der Word-Entwickler Malcom Smith hat außerdem ein Makro erstellt, das die Suche durchführt und verzeichnisübergreifend ersetzt. Wenn Sie es sehen möchten, können Sie http://www.dragondrop.com besuchen. Klicken Sie einfach auf den Link Suchen und Ersetzen für Word rechts auf der Seite.

Wenn es Ihnen nichts ausmacht, Ihre eigenen Makros zu verwenden, werden im Folgenden die Techniken gezeigt, die zum Durchlaufen der Dokumente in einem bestimmten Ordner erforderlich sind.

Public Sub MassReplace()

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             ' for each file you find, run this loop             For i = 1 To .FoundFiles.Count                 ' open the file based on its index position                 Documents.Open FileName:=.FoundFiles(i)



' search and replace the address                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldAddress"

.MatchCase = True                     .Replacement.Text = "NewAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace e-mail address                 With selection.Find                     .Text = "Oldemail"

.Replacement.Text = "Newemail"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

Dieses Makro ist sehr leistungsfähig und ermöglicht es Ihnen, nicht nur eine Straße, sondern auch Ihre E-Mail-Adresse zu ändern. Sie müssen lediglich Änderungen vornehmen, um anzugeben, welches Verzeichnis und Laufwerk für Ihre Suche verwendet werden soll und welche alten und neuen Informationen vorhanden sind. Ändern Sie den Parameter .Lookin zu Beginn des Makros, um anzugeben, wo das Makro suchen soll. Stellen Sie sicher, dass Sie einen vollständigen Pfad verwenden. Aktualisieren Sie dann im Hauptteil des Makros die Parameter .Text und .Replacement.Text, um zu berücksichtigen, wonach Sie suchen und durch was Sie ersetzen.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (3783) gilt für Microsoft Word 97, 2000, 2002 und 2003.