Как удалить все сноски в Microsoft Word

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

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

Если их слишком много для удаления вручную, есть 3 способа удалить их все сразу.

Удаление сносок и сносок с помощью параметра «Найти и заменить»

Быстрые ссылки

  • Удаление сносок и сносок с помощью параметра «Найти и заменить»
        • В редактируемом документе откройте диалоговое окно «Найти и заменить». На Mac откройте «Правка»> «Найти» и выберите «Расширенный поиск и замена». Если вы используете Word 2013 или 2016, вы можете сделать это, нажав Ctrl + H.
        • Открыв диалоговое окно, нажмите «Заменить».
        • В разделе «Найти что» введите ^ f для сносок и ^ e для сносок. Вы также можете сделать это, выбрав Дополнительно, щелкнув Специально и найдя в списке метку сноски или метку сноски.
        • Оставьте поле «Заменить на» пустым, затем перейдите к «Заменить все».
  • Запись макросов
  • Использование кодов VBA
        • Нажмите Alt + F11, чтобы запустить редактор VBA.
        • Пойдите, чтобы Вставить> Модуль.
        • Дважды щелкните, чтобы открыть модуль, затем вставьте следующий код, чтобы удалить все сноски:
        • Выберите Run.
  • Удаление сносок вручную
  • Последнее слово

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

  1. В редактируемом документе откройте диалоговое окно «Найти и заменить». На Mac откройте «Правка»> «Найти» и выберите «Расширенный поиск и замена». Если вы используете Word 2013 или 2016, вы можете сделать это, нажав Ctrl + H.
  2. Открыв диалоговое окно, нажмите «Заменить».
  3. В разделе «Найти что» введите ^ f для сносок и ^ e для сносок. Вы также можете сделать это, выбрав Дополнительно, щелкнув Специально и найдя в списке метку сноски или метку сноски.
  4. Оставьте поле «Заменить на» пустым, затем перейдите к «Заменить все».

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

Запись макросов

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

Sub DeleteFootnotes ()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С помощью Selection.Find
.Text = "^ f"
.Replacement.Text = ""
.Вперед = Истина
.Wrap = wdFindContinue
.Формат = Ложь
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Конец с
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Вы можете удалить сноски таким же образом, просто замените ^ f на ^ e. Присвойте макрос кнопке или клавише, и вы сможете быстро удалить все сноски, найденные в документе.

Использование кодов VBA

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

  1. Нажмите Alt + F11, чтобы запустить редактор VBA.
  2. Пойдите, чтобы Вставить> Модуль.
  3. Дважды щелкните, чтобы открыть модуль, затем вставьте следующий код, чтобы удалить все сноски:

Sub DeleteAllfootnotes ()
Dim objFootnote As Footnote
Для каждого объекта в ActiveDocument.Footnotes
objFootnote.Delete
следующий
End Sub

Для удаления сносок вставьте этот код:

Sub DeleteAllEndnotes ()
Dim objEndnote As Endnote
Для каждого объекта в ActiveDocument.Endnotes
objEndnote.Delete
следующий
End Sub

  1. Выберите Run.

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

Удаление сносок вручную

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

Чтобы удалить сноску, все, что вам нужно сделать, это удалить номер из тела, и он исчезнет автоматически. Вы также можете щелкнуть правой кнопкой мыши на самой сноске, выбрать «Перейти к сноске», а затем удалить номер.

Последнее слово

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

Для одноразового использования вы можете пойти по пути редактора VBA или использовать первый метод, если кодирование не для вас. Какой бы путь вы ни выбрали, вы сможете быстро разобраться со сносками.

Ссылка на основную публикацию
Adblock
detector