Удаление всех сносок

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

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

  3. В поле «Найти» введите ^ f . Это означает, что вы хотите найти сноски.
  4. Убедитесь, что поле “Заменить на” пусто.
  5. Нажмите “Заменить все”.
  6. Закройте диалоговое окно «Найти и заменить».

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

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

 Sub DelFoots () Dim fn As Footnote For each fn In ActiveDocument.Footnotes fn.Delete Next End Sub 

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