跳到主要内容

如何在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

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/XLSX)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件 ...

内容编辑: 批量查找和替换 跨多个文件   /  调整所有图片的大小   /  转置表行和列  /  将表格转换为文字 ...

🧹 轻松清洁扫开 多余的空间  /  分节符  /   所有标题  /  文本框  /  超链接  /  如需更多删除工具,请前往我们的删除组

创意插入: 插页 千位分隔符  /  复选框  /  单选按钮  /  二维码  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  /  在我们的插入组中发现更多信息

🔍 精准选择: 精确定位特定页面  /    /  形状  /  标题段落  /  使用我们的选择组轻松导航

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具 ...

使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。

了解更多       免费下载      购买
 
Comments (6)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This fixed my problem! Thank you!
Rated 5 out of 5
This comment was minimized by the moderator on the site
si funciona, me ayudo para mi tesis, muchas gracias.
This comment was minimized by the moderator on the site
Brilliant! Thank you!
This comment was minimized by the moderator on the site
Thank you very much you have saved me from my boss he was like please do anything I want a good presentation and this footnotes are like a shit.thanks to you.
This comment was minimized by the moderator on the site
If you have more than one page of footnotes, you'll also want to remove the "Footnote Continuation Separater". They sure make it hard to find; when a double-click might just take you to it. This did help me too, BTW.
This comment was minimized by the moderator on the site
Thanks!
Worked for me :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations