☰

Zählen Sie verschiedene Wörter (nicht die Gesamtzahl der Wörter)

tag-icon • tag-icon microsoft-word
Zählen Sie verschiedene Wörter (nicht die Gesamtzahl der Wörter)

Microsoft Word könnte die Wörter in einer Datei zählen, aber gibt es eine Möglichkeit, die einzelnen Wörter zu zählen? Noch besser wäre es, wenn es möglich wäre, eine Liste dieser einzelnen Wörter zu erstellen.

Antwort1

Sie möchten einen vollständigen Index aller Wörter in einem Microsoft Word-Dokument. Dies können Sie mit einem Makro wie diesem vondevblogs.Microsoft.comund vonAnswers.Microsoft.comBeachten Sie, dass einige Zeichen, z. B. der Punkt (Ende), als Wörter gezählt werden.

Der Code aus den Devblogs wird unten zitiert.

Set objDictionary = CreateObject(“Scripting.Dictionary”)


Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True

Set objDoc = objWord.Documents.Open(“C:\Scripts\Sample.doc”)

Set colWords = objDoc.Words

For Each strWord in colWords
    strWord = LCase(strWord)
    strLetter = Left(strWord, 1)
    If ASC(strLetter) < 97 OR ASC(strLetter) > 122 Then
    Else
        If objDictionary.Exists(strWord) Then
            Else
            objDictionary.Add strWord, StrWord
       End If
    End If
Next

Set objDoc2 = objWord.Documents.Add()
Set objSelection = objWord.Selection

For Each strItem in objDictionary.Items
    objSelection.TypeText strItem & vbCrLf
Next

Set objRange = objDoc2.Range
objRange.Sort

verwandte Informationen