如何在Word文档中删除脚注/尾注分隔线？-英雄云拓展知识分享

在Word文档中插入脚注或尾注时，您会发现在脚注或尾注文本上方始终有一条水平分隔线。 如果要摆脱这些分隔线，请尝试使用本文中的方法。

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

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

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

您可以依照以下步骤删除Word中的脚注或尾注分隔符行。

1.在文档中，将其脚注或尾注分隔线删除，单击 阅读 > 草案.

2。 然后点击 参考 > 显示备注 以下图所示。

3.如果文档中同时有脚注和尾注，则 显示备注 对话框将弹出，请针对需要选择一个选项，然后单击 OK 按钮。 在这里我选择 查看脚注 区。

备注：如果文档中仅存在脚注或尾注，请疏忽此步骤，然后转到步骤4。

4.现在 笔记 部份显示在文档末尾，请选择 脚注分隔符 在 脚注 下拉列表，选择分隔线，然后按 删除 键删除它。 看截图：

5.移至 打印布局 文档视野。

然后，您会看到脚注的分隔线立即从文档中删除。

备注：要删除尾注分隔符行，只需检查 查看尾注 上面的区域 显示备注 对话框，然后选择 尾注分隔符 在 尾注 下拉列表。

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

如果上述方法不方便，您可以尝试使用以下VBA代码从文档中快捷删除脚注或脚注和尾注的所有分隔线。

1.在文档中，您将删除脚注的分隔线，然后按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中，单击 插入 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。

VBA代码：删除文档中的脚注分隔线

Sub DeleteTheFootnoteSeparator()
' 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()
' 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