Marc sucht nach der schnellsten und effizientesten Methode – innerhalb eines Makros -, um zu bestimmen, wie oft eine bestimmte Textzeichenfolge in einem Dokument vorkommt. Leider gibt es keine Möglichkeit, dies mit ein oder zwei einfachen Befehlen zu tun. Stattdessen müssen Sie ein Dokument mithilfe der Funktion „Suchen und Ersetzen“ von Word „durchlaufen“.

Erstellen Sie zunächst eine temporäre Kopie Ihres Dokuments, damit Sie nicht das Risiko eingehen, Ihr Originaldokument zu beschädigen. Verwenden Sie dann eine Variable in Ihrem Makro, um zu zählen, wie oft der gewünschte Text ersetzt wird, und erhöhen Sie die Variable jedes Mal, wenn eine Ersetzung erfolgt. Im folgenden Beispiel wird die Häufigkeit in der Variablen Replacements angegeben.

Sie können den Wert dann verwenden oder den Wert in eine Zeichenfolge konvertieren, um ihn anzuzeigen.

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

_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 (11941) 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: