Как удалить линию-разделитель сносок или концевых сносок в документе Word?

АвторSiluviaДата изменения2025-04-09

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

Удаление линии-разделителя сносок/концевых сносок в Word

Удаление линии-разделителя сносок/концевых сносок с помощью кода VBA

Удаление линии-разделителя сносок/концевых сносок в Word

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

В документе, из которого вы хотите удалить линию-разделитель сносок или концевых сносок, выберите «Вид» → «Черновик».
Нажмите «Ссылки» > «Показать примечания».
Если документ содержит и сноски, и концевые сноски, откроется диалоговое окно «Показать примечания». Выберите нужный тип — например, «Область сносок» — и нажмите «ОК».
Примечание: Если в вашем документе есть только сноски или концевые сноски, пропустите этот шаг и перейдите к «Следующая запись».
Теперь раздел «Примечания» отображается в конце документа. В раскрывающемся списке «Сноски» выберите «Разделитель сносок», выделите линию-разделитель и нажмите клавишу Delete.
Переключите документ обратно в режим «Разметка страницы».

Разделяющая линия успешно удалена из документа.

Примечание: Чтобы удалить линию-разделитель концевых сносок, в диалоговом окне «Показать примечания» выберите «Область концевых сносок», а затем — «Разделитель концевых сносок» в раскрывающемся списке.

Удаление линий-разделителей сносок и концевых сносок с помощью кода VBA

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

В документе Word нажмите Alt + F11, чтобы открыть окно «Microsoft Visual Basic for Applications».

В окне VBA выберите «Insert» (Вставка) → «Module» (Модуль), затем вставьте приведённый ниже код в открывшийся модуль.

Код VBA: Удаление линии-разделителя сносок из документа Word

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

Нажмите F5, чтобы запустить код — все линии-разделители сносок будут удалены мгновенно.

Примечание: Используйте приведённый ниже код VBA, чтобы удалить как линии-разделители сносок, так и концевых сносок.

Код VBA: Удаление линий-разделителей сносок и концевых сносок из документа Word

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

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools