☰

개별 단어 수 계산(총 단어 수 아님)

tag-icon • tag-icon microsoft-word
개별 단어 수 계산(총 단어 수 아님)

Microsoft Word에서는 파일의 단어 수를 계산할 수 있지만 고유한 단어 수를 계산할 수 있는 방법이 있습니까? 그러한 고유한 단어 목록을 생성할 수 있다면 더욱 좋습니다.

답변1

원하는 것은 Microsoft Word 문서에 있는 모든 단어의 완전한 색인이며 다음과 같은 매크로를 사용하여 수행할 수 있습니다.개발자 블로그.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

관련 정보