Сноски и концевые сноски могут быть очень полезны, если вы хотите добавить к документу комментарии, пояснения и ссылки. Они позволяют легко отделить дополнительные примечания от основного текста.
Однако иногда вы получаете их по умолчанию, что может вам не понадобиться. Вы можете получить документы, заполненные сносками, которые вам не нужны. Если вы хотите удалить их, Word предлагает несколько способов сделать это.
Если их слишком много для удаления вручную, есть 3 способа удалить их все сразу.
Удаление сносок и концевых сносок с помощью функции поиска и замены
Это наиболее широко используемый метод, а также один из самых простых. Всего за пару кликов вы можете избавиться от всех сносок. Вот как это сделать.
В редактируемом документе откройте диалоговое окно «Найти и заменить»: на Mac выберите «Правка»> «Найти» и выберите «Расширенный поиск и замена». Если вы используете Word 2013 или 2016, вы можете сделать это, нажав Ctrl + H.
Открыв диалоговое окно, нажмите кнопку "Заменить".
В разделе «Найти» введите ^ f для сносок и ^ e для концевых сносок. Вы также можете сделать это, выбрав «Еще», нажав «Особые» и найдя в списке отметку сноски или концевую сноску.
Оставьте поле «Заменить на» пустым и перейдите к «Заменить все».
Это самый простой из трех способов удаления сносок и концевых сносок. Если вы немного разбираетесь в технологиях и хотите поэкспериментировать с кодированием, есть два дополнительных варианта.
Запись макросов
Если вам приходится иметь дело с несколькими документами, в которых много сносок, запись макроса - лучший способ удалить их все. После этого вы можете назначить макрос клавише на клавиатуре или параметру в Word. Это позволит вам использовать его каждый раз, когда вам нужно удалить все сноски из документа. Чтобы записать макрос, который сделает это, используйте следующие коды:
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting С помощью Selection.Find .Text = "^ f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = Ложь .MatchCase = Ложь .MatchWholeWord = Ложь .MatchWildcards = Ложь .MatchSoundsLike = Ложь .MatchAllWordForms = Ложь Конец с Selection.Find.Execute Заменить: = wdReplaceAll Конец подпискиSub DeleteFootnotes ()
Вы можете удалить концевые сноски таким же образом, просто замените ^ f на ^ e. Назначьте макрос кнопке или клавише, и вы сможете удалить все сноски, найденные в документе, в кратчайшие сроки.
Использование кодов VBA
Это метод, для которого вам не нужны знания программирования, поскольку он очень простой. Он не допускает многократного использования макросов, но это молниеносный способ удаления сносок и концевых сносок из документа. Вот что тебе нужно сделать.
Нажмите Alt + F11, чтобы запустить редактор VBA.
Перейдите в Вставить> Модуль.
Дважды щелкните, чтобы открыть модуль, затем вставьте следующий код, чтобы удалить все сноски:
Dim objFootnote As Footnote Для каждого объекта objFootnote в ActiveDocument.Footnotes objFootnote.Delete Следующий Конец подпискиSub DeleteAllfootnotes ()
Чтобы удалить концевые сноски, вставьте этот код:
Dim objEndnote As Endnote Для каждого objEndnote в ActiveDocument.Endnotes objEndnote.Delete Следующий Конец подписки Этот метод позволяет удалить все сноски и концевые сноски, которые вы, возможно, не сможете удалить вручную, поскольку не все пометки можно удалить без кода. Сюда входят настраиваемые метки, для которых требуется макрос. Наконец, вы можете удалить только некоторые из них. В этом случае единственный способ сделать это - вручную. Каждая сноска имеет соответствующий номер в теле текста. Чтобы удалить сноску, все, что вам нужно сделать, это удалить число из тела, и оно исчезнет автоматически. Вы также можете щелкнуть правой кнопкой мыши по самой сноске, выбрать «Перейти к сноске», а затем удалить номер оттуда. В зависимости от ситуации вы можете использовать любой из вышеперечисленных методов, чтобы избавиться от сносок и концевых сносок. Если вы знаете, что вам придется сталкиваться с ними неоднократно, лучше всего записать макрос и назначить его клавише на клавиатуре. Для одноразового использования вы можете пойти по пути редактора VBA или использовать первый метод, если кодирование не для вас. Каким бы путем вы ни выбрали путь, вы сразу же сможете работать со сносками. Sub DeleteAllEndnotes ()
Выберите "Выполнить".
Удаление сносок вручную
Последнее слово