Одна из наиболее распространенных проблем, с которыми сталкивается Эмили при редактировании, связана с вставкой порядковой запятой во встроенный список элементов перед окончательным соединением между элементами списка. В офисе Эмили для ясности и избегания таких потенциально неудобных фраз, как: «Я посвящаю эту книгу своим родителям, Матери Терезе и Иисусу», следует использовать порядковые запятые. Однако большинству авторов не нравится использовать эту запятую, поэтому Эмили уделяет много времени редактированию ее почти в каждом абзаце текста, с которым сталкивается. Эмили отмечает, что ей стало бы легче, если бы у нее был макрос, который выполнял бы поиск от точки вставки до конца текущего предложения и вставлял бы запятую перед следующим вхождением общих союзов «и» и «или», но только если там уже нет запятой.

Как отмечает Эмили, лучший способ справиться с этой ситуацией — использовать макрос.

Вот тот, который выполнит задание:

Sub SerialComma()

Dim MySelection As Selection

Selection.MoveRight Unit:=wdSentence, Extend:=wdExtend     Set MySelection = Selection     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "([!,.?;:]) and "

.Replacement.Text = "\1, and "

.Forward = True         .Wrap = wdFindStop         .Format = False         .MatchCase = False         .MatchWildcards = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     MySelection.Select     With Selection.Find         .Text = "([!,.?;:]) or "

.Replacement.Text = "\1, or "

End With     Selection.Find.Execute Replace:=wdReplaceAll     MySelection.Select     Selection.Collapse End Sub

Макрос сначала выбирает все от текущей точки вставки до конца текущего предложения. Затем, используя поиск с подстановочными знаками, он ищет вхождение слова «и», которое не следует за знаком препинания. Если он его находит, он заменяет вхождение запятой и словом «и». Затем он выполнит аналогичную операцию поиска и замены для слова «или».

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

Еще одно изменение конфигурации, которое вы, возможно, захотите сделать, — это сообщить Word, что вы хотите, чтобы он отмечал как неправильные любые отсутствующие запятые во встроенных списках. Вы можете сделать это изменение следующим образом:

  1. Выберите «Параметры» в меню «Инструменты». Word отображает диалоговое окно «Параметры».

  2. Убедитесь, что выбрана вкладка Орфография и грамматика. (См. Рис. 1.)

  3. Нажмите кнопку «Настройки». Word отображает диалоговое окно «Параметры грамматики». (См. Рис. 2.)

  4. Убедитесь, что для параметра «Запятая перед последним элементом списка» установлено значение «Всегда».

  5. Нажмите OK, чтобы закрыть диалоговое окно Grammar Settings.

  6. Щелкните ОК, чтобы закрыть диалоговое окно Параметры.

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (9293) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Adding_Serial_Commas_in_a_Sentence [Добавление последовательных запятых в предложение].