2
Suche in Word
Hallo Forum,
ich möchte per VBA in Word nach dem Vorkommen eines Strings suchen, z.B. nach "Hallo". Mit der Found-Eigenschaft kann ich ermitteln, ob das Wort im Text vorkommt. Ich benötige aber die Anzahl, wie oft mein String gefunden wird. Hat jemand eine Idee, wie sich das realisieren ließe?
Vielen Dank im voraus,
M. Born
ich möchte per VBA in Word nach dem Vorkommen eines Strings suchen, z.B. nach "Hallo". Mit der Found-Eigenschaft kann ich ermitteln, ob das Wort im Text vorkommt. Ich benötige aber die Anzahl, wie oft mein String gefunden wird. Hat jemand eine Idee, wie sich das realisieren ließe?
Vielen Dank im voraus,
M. Born
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 345425
Url: https://administrator.de/contentid/345425
Printed on: April 25, 2024 at 09:04 o'clock
2 Comments
Latest comment
Mit der Found-Eigenschaft kann ich ermitteln, ob das Wort im Text vorkommt.
Die Execute Methode kannst du mehrfach aufrufen und damit in einer Schleife um den Found-Boolean und einem Counter die Anzahl der Fundstellen ermitteln.Sub FindCount()
MsgBox "Anzahl Fundstellen " & FindStringOccurences("Hallo")
End Sub
Function FindStringOccurences(strSearch) As Long
Dim cnt As Long, r as Range
Set r = ThisDocument.Content
While r.Find.Execute(FindText:=strSearch, MatchCase:=False, Forward:=True, Wrap:=wdFindStop, MatchWildcards:=False)
cnt = cnt + 1
Wend
FindStringOccurences = cnt
End Function
Vielen Dank. Das funktioniert ausgezeichnet.
