Компьютерный форум NoWa.cc - Есть ли такая программа?

Открываете функцию Найти и Заменить в Ворде, заменяете ваше слово на любое другое, смотрите что пишет ворд, потом нажимаете Отмена, чтобы вернуть все на место. Просто самый простой способ, который пришел в голову :) А можно макросом примерно такого содержания:

Код:

Sub СловоСчиталка()

    MyWord = InputBox("Введите слово:")

    Count = 0

    For Each wrd In ThisDocument.Words

        If StrConv(Trim(wrd), vbUpperCase) = StrConv(MyWord, vbUpperCase) Then Count = Count + 1

    Next wrd

    

    MsgBox "Слово " & wrd & " встретилось в документе " & Count & " раз"

End Sub