Microsoft Word 可以统计文件中的单词数,但是有没有办法统计不同的单词数呢?如果可以生成这些不同单词的列表就更好了。
答案1
您需要的是 Microsoft Word 文档中所有单词的完整索引,这可以通过宏来实现,例如来自微软博客以及来自答案.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