Wenn Sie in einem großen Dokument arbeiten, möchten Sie möglicherweise wissen, wie oft eine bestimmte Textzeichenfolge in einem Teil des Dokuments vorkommt.

Eine Möglichkeit, diese Informationen zu finden, besteht darin, ein Makro zu erstellen, das einen ausgewählten Textbereich untersucht, um festzustellen, wie viele Instanzen darin enthalten sind.

Betrachten Sie das folgende Makro:

Sub CountString()

Dim MyDoc As String     Dim txt As String     Dim t As String

MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

Wählen Sie den zu analysierenden Text aus und führen Sie das Makro aus. Der ausgewählte Text wird der MyDoc-Variablen zugewiesen (sodass nichts im eigentlichen Dokument betroffen ist) und Sie werden dann aufgefordert, die gewünschte Textzeichenfolge einzugeben. Die Ersetzen-Funktion wird dann verwendet, um alle Instanzen dieser Zeichenfolge innerhalb der MyDoc-Variablen zu ersetzen. Der Text wird nach dem Ersetzen der Variablen t zugeordnet. Die Länge des „Vorher“ -Textes (MyDoc)

und der „Nach“ -Text (t) wird verglichen und die Anzahl der Ersetzungen berechnet.

_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 (5651) gilt für Microsoft Word 2007, 2010 und 2013.

Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Zählen der Instanzen einer Textzeichenfolge.