Как удалить разделительную линию сноски / концевой сноски в документе Word?
При вставке сносок или концевых сносок в документ Word вы всегда найдете горизонтальную разделительную линию над текстом сносок или концевых сносок. Если вы хотите избавиться от этих разделительных линий, попробуйте методы, описанные в этой статье.
Удалить разделительную линию сноски / концевой сноски в Word
Удалить разделительную линию сноски / концевой сноски с кодом VBA
Удалить разделительную линию сноски / концевой сноски в Word
Вы можете удалить сноску или разделительную линию концевой сноски в Word следующим образом.
1. Удалите из документа сноску или разделительную линию концевых сносок, нажмите Вид > Осадка.
2. Затем нажмите Рекомендации > Показать заметки как показано ниже.
3. Если в вашем документе есть и сноски, и концевые сноски, Показать заметки появится диалоговое окно, выберите нужный вариант и нажмите кнопку OK кнопка. Здесь я выбираю Посмотреть сноску области.
Внимание: Если в вашем документе есть только сноска или концевая сноска, пропустите этот шаг и перейдите к шагу 4.
4. Теперь Заметки раздел отображается в конце документа, выберите Разделитель сносок в Сноски в раскрывающемся списке выберите разделительную линию и нажмите Удалить ключ, чтобы удалить его. Смотрите скриншот:
5. Перейти к Компоновка страницы вид документа.
Тогда вы увидите, что разделительная линия сноски сразу же удаляется из документа.
Внимание: Чтобы удалить разделительную линию концевых сносок, вам просто нужно проверить Посмотреть сноску область в указанном выше Показать заметки диалоговое окно, а затем выберите Разделитель концевых сносок в Сноски выпадающий список.
Удалите разделительные линии сносок / концевых сносок с помощью кода VBA
Если описанный выше метод неудобен для вас, вы можете попробовать следующие коды VBA, чтобы быстро удалить все разделительные линии сноски или как сноску, так и концевую сноску из документа.
1. В документе удалите разделительную линию сноски, нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно модуля.
Код VBA: удалить разделительную линию сноски в документе
Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
With ActiveWindow.ActivePane.View
If .Type = wdPrintView Or .Type = wdWebView Or _
.Type = wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
End With
ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
With Selection
.MoveRight Unit:=wdCharacter
.TypeBackspace
.TypeBackspace
End With
ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.TypeBackspace
.TypeBackspace
With .ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
End With
ActiveWindow.View.Type = wdPrintView
End Sub
3. нажмите F5 ключ для запуска кода. Тогда все разделительные линии сносок сразу удаляются из документа.
Внимание: Если вы хотите удалить все разделительные линии сноски и концевой сноски, может помочь приведенный ниже код VBA.
Код VBA: удалить строки разделителя сноски и концевой сноски в документе
Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
With ActiveWindow.ActivePane.View
If .Type = wdPrintView Or .Type = wdWebView Or _
.Type = wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
End With
ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
With Selection
.MoveRight Unit:=wdCharacter
.TypeBackspace
.TypeBackspace
End With
ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.TypeBackspace
.TypeBackspace
With .ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
End With
ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
With Selection
.MoveRight Unit:=wdCharacter
.TypeBackspace
.TypeBackspace
End With
ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.TypeBackspace
.TypeBackspace
With .ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
End With
ActiveWindow.View.Type = wdPrintView
End Sub
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...