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, txt As String, 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 weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (3788) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Zählen der Instanzen einer Textzeichenfolge.