Dokumente enthalten oft viele Wörter, die sich absichtlich sehr ähnlich sind. Beispielsweise verfügen Sie möglicherweise über ein Dokument, das auf eine Reihe von Teilenummern verweist, und die Teilenummern sind einander sehr ähnlich. Sie können auch auf eine Gruppe von Dateinamen verweisen, bei denen der Basisteil des Namens dasselbe Wort ist, aber jeder Dateiname ein Suffix hat, das eine Zahl ist, z. B. das Folgende:

Widget01 Widget02 Widget03 Widget04 Widget05

Wenn Sie jemals die Zahlen in Ihrem Dokument erhöhen müssen, kann der Vorgang von Hand sehr mühsam und fehleranfällig sein.

(Abhängig natürlich von der Anzahl der Namen, die Sie ändern müssen.) Dies bedeutet, dass die Aufgabe ein perfekter Kandidat für die Ausführung durch ein Makro ist.

Das folgende Makro, BumpNumbers, sucht beispielsweise nach allen Instanzen des Wortes Widget, gefolgt von einer zweistelligen Zahl.

Die Nummer wird dann erhöht.

Sub BumpNumbers()

Dim J As Integer     Dim sFindText As String     Dim sReplaceText As String

Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With

For J = 98 To 1 Step -1         sFindText = "Widget" & Right("00" & Trim(CStr(J)), 2)

sReplaceText = "Widget" & Right("00" & Trim(CStr(J + 1)), 2)

Selection.Find.Text = sFindText         Selection.Find.Replacement.Text = sReplaceText         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

Offensichtlich ist dieses Makro auf einen bestimmten Bedarf zugeschnitten – das Wort Widget, gefolgt von einer zweistelligen Zahl. Wenn Sie das Makro an Ihre Nummerierungsanforderungen anpassen müssen, können Sie dies tun, indem Sie die For …​ Next-Schleife ändern (damit sie nicht von 98 auf 1 wechselt) oder indem Sie den gesuchten Text ändern (der zugewiesen ist) auf die Variable sFindText).

_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 weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12121) gilt für Microsoft Word 2007, 2010, 2013 und 2016. Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Nummern in einem Dokument stoßen.