Некоторые типы документов требуют использования сносок для облегчения документирования источников или предоставления дополнительной информации, относящейся к обсуждаемому содержанию. В какой-то момент вы можете захотеть удалить все сноски в документе. Вы можете попробовать выполнить простой поиск и заменить, чтобы удалить все сноски. Выполните следующие действия:
- Нажмите Ctrl + H , чтобы отобразить вкладку «Заменить» диалогового окна «Найти и заменить». (См. Рис. 1.)
- В поле «Найти» введите ^ f . Это означает, что вы хотите найти сноски.
- Убедитесь, что поле “Заменить на” пусто.
- Нажмите “Заменить все”.
- Закройте диалоговое окно «Найти и заменить».
Рис. 1. Вкладка «Замена» диалогового окна «Найти и заменить».
Этот подход работает, потому что при удалении меток сносок сноска, связанная с этой меткой, также автоматически удаляется.
Если вы обнаружите, что избавляетесь от сносок в большом количестве документов, вы можете создать макрос, который сделает эту работу за вас. Затем этот макрос можно назначить кнопке панели инструментов или параметру меню. Следующий макрос удалит все сноски в документе:
Sub DelFoots () Dim fn As Footnote For each fn In ActiveDocument.Footnotes fn.Delete Next End Sub