Anzahl der Suchergebnisse ermitteln

Sie wollen wissen, wie oft ein bestimmter Ausdruck in einem Dokument vorhanden ist? Mit VBA kein großes Problem.

Zunächst gehen Sie an den Anfang des Dokumentes und durchsuchen dann den gesamten Text. Bei jedem Treffer für das Suchergebnis wird ein Zähler eins hochgezählt:

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023

Sub Suchen_Ersetzen3()
    'Anzahl der Suchergebnisse
   Dim Anzahl As Long
   Anzahl = 0
   With Selection
       'an den Anfang des Dokumentes gehen
       .HomeKey Unit:=wdStory
       With .Find
             'hier den Suchtext eingeben
           .Text = "Suchtext"
           .Forward = True
       End With

        'bei jedem Treffer zählen...
       Do While .Find.Execute
           Anzahl = Anzahl + 1
       Loop
   End With

   MsgBox Anzahl

End Sub

Als Suchtext können Sie natürlich alle Ausdrücke aus der Übersicht benutzen.

zurück zur Übersicht Suchen - Ersetzen