☰

計算不同單字數（不是總單字數）

tag-icon • tag-icon microsoft-word
計算不同單字數（不是總單字數）

Microsoft Word 可以計算文件中的單字數，但有沒有辦法可以計算不同的單字呢？如果能夠產生這樣不同單字的清單就更好了。

答案1

您想要的是 Microsoft Word 文件中所有單字的完整索引，這可以使用巨集來完成，例如來自devblogs.Microsoft.com和來自答案.Microsoft.com。請注意，某些字元（例如句點（結束點））會被計為單字。

下面引用了 devblogs 的程式碼。

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

相關內容