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

То, что имеет в виду Эмили, известно как «последовательная запятая» или «оксфордская запятая». Его использование десятилетиями обсуждается грамматиками. (Я не хочу здесь обсуждать это, но скажу, что использование оксфордской запятой может улучшить ясность, когда дело доходит до встроенных списков, как отмечает Эмили.)

Эмили ищет довольно простое решение проблемы, которое будет искать общие союзы и вставлять запятую при необходимости. Как она отмечает, лучший способ справиться с этой ситуацией — использовать макрос. Вот тот, который выполнит задание:

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

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

Этот макрос, конечно же, может быть назначен сочетанию клавиш или link: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа], чтобы упростить добавление запятой этого типа.

Я понимаю, что этот макрос может работать не для всех грамматических перестановок. (Английский в этом смысле довольно «мягкий».) Возможно, лучше просто позволить Word проверить ваш документ и пометить все, что он ставит под сомнение, когда речь идет о наличии оксфордской запятой (или ее отсутствии). Вы можете сделать это изменение таким образом, если используете Word 2007, Word 2010 или Word 2013:

  1. Откройте диалоговое окно «Параметры Word». (В Word 2007 нажмите кнопку «Office», а затем — «Параметры Word». В Word 2010 или Word 2013 щелкните вкладку «Файл» на ленте и выберите «Параметры».)

  2. Щелкните параметр «Правописание» в левой части диалогового окна. (См. Рис. 1.)

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

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

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

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

Если вы используете Word 2016 или более позднюю версию, используйте вместо этого следующие шаги:

  1. Откройте вкладку Файл на ленте и щелкните Параметры.

  2. Щелкните параметр «Правописание» в левой части диалогового окна. (См. Рис. 3.)

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

  4. Прокрутите вниз до нижней части диалогового окна, чтобы отобразить параметр «Условные обозначения пунктуации». Убедитесь, что выбрана запятая Oxford. (См. Рис. 4.)

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

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

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

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

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

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

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

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

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