Как выделить окончания в Word

Обновлено: 05.07.2024

Спасибо. Мы получили ваш запрос и незамедлительно ответим.

Присоединяйтесь к нам!

Общаться с другими участниками
Уведомления об ответах
на ваши сообщения
Поиск по ключевым словам
Доступ в один клик к вашим
любимым форумам
Автоматические подписи
на ваших сообщениях
Лучше всего то, что это бесплатно!

*Функции Tek-Tips зависят от того, получают ли участники электронную почту. Присоединяясь, вы соглашаетесь на получение электронной почты.

Правила публикации

Реклама, продажа, рекрутинг, размещение курсовых и дипломных работ запрещено.

Найти и выделить все слова, оканчивающиеся на -ly

Кажется, это должно быть очень просто. Я пытаюсь написать макрос для Word 2010, который найдет в документе все слова, оканчивающиеся на –ly, и выделит их. Приведенный ниже код найдет первое такое слово и выделит его, но на этом остановится. Закомментированный цикл Do не заканчивается, если он выполняется.

Sub Highlight_adverb()
'
' Макрос Highlight_adverb
' Находит и выделяет слова, оканчивающиеся на ly.
'
' Перейти к началу проверяемой части
'
Selection.HomeKey Unit:=wdStory
'
' Очистить все предыдущие цели поиска
'
Selection.Find.ClearFormatting
'
' Создать цикл Do, который выполняется до тех пор, пока не будет достигнут конец документа
'
' Do
/>'
' Найдите пример слова, оканчивающегося на "ly", выделите слово целиком и выделите его
'
With Selection.Find
.Text = "ly" < br />.Forward = True
.Wrap = wdFindStop
.MatchSuffix = True
Конец с
Selection.Find.Execute
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Options.DefaultHighlightColorIndex = wdTurquoise
Selection.Range.HighlightColorIndex = wdTurquoise
'
' Переместиться вперед на одно слово, чтобы избежать повторного выбора только что выделенного слова
'
Selection.MoveRight Unit :=вдВорд, С count:=1
' Selection.Find.Execute Replace:=wdReplaceAll
'
' . и зациклить
'
' Зациклить пока Selection.EndOf(Unit:=wdStory)
End Sub

С другой стороны, этот код (ниже) находит и выделяет все суффиксы –ly, но не слово целиком.

Подпрограмма highlight_ly_2()
'
' Highlight_ly_2 Macro
'
' Перейти к началу проверяемого фрагмента
'
Selection.HomeKey Unit:=wdStory
'
' Найти и выделить все суффиксы ly
'
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True
.Text = "ly"
.Replacement.Text = "ly"
.Forward = True
.Wrap = wdFindContinue
. Format = True
.MatchSuffix = True
Заканчиваться
Selection.Find.Execute Replace:=wdReplaceAll

Как мне получить код, который делает и то, и другое? Кажется, мне не хватает одной простой команды, но я понятия не имею, что это такое.

Я бы сделал что-то вроде этого

Пропустить,
_{Просто променял свою старую хитрость.
НЮАНС!}

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

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

Нажмите Ctrl+H. Word отображает вкладку «Заменить» в диалоговом окне «Найти и заменить».
Нажмите кнопку "Еще", если она доступна. Word расширяет диалоговое окно «Найти и заменить». (См. рис. 1.)

Рис. 1. Вкладка «Заменить» диалогового окна «Найти и заменить».

Вот и все; ваше выделение сделано. После этих шагов экземпляры того, что вы искали, вероятно, будут выделены желтым цветом. Если вам нужен другой цвет выделения, вы можете попробовать изменить цвет выделения, выбранный в инструменте «Выделение» на вкладке «Главная» ленты, прежде чем выполнять шаги. (Это может повлиять не на все версии Word.)

Следует также отметить, что шаг 4 технически необязателен — вам не нужно ставить ^& в поле «Заменить на». При желании вы можете просто оставить поле пустым. Я думаю, однако, что размещение кода ^& в поле является хорошей "защитной мерой", так как это может помочь избежать любых потенциальных ошибок, которые на самом деле приведут к удалению того, что вы ищете.

Советы по Word — ваш источник недорогого обучения работе с Microsoft Word. (Microsoft Word — самое популярное программное обеспечение для обработки текстов в мире.) Этот совет (1270) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.

Биография автора

На его счету более 50 научно-популярных книг и множество журнальных статей. Аллен Уайатт является всемирно признанным автором. Он является президентом Sharon Parq Associates, компании, предоставляющей компьютерные и издательские услуги. Узнайте больше об Аллене.

Перемещает или расширяет позицию конечного символа диапазона или выделения до конца ближайшего указанного текстового блока.

Синтаксис

выражение. EndOf ( _Unit_ , _Extend_ )

выражение Обязательно. Переменная, представляющая объект Selection.

Параметры

Имя	Обязательный/Необязательный	Тип данных	Описание
Единица измерения	Необязательно	Вариант	Единица, на которую перемещается позиция конечного символа. WdUnits.
Расширить	Необязательно	Вариант	Может быть любой из констант WdMovementType. Если wdMove, оба конца диапазона или объекта выделения перемещаются в конец указанного блока. Если используется wdExtend, конец диапазона или выделения расширяется до конца указанного блока. Значение по умолчанию — wdMove.

Примечания

Этот метод возвращает значение, указывающее количество позиций символов, на которые диапазон или выделение были перемещены или расширены (перемещение вперед в документе).

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

Пример

В этом примере выделение расширяется до конца абзаца.

В этом примере myRange перемещается в конец первого слова в выделенном фрагменте (после завершающего пробела).

В этом примере добавляется таблица, выделяется первая ячейка во второй строке, а затем область выделения расширяется до конца столбца.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы об Office VBA или этой документации? См. раздел Поддержка и отзывы об Office VBA, чтобы узнать, как получить поддержку и оставить отзыв.

Вы можете управлять размещением автоматических разрывов страниц в Word и Outlook, настроив параметры нумерации страниц.

Сохраняйте строки абзаца вместе на странице или в столбце

Выберите абзацы, содержащие строки, которые вы хотите сохранить вместе.

На вкладке "Главная" в Word или на вкладке "ФОРМАТИРОВАНИЕ ТЕКСТА" в электронном письме Outlook выберите средство запуска диалогового окна "Абзац" .