如何在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 20181112If Activedocument.Footnotes.Count < 1 Then Exit SubIf ActiveWindow.View.SplitSpecial = wdPaneNone ThenActiveWindow.ActivePane.View.Type = wdNormalViewElseActiveWindow.View.Type = wdNormalViewEnd IfWith ActiveWindow.ActivePane.ViewIf .Type = wdPrintView Or .Type = wdWebView Or _.Type = wdPrintPreview ThenActiveWindow.View.SeekView = wdSeekFootnotesElseActiveWindow.View.SplitSpecial = wdPaneFootnotesEnd IfEnd WithActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparatorWith Selection.MoveRight Unit:=wdCharacter.TypeBackspace.TypeBackspaceEnd WithActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparatorWith Selection.MoveRight Unit:=wdCharacter, Count:=1.TypeBackspace.TypeBackspaceWith .ParagraphFormat.LineSpacingRule = wdLineSpaceMultiple.LineSpacing = LinesToPoints(0.06)End WithEnd WithActiveWindow.View.Type = wdPrintViewEnd Sub3。 按 F5 鍵來運行代碼。 然后，所有腳注的分隔線立即從文檔中刪除。
備注注意：如果要刪除腳注和尾注的所有分隔線，則以下VBA代碼可以提供幫助。
VBA代碼：刪除文檔中的腳注和尾注分隔線
Sub DeleteTheFootnoteSeparator()Updated by ExtendOffice 20181112If Activedocument.Footnotes.Count < 1 Then Exit SubIf ActiveWindow.View.SplitSpecial = wdPaneNone ThenActiveWindow.ActivePane.View.Type = wdNormalViewElseActiveWindow.View.Type = wdNormalViewEnd IfWith ActiveWindow.ActivePane.ViewIf .Type = wdPrintView Or .Type = wdWebView Or _.Type = wdPrintPreview ThenActiveWindow.View.SeekView = wdSeekFootnotesElseActiveWindow.View.SplitSpecial = wdPaneFootnotesEnd IfEnd WithActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparatorWith Selection.MoveRight Unit:=wdCharacter.TypeBackspace.TypeBackspaceEnd WithActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparatorWith Selection.MoveRight Unit:=wdCharacter, Count:=1.TypeBackspace.TypeBackspaceWith .ParagraphFormat.LineSpacingRule = wdLineSpaceMultiple.LineSpacing = LinesToPoints(0.06)End WithEnd WithActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparatorWith Selection.MoveRight Unit:=wdCharacter.TypeBackspace.TypeBackspaceEnd WithActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparatorWith Selection.MoveRight Unit:=wdCharacter, Count:=1.TypeBackspace.TypeBackspaceWith .ParagraphFormat.LineSpacingRule = wdLineSpaceMultiple.LineSpacing = LinesToPoints(0.06)End WithEnd WithActiveWindow.View.Type = wdPrintViewEnd SubCopy最佳辦公生產力工具
Kutools for Word- 通過 Over 提升您的文字體驗 100 顯著特點！深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.
