Hallo zusammen möchte gerne eine vbs mit Editor erstellen wo ich einen Text einfügen kann wo dann die Anzahl bestimmter Wörter mir angezeigt werden also wie oft kommt Auto im riesen text vor .
Leider bin ich etwas stark eingerostet habe da aber schon was gefunden die frage ist aber wo Text eingefugt werden soll ? denn wenn ich es als vbs so speichere und ausführe kommt nur ne Fehlermeldung
Leider bin ich etwas stark eingerostet habe da aber schon was gefunden die frage ist aber wo Text eingefugt werden soll ? denn wenn ich es als vbs so speichere und ausführe kommt nur ne Fehlermeldung
Code:
Sub WordCount(DeinWort DeinWort)
Dim lngWords As Long
lngWords = ActiveDocument.Words.Count
ActiveDocument.Content.Find.Execute _
FindText:="DeinWort", _
ReplaceWith:="", _
Replace:=wdReplaceAll
MsgBox lngWords - ActiveDocument.Words.Count
End Sub