Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как удалить строку разделителя сносок / концевой сноски в документе 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


Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.