Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

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

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

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

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

  1. В документе, где вы хотите удалить разделительную линию сносок или концевых сносок, нажмите «Вид» > «Черновик».
    Draft button on the View tab on the ribbon
  2. Нажмите «Ссылки» > «Показать сноски».
    Show Notes on the References tab on the ribbon
  3. Если документ содержит как сноски, так и концевые сноски, появится диалоговое окно «Показать сноски». Выберите нужный вид, затем нажмите «ОК». Например, выберите «Просмотр области сносок».
    Show Notes dialog box

    Примечание: Если ваш документ содержит только сноски или только концевые сноски, пропустите этот шаг и перейдите к следующему.

  4. Теперь раздел «Примечания» появится в конце документа. Выберите «Разделитель сносок» из выпадающего списка «Сноски», выделите разделительную линию и нажмите клавишу Удалить.
    The separator line is selected
  5. Переключите документ обратно в режим просмотра «Макет печати».
    The button to shift to the Print Layout view

Теперь разделительная линия была удалена из документа.

The separator line of footnote is removed

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

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

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

  1. В документе Word нажмите Alt + F11, чтобы открыть окно «Microsoft Visual Basic для приложений».
  2. В окне VBA нажмите «Вставить» > «Модуль», а затем вставьте следующий код в модуль.
    Module window opened in the VBA window

    Код 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
  3. Нажмите 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

Лучшие инструменты для повышения производительности в офисе

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

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

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

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

🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...

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

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

⭐ Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

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

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

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

Лучшие инструменты для повышения производительности в офисе

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

Бесплатная загрузка Купить Подробнее о Kutools