Если Джессика хочет удалить лишние пробелы в конце абзаца, она знает, что может найти пробел, за которым следует ^ p, и заменить его на ^ p отдельно. Однако это не работает для сносок и концевых сносок, вероятно, потому, что Word не позволяет вам «заменять» маркеры конца абзаца в таких заметках. Джессика задается вопросом, есть ли способ обойти это ограничение, чтобы она могла легко избавиться от конечных пробелов в сносках и концевых сносках.

Интересно отметить, что Word позволяет использовать «Найти» и «Заменить», чтобы избавиться от конечного пробела в абзаце в теле документа, но не распространяет ту же возможность на сноски и концевые сноски — по крайней мере, не во всех версии Word.

Например, если у вас есть конечные пробелы как в сносках, так и в концевых сносках в Word 2007, то функция «Найти и заменить» работает так же, как и Джессика — конечные пробелы не меняются. В Word 2010 функция «Найти и заменить» избавляется от конечных пробелов только в сносках; примечания остаются без изменений. В Word 2013 поведение такое же, как и в Word 2007 — пробелы остаются неизменными как в сносках, так и в концевых сносках. Если у вас Word 2016, то конечные пробелы удаляются как из сносок, так и из концевых сносок, как и должно быть. Совершенно непоследовательно!

Если вы хотите обязательно избавиться от всех конечных пробелов, вы можете использовать два подхода. Во-первых, выполните следующие действия:

  1. Щелкните один раз в области сносок. (Неважно где; просто где-то в этом районе.)

  2. Нажмите Ctrl + A. Теперь должны быть выделены все сноски.

  3. Нажмите Ctrl + E. Все сноски теперь центрированы, а конечные пробелы удалены.

  4. Нажмите Ctrl + L. Все сноски теперь снова выровнены по левому краю.

  5. Повторите шаги с 1 по 4 для любых концевых сносок в документе.

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

Sub FootEndnoteTrailingSpaces()

Dim fn As Footnote     Dim en As Endnote

For Each fn In ActiveDocument.Footnotes         fn.Range.Text = RTrim(fn.Range.Text)

Next fn     For Each en In ActiveDocument.Endnotes         en.Range.Text = RTrim(en.Range.Text)

Next en End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (4833) относится к Microsoft Word 2007, 2010, 2013 и 2016.