如何在Word文檔中刪除腳註/尾註分隔線？
在Word文檔中插入腳註或尾註時，您會發現在腳註或尾註文本上方始終有一條水平分隔線。 如果要擺脫這些分隔線，請嘗試使用本文中的方法。
刪除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()
'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 Sub3。 按 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 人工智慧助手：用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔，全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇（PDF/TXT/DOC/HTML...） / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具，請前往我們的 刪除組...
➕ 創意插入： 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇：精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...
