Автоматическое добавление табуляции в сноски

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

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

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

Первое возможное решение для добавления вкладок – использовать функцию Word «Найти и заменить». Чтобы убедиться, что все сноски содержат необходимый символ табуляции, выполните следующие действия:

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

  4. Убедитесь, что установлен флажок «Использовать подстановочные знаки».
  5. В поле «Найти» В каком поле введите « (^ 2) » без кавычек. Обратите внимание, что после последней круглой скобки есть пробел.
  6. Удерживая курсор в поле «Найти», нажмите кнопку «Формат», затем выберите «Стиль». Word отображает диалоговое окно «Найти стиль».
  7. В списке представленных стилей выберите стиль текста сноски и нажмите кнопку ОК.
  8. В поле «Заменить на» введите « 1 ^ t » без кавычек.
  9. Нажмите «Заменить все», затем закройте диалоговое окно «Найти и заменить».

Когда это будет сделано, все сноски будут иметь необходимую табуляцию между номером ссылки сноски и началом текста сноски. Это работает, потому что вы используете в поиске подстановочный знак ^ 2 , который ищет ссылки на сноски или концевые сноски. Скобки, окружающие ^ 2 , приводят к тому, что этот подстановочный знак рассматривается как группа. По сути, поле «Найти» будет искать все ссылки на сноски или концевые сноски, за которыми следует пробел в абзацах, отформатированных в стиле текста сноски.. Единственное место, где встречается эта комбинация, – это сама сноска. Концевые сноски имеют стиль концевых сносок, и основная часть документа не должна быть в стиле текста сносок. В поле “Заменить на” символ 1 заменит первое выражение, заключенное в круглые скобки в поле “Найти”. В нашем случае это ссылочный номер сноски. ^ t вставит вкладку.

Другой подход – использовать макрос, который поместит нужную вкладку в желаемое место в сносках. Следующий макрос сделает именно это:

 Sub TabFootnotes () For s = 1 To ActiveDocument.Footnotes.Count ActiveDocument.Footnotes (s) .Range.Select With Selection .Collapse Direction: = wdCollapseStart.  MoveLeft Unit: = wdCharacter, Count: = 1, Extend: = wdExtend .TypeText Text: = vbTab End With NextEnd Sub 

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

Существует последний подход, который подходит, если вы хотите всегда быть уверенным после номера ссылки сноски ставится табуляция. Этот подход включает замену встроенной команды Word для вставки сносок:

 Sub InsertFootnote () Если Selection.StoryType  wdFootnotesStory Then Dim dlg As Dialog Set dlg = Dialogs (wdDialogInsertFootnote) Если dlg.Display =  -1 Затем dlg.Execute Selection.TypeBackspace Selection.TypeText vbTab End If End IfEnd Sub 

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

Оцените статью
Frestage.ru
Добавить комментарий