Vorkommen einer Textzeichenfolge in einem Dokument (Microsoft Word)
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: