Если вам нужно определить количество вхождений в документ некоторого слова, то здесь может помочь следующий макрос (навеяно заметкой Грега Макси "Count Selected WordPhrase" ).
Вы выделяете некое слово и запускаете макрос, который после подсчета выдает сообщение о количестве найденных слов:
re>Sub CountWords() ‘макрос подсчета количества определенных слов в документе ‘для подсчета количества вхождений конкретного слова, это слово должно быть выделено Dim rng As Range Dim sWord As String Dim i As Long Set rng = ActiveDocument.Range Application.ScreenUpdating = False If Selection.Type = wdSelectionIP Then MsgBox "Слово не выделено", vbExclamation Else ‘удаляем знак абзаца справа от слова If Right(Selection.Text, 1) = Chr(13) Then Selection.MoveLeft wdCharacter, 1, wdExtend End If sWord = Trim(Selection.Text) ‘Убираем прообелы вокруг слова и запоминаем Selection.Collapse wdCollapseStart With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = sWord .Forward = True .MatchWholeWord = True .MatchWildcards = False .Wrap = wdFindStop Do While .Execute i = i + 1 Loop End With Select Case i Case 2 To 4 MsgBox "Слово " sWord " встречается в документе " " раза", _ vbInformation, "Подсчет слов" Case 1 MsgBox "Слово " sWord " встречается в документе " " раз", _ vbInformation, "Подсчет слов" Case Else MsgBox "Слово " sWord " встречается в документе " " раз", _ vbInformation, "Подсчет слов" End Select rng.Find.Text = "" End If Application.ScreenUpdating = True End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Как в Ворде найти повторяющийся текст
Поиск повторяющегося текста помогает улучшить качество документов в Word. В этом курсе мы рассмотрим, как выполнить эту задачу. Узнайте, как использовать функции и инструменты Word для эффективного управления текстом.
Есть текст, в котором объединено несколько списков фамилий. В результате выяснилось, что в списке некоторые фамилии повторяются несколько раз. Найдите и выделите повторяющиеся слова в одном документе. необходимо, чтобы Слово само выбирало те фамилии (слова), которые повторяются 2 и более раз, и выделяло их.
Например, фамилии ПУГАЧЕВА, ГАЛКИН, ЛЕНИН повторяются несколько раз. необходимо сразу выделить всех повторяющихся Галкина, Пугачева, Ленина и т.д. Поскольку список большой, поиск по одной фамилии не сработает.
Как выделить одинаковые слова в Ворде?
Используя Ctrl + F, я нашел все те же слова. Теперь вам нужно выделить их ВСЕ и одновременно в один цвет, например красный. Как это сделать? Чтобы выделить все необходимые слова, после нажатия CTRL + F нажмите кнопку и выберите пункт в открывшемся меню .
Выбираем команду изменить цвет текста, теперь изменение цвета текста будет происходить одновременно во всех найденных словах:
Позвольте мне объяснить на примере. Допустим, у нас есть текст (я взял отрывок из «12 стульев»), и нам нужно найти и выделить красным все местоимения в единственном числе в нем. Р. — «она».
1) Перейдите на вкладку «Главная», в верхней панели крайнего правого окна нажмите «заменить»:
2) Во всплывающем окне в поле «найти» введите его. И снова пишем в поле «заменить на»
3) Нажмите кнопку «Другое» и выберите: выбор размера / цвета.
4) Теперь внизу должна появиться фраза «заменить на» — выделение цветом:
5) Наконец, нажмите кнопку «заменить все».
Теперь все слова «она» в тексте выделены нужным нам цветом.
Кстати, вы можете выделять не только слова целиком, но и части слов, например только корень или всего несколько цифр в длинных числах и т.д.
Подбор всех одинаковых слов в слове осуществляется следующим способом. Нажмите Ctrl + f, затем выберите запись «найти в» и выберите основной документ во всплывающем меню. Затем введите нужное слово в поле поиска. Выделяются все те же слова, после чего вы можете делать с ними все, что захотите, менять цвет, подчеркивание, выделение жирным шрифтом и т.д.
