☰

個別の単語を数える（総単語数ではない）

tag-icon • tag-icon microsoft-word
個別の単語を数える（総単語数ではない）

Microsoft Word ではファイル内の単語を数えることができますが、個別の単語を数える方法はありますか? そのような個別の単語のリストを生成できればさらに良いでしょう。

答え1

あなたが欲しいのは、Microsoft Word文書内のすべての単語の完全な索引であり、それは次のようなマクロで実現できます。開発ブログそしてから回答.Microsoft.comピリオド（終了記号）などの一部の文字は単語としてカウントされることに注意してください。

以下に、開発ブログからのコードを引用します。

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

関連情報