Как найти прописной текст

Роман интересуется:

Как в документе найти все слова, написанные прописными буквами? Причем, можно ли результаты поиска вывести вместе, или ворд будет переходить от слова к слову?

Можно воспользоваться следующим макросом, который мне помогли реализовать специалисты VBA с форума microsoft.public.word.vba.general.

Этот макрос позволяет найти в документе все слова, написанные прописными буквами, скопировать их в конец документа, отсортировать по алфавиту и удалить повторяющиеся слова. При этом, не затрагиваются односимвольные слова, типа О, И и так далее.

Обратите внимание, что макрос писал не я, по моей просьбе его составили специалисты с указанного выше форума. Тем не менее, я добавил в текст макроса свои поясняющие комментарии (для себя и тех, кому это может быть интересно в плане изучения опыта).

Sub UcaseList()
'Поиск в тексте слов с прописными буквами, копирование их в конец документа, сортировка и удаление повторяющихся
'Помощь от Jean-Guy Marcil и Graham Mayor
'http://groups.google.ru/group/microsoft.public.word.vba.general/
Dim rngDoc As Word.Range
Dim wu As Word.Range
Dim lngDocEnd As Long
Set rngDoc = ActiveDocument.Range
lngDocEnd = rngDoc.End
With ActiveDocument
   Selection.EndKey Unit:=wdStory  'переходим в конец документа
   Selection.TypeParagraph   'вставляем параграф
   .Bookmarks.Add Range:=Selection.Range, Name:="ListStart"   'вставляем закладку
   'для каждого слова проверяем его регистр и если есть слова с прописными буквами, добавляем их в конец документа
   For Each wu In rngDoc.Words
      If wu.Case = wdUpperCase Then
         .Range.InsertAfter vbCrLf & wu.Text
         rngDoc.End = lngDocEnd
      End If
   Next wu
   .Bookmarks("ListStart").Select  'выбираем закладку, выделяем все слова, что идут ниже ее, и сортируем их по алфавиту
   With Selection
      .EndKey Unit:=wdStory, Extend:=wdExtend
      .Sort , FieldNumber:="Paragraphs", _
      SortFieldType:=wdSortFieldAlphanumeric, _
      SortOrder:=wdSortOrderAscending
      'с отсортированными словами
      With .Find
         .ClearFormatting
         .Replacement.ClearFormatting
      'удаляем пробелы после слов
         .Text = "[ ](^13)"
         .Replacement.Text = "1"
         .MatchWildcards = True
         .Execute Replace:=wdReplaceAll
      'удаляем лишние концы абзацев
         .Text = "(*^13)@"
         .Replacement.Text = "1"
         .MatchWildcards = True
         .Execute Replace:=wdReplaceAll
      'ищем повторяющиеся слова и удаляем их
         .Text = "([!A-Z-А-ЯЁ])[A-Z-А-ЯЁ]^13"
         .Replacement.Text = "1"
         .Execute Replace:=wdReplaceAll
      End With
   End With
End With
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

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

Расширенный поиск

Поиск по странице Ворд исполняется при помощи функции под названием “Найти”. Более подробно о нем можно узнать на странице “Поиск в Ворд”.

Если вам доводилось искать какой-либо текст в тексте документа, то, думаю, вы замечали, что результаты могут быть не точными. К примеру, при поиске слова «дети» Ворд вам предложит все варианты, которые производные от основного запроса: «детиНА», «детиШКИ».

А чтобы отыскать определенное конкретное слово, для этого в текстовом редакторе Word существует расширенный поиск. Через него можно отыскать более точный текст — учитывая регистр, по точному совпадению, найти слово не только по содержанию, но и по тому, как оформлены эти слова, а также по прочим условиям. Как им пользоваться, спросите вы?

Откроем вкладку “Главная”, найдем раздел “Редактирование” и жмем “Найти”. Внизу появившегося окна поиска жмем “Больше”. Откроется окно расширенного поиска.

Посмотрите, как много тут всяких вариантов поиска. Сейчас я вам расскажу об основных из них:

• «Направление»- в каком направлении будет произведен поиск по документу Word.
• “Вперед”, поиск пройдет вниз от курсора до конца документа.
• “Назад” – от курсора вверх к началу документа. При этом в ссылках и в колонтитулах поиск осуществляться не будет.
• Если выбрать “Везде”, то Word поищет слова и в колонтитулах, и в ссылках.

Поиск по словам

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

“Учитывать регистр” — означает, будет ли Ворд при поиске слов учитывать БОЛЬШИМИ или маленькими буквами набрано слово. К примеру, в поиске набираем слово с Заглавной буквы, тогда и результатом поиска будет, только слово с Заглавной буквы.

“Только слова целиком” — этим пунктом мы говорим Ворду, что нас интересует поиск конкретно этого слова. К примеру, в строке поиска набираем слово «пап», тогда поиск найдет те слова, которые содержат конкретно «пап», а слова, типа папа, папин, папочка будут пропущены.

“Подстановочные знаки” — это значит, что будем использовать специальные знаки для поиска слов. К примеру, набираем в поиске «стен?» и ищем. Ворд понимает, что вместо знака вопроса можно подставить любую букву: стенА, стенЫ, стенУ и т.д. Результатом поиска будут все подобные слова.

Какие бывают подстановочные знаки можете узнать на странице «Подстановочные знаки расширенного поиска в Ворд».

«Произносится как» — в английском языке есть множество слов, звучащие одинаково, а записываются они по-разному. Хоть и в русском языке есть такие слова, но для нашего языка эта функция не работает.

Функция “Все словоформы” ищет все словоформы.

Поиск в документе Word по формату

Кнопка «Формат» откроет список форматов, по которым можно отыскать текст. Кстати, формат можно выбрать не один, а несколько.

Функция “Специальный” также содержит список функций.

Поиск и замена

В Ворд, используя расширенный поиск, можно не только найти текст, но и его заменить на другой.

Для этого откройте вкладку «Заменить». Далее в строке найти указываем то слово, что мы хотим поменять. К примеру слово «одно» заменить на слово «другое». А значит, следующим шагом в поле «Заменить на» мы пишем то, на что необходимо поменять текст. Выставляем правильные Параметры поиска и жмем на одну из кнопок: Заменить либо Заменить все.

Заключение

По моему мнению в этом ничего слишком сложного нет. Напротив, довольно удобно, что в Ворде есть более гибкая настройка поиска, которая позволяет более точно указать параметры поиска. Надеюсь вам понравилось и я вам смог помочь. Еще раз напомню, что у меня есть статья про «Поиск в Ворде», советую посмотреть и ее.

Комментируйте, задавайте вопросы, делитесь с друзьями, вступайте в группы (ссылки в меню) и подписывайтесь на обновления сайта.