bedingtes Wörter zählen

Question

Ich möchte mir WORD 2003 einhundert Worte eines Texts zählen und dort ein Zeichen wie | einsetzen. Nicht gezählt werden sollen aber Worte innerhalb von <...> und [... ] sowie Worte in Großbuchstaben.

Answer 1

Hallo Ernie,

probiers mal mit folgendem Makro:

Sub WoerterZaehlen()

For Each i In ActiveDocument.Words
w = w + 1
If i Like "*<*" Or i Like "*[[]*" Then cstop = True
If i Like "*[a-z]*" And cstop = False Then
c = c + 1
If c Mod 100 = 0 Then
ActiveDocument.Words(w).InsertAfter ("| ")
End If
End If
If i Like "*>*" Or i Like "*[]]*" Then cstop = False
Next i

MsgBox "Das Dokument enthält " & c & " gültige Wörter!"

End Sub

Gruß Mr. K.