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

Конечно, это можно сделать вручную. Все, что вам нужно сделать, это выполнить следующие общие шаги:

  1. Выделите текст, который должен быть в сноске.

  2. Нажмите Ctrl + X. Это вырезает текст в буфер обмена.

  3. Нажмите Alt + Ctrl + F. Это создает новую сноску и помещает указатель вставки в саму сноску.

  4. Вставьте содержимое буфера обмена как обычный текст.

  5. Отформатируйте текст сноски по желанию.

Если вам нужно немного проделать этот процесс, вы можете автоматизировать его, создав макрос, который делает то же самое. (То же самое, за исключением шагов 1 и 5 — вам все равно нужно будет выделить текст, который вы хотите переместить в сноску, и вам все равно нужно будет отформатировать его, когда он будет в сноске.)

Sub TextToFootnote()

Dim sTemp As String

sTemp = Selection     Selection.Delete     Selection.TypeBackspace     ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=sTemp End Sub

Макрос копирует выбранный вами текст в переменную sTemp. Затем он удаляет выделение, вводит обратный пробел и вставляет сноску, эквивалентную тексту, хранящемуся в sTemp. Обратите внимание: поскольку макрос выполняет возврат после удаления текста из основного документа, он предполагает, что то, что вы выбрали (и то, что перемещается в сноску)

не включает начальный пробел.

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

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

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