Подсчет числа слов

[Heatrv]

Все добрый день.

Помогите, пожалуйста, решить задачу.

Мне нужно составить макрос, который бы подсчитывал число упоминаемых слов в документе, т.е. есть список из 166 слов и надо подсчитать, сколько раз каждое из них упомянуто в тексте, с выводом, к примеру, в конце текста подписи: Брянск – 140 упоминаний, Красноярск – 17 упоминаний и т.д.

Пытался адаптировать под свои цели этот макрос, но ничего толкового не вышло, а в том виде, в котором он работает изначально, все как-то жутко смотрится и долго работает.

[Sasha_Smirnov]

Вам наверно пригодится это: http://programmersforum.ru/showthread.php?p=400381

[Sasha_Smirnov]

Разбить текст на N абзацев (где N — количество слов в нём) и отсортировать:

Selection.Sort

(Word такую функцию предоставлят и в виде кнопки).

Полученный "словник" обсчитать легко. Даже и вручную. Пример — ваша тема:
140
166
17
а
адаптировать
Брянск
бы
в
в
в
в
в
виде,
все
Все
выводом,
вышло,
день.
добрый
документе,
долго
есть
жутко
задачу.
и
и
и
из
из
изначально,
к
каждое
как-то
конце
котором
который
Красноярск
макрос,
макрос,
Мне
надо
не
них
ничего
но
нужно
он
под
подписи:
Подсчет
подсчитать,
подсчитывал
пожалуйста,
Помогите,
примеру,
Пытался
работает
работает.
раз
решить
с
свои
сколько
слов
слов
слов

[forumWord]

Heatrv
тот пример, ссылку на которую вы давали, нельзя использовать, я так думаю. Я подробно его не рассматривал, но увидел, что там есть выражение

For Each aWord In actDoc.Words

это означает просмотр всех слов в документе. Следовательно макрос будет работать очень медленно.

Вот правильное решение:

Sub Макрос1()
Dim x As String
Dim y As Long
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
x = InputBox("Введите искомое слово")
With ActiveDocument.Range.Find
    .ClearFormatting
    .Text = x
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    While .Execute
        y = y + 1
    Wend
End With
Selection.InsertAfter x & " - " & y
Selection.MoveRight
End Sub

В данном случае не просматриваются все слова, а происходит поиск нужного слова.