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

Первое, что нужно попробовать, — это использовать встроенную возможность VBA перемещаться по предложению за раз. Как только вы разместите точку вставки, используйте следующую команду:

Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdExtend

Команда расширяет выделение вправо на все, что Word рассматривает как предложение, поэтому оно должно соответствовать вашим потребностям. Если это не так (возможно, в нем отсутствуют некоторые символы, которые необходимо включить в ваш выбор), вы можете попробовать создать свой собственный код выбора. Вот пример одного из способов разработки такого кода:

With Selection     .Extend     .Find.Text = "[,.'" & Chr(146) & Chr(148) & Chr(34) & "]"

.Find.MatchWildcards = True     .Find.Execute     .Find.Text = "[!,.'" & Chr(146) & Chr(148) + Chr(34) & "]"

.Find.Execute End With

Свойство Extend заставляет Word выделять все, начиная с точки вставки, а поиск с использованием подстановочных знаков находит все символы пунктуации. Искомый текст состоит из всех знаков препинания, включая апострофы и кавычки.

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

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12341) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Selecting_to_the_Next_Punctuation_Mark [Выбор до следующего знака препинания].