☰

Подсчитайте отдельные слова (не общее количество слов)

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

Связанный контент