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

Author: Siluvia Last Modified: 2025-07-31

当您在Word文档中插入脚注或尾注时，脚注或尾注文本上方会出现一条水平分隔线。如果要删除此分隔线，请尝试本文中的方法。

删除Word中的脚注/尾注分隔线

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

删除Word中的脚注/尾注分隔线

您可以按照以下步骤删除Word中的脚注或尾注分隔线：

在要删除脚注或尾注分隔线的文档中，点击“视图”>“草稿”。
点击“引用”>“显示备注”。
如果文档同时包含脚注和尾注，则会弹出一个“显示备注”对话框。选择您想要查看的内容，然后点击“确定”。例如，选择“查看脚注区域”。
注意：如果您的文档只有脚注或尾注，请跳过此步骤并进入下一步。
现在，“备注”部分出现在文档末尾。从“脚注”下拉菜单中选择“脚注分隔符”，选中分隔线，并按下删除键。
将文档切换回“打印布局”视图。

分隔线现在已从文档中删除。

The separator line of footnote is removed

注意：要删除尾注分隔线，请在“显示备注”对话框中选择“查看尾注区域”，然后从下拉列表中选择“尾注分隔符”。

使用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