Есть ли такая программа?

spot1980 · 16.05.2007, 18:48

Которой задаешь к.-либо слово, а она ищет сколько раз оно встречается в документе Word. Подскажите.

mikle · 16.05.2007, 19:34

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

А можно макросом примерно такого содержания:

Код:

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

16.05.2007, 18:48	#1
spot1980 Новичок Пол: Регистрация: 15.05.2007 Адрес: Питер Сообщений: 11 Репутация: 11	Есть ли такая программа? Которой задаешь к.-либо слово, а она ищет сколько раз оно встречается в документе Word. Подскажите.

16.05.2007, 19:34	#2
mikle Постоялец Пол: Регистрация: 25.12.2006 Сообщений: 558 Репутация: 184	Ответ: Есть ли такая программа? Открываете функцию Найти и Заменить в Ворде, заменяете ваше слово на любое другое, смотрите что пишет ворд, потом нажимаете Отмена, чтобы вернуть все на место. Просто самый простой способ, который пришел в голову А можно макросом примерно такого содержания: Код: 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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Есть ли такая программа чтобы ставить пароль на флешку?	Ruslanice	Обсуждение программ	15	23.10.2009 22:02
есть ли такая программа?	Tuco	Скорая помощь	4	11.05.2009 18:26
Есть ли такая программа ?	kqlek	Просмотр, конверторы и редакторы графики	5	22.05.2008 11:28
Есть ли такая прога??!	BoY777	Архив	10	13.11.2006 16:12