删除 Word 文档中脚注或尾注分隔符的 4 种方法

立即分享:

在这篇文章中,我们将与您分享在 Word 文档中删除脚注或尾注分隔符的 4 种方法。

如果您曾经在文档中插入脚注或尾注,您会发现文本上方始终有一条水平线。 此分隔符清楚地标出脚注或尾注区域。 然而,有些人可能会觉得它很烦人并想摆脱它。 本文将为您提供 4 种方法。删除脚注或尾注分隔符

方法 1:手动删除脚注分隔符

  1. 首先,单击“查看”选项卡,然后单击“草稿”视图。点击“查看”->点击“草稿”
  2. 接下来单击“参考”,然后单击“脚注”区域中的“显示注释”。
  3. 现在,如果您的文档同时包含脚注和尾注,则会弹出一个框。 选择查看脚注或尾注区域,然后单击“确定”。 现在让我们先选择“查看脚注区域”。点击“参考文献”->点击“显示注释”->选择一个区域->点击“确定”
  4. 屏幕底部将打开一个注释窗格。 单击下拉按钮选择“脚注分隔符”。
  5. 然后单击以选择分隔符。 按“Backspace”或“Delete”删除分隔符。点击下拉按钮->选择“脚注分隔符”->选择脚注分隔符
  6. 然后选择“脚注连续分隔符”,然后将其删除。选择“脚注连续分隔符”->选择分隔符
  7. 去掉分隔符后,会留下一个空行,不能直接删除。 在这里,我们想出了一个解决方法。 确保选择“脚注分隔符”。留下一个空行
  8. 然后单击“开始”选项卡,单击“段落”组中的箭头按钮,打开同名对话框。
  9. “行间距”选择“多个”,设置值为“0.06”,点击“确定”。点击“开始”->点击箭头按钮打开“段落”框->“行距”选择“多行”->设置值为0.06->点击“确定”
  10. 现在空行的高度降到了最低。 您可以将视图更改回“打印布局”。缩小空白行的高度

检查结果如下:删除脚注分隔符

方法 2:手动删除尾注分隔符

  1. 重复方法 3 中的前 1 个步骤,但这次在“显示注释”框中选择“查看尾注区域”。选择“查看尾注区域”->点击“确定”
  2. 在底部打开的笔记窗格中,选择“尾注分隔符”并选择分隔符。 然后删除它。选择“尾注分隔符”->选择分隔符
  3. 接下来选择“Endnote Continuation Separator”并选择分隔符并将其删除。选择“Endnote Continuation Separator”->选择分隔符
  4. 然后通过单击下拉按钮再次选择“尾注分隔符”。
  5. 并重复方法 8 中的步骤 10 至 1。

结果如下:去除尾注分隔符的效果

方法 3:通过运行宏删除脚注分隔符

  1. 首先,按“Alt+F11”在 Word 中触发 VBA 编辑器。
  2. 接下来单击“正常”,然后单击“插入”选项卡。
  3. 然后选择“模块”。点击“普通”->点击“插入”->点击“模块”
  4. 然后双击打开它并将宏粘贴到那里:
Sub DeleteTheFootnoteSeparator()

  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdNormalView
  Else
    ActiveWindow.View.Type = wdNormalView
  End If
 
  If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
    ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
    ActiveWindow.View.SeekView = wdSeekFootnotes
  Else
    ActiveWindow.View.SplitSpecial = wdPaneFootnotes
  End If
 
  '  Delete the footnote separator. 
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace
 
  '  Eliminate the blank line after deleting the footnote separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With

  '  Delete the footnote continuation separator. 
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace

  '  Eliminate the blank line after deleting the footnote continuation separator. 
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
 
  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  Else
    ActiveWindow.View.Type = wdPrintView
  End If
End Sub
  1. 单击“运行”。粘贴代码->点击“运行”

宏应自动删除所有脚注分隔符并最小化留下的空白行。

方法 4:通过运行宏删除尾注分隔符

按照方法 3 中的确切步骤安装和运行宏。 只是,用这些代码替换代码:

Sub DeleteTheEndnoteSeparator()

  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdNormalView
  Else
    ActiveWindow.View.Type = wdNormalView
  End If
 
  If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
    ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
    ActiveWindow.View.SeekView = wdSeekEndnotes
  Else
    ActiveWindow.View.SplitSpecial = wdPaneEndnotes
  End If
 
  '  Delete the endnote separator.
  ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace
 
  '  Eliminate the blank line after deleting the endnote separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
 
  '  Delete the endnote continuation separator. 
  ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace

  '  Eliminate the blank line after deleting the endnote continuation separator. 
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  Else
    ActiveWindow.View.Type = wdPrintView
  End If
End Sub

保存您的文件

没有软件是万无一失的,Word 也是如此。 一般来说,它一直是文字处理的有用工具。 然而,在 Word 崩溃时会有一些停机时间,从而使您的文档损坏。 更糟糕的是,该文件是您拥有的唯一副本。 这太可悲了。 但是,如果您选择合格的公用事业 修复文档 一次,您可能会得到完全不同的结果。

作者简介:

Vera Chen 是一位数据恢复专家 DataNumen, Inc.,它是数据恢复技术领域的世界领先者,包括 修复 xls 和 pdf 修复软件产品。 欲了解更多信息,请访问 datanumen.com

立即分享:

评论被关闭。