![]() |
|
| Правила Форума редакция от 22.06.2020 |
|
|||||||
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже. |
|
![]() |
|
|
Опции темы | Опции просмотра |
Language
|
|
|
#1
|
|
Которой задаешь к.-либо слово, а она ищет сколько раз оно встречается в документе Word. Подскажите.
![]() |
|
|
|
|
| Реклама: |
|
|
#2
|
|
Постоялец
![]() ![]() ![]() ![]() ![]() Пол:
Регистрация: 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 |
|
|