如何在 Word 文档中删除脚注或尾注的分隔线？

作者Siluvia修改日期2025-04-09

在 Word 文档中插入脚注或尾注时，脚注或尾注文本上方会自动显示一条水平分隔线。如需删除该分隔线，请参照本文提供的方法操作。

在 Word 中移除脚注/尾注分隔线

使用 VBA 代码移除脚注/尾注分隔线

在 Word 中移除脚注/尾注分隔线

您可以按照以下步骤，在 Word 中移除脚注或尾注分隔线：

在需要删除脚注或尾注分隔线的文档中，点击“视图”>“草稿”。
点击“引用”>“显示批注”。
如果文档中同时包含脚注和尾注，将会弹出“显示批注”对话框。请选择所需视图后，点击“确定”。例如，您可以选择“查看脚注区”。
注意：如果您的文档仅包含脚注或尾注，可跳过此步骤，直接进入下一步。
现在文档末尾将显示“批注”部分。在“脚注”下拉列表中选择“脚注分隔符”，选中分隔线后，按下 Delete 键。
将文档视图切换回“页面视图”模式。

文档中的分隔线已被删除。

注意：如需删除尾注分隔线，请在“显示批注”对话框中选择“查看尾注区”，然后在下拉列表中选择“尾注分隔符”即可。

使用 VBA 代码移除脚注/尾注分隔线

如果手动操作不便，您也可以使用下方 VBA 代码，快速移除脚注或同时移除脚注和尾注分隔线：

在 Word 文档中，按下 Alt + F11 即可打开“Microsoft Visual Basic for Applications”窗口。

在 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.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