如何在Word文檔中刪除腳註/尾註分隔線?
當你在Word文檔中插入腳註或尾註時,腳註或尾註文字上方會出現一條水平分隔線。如果你想刪除此分隔線,可以嘗試本文中的方法。
在Word中刪除腳註/尾註分隔線
你可以按照以下步驟刪除Word中的腳註或尾註分隔線:
- 在要刪除腳註或尾註分隔線的文檔中,點擊「視圖」>「草稿」。
- 點擊「引用」>「顯示註釋」。
- 如果文檔同時包含腳註和尾註,將會彈出一個「顯示註釋」對話框。選擇你想要查看的部分,然後點擊「確定」。例如,選擇「查看腳註區域」。
注意:如果你的文檔只有腳註或尾註,請跳過此步驟並進行下一步。
- 現在文檔末尾會出現「註釋」部分。從「腳註」下拉選單中選擇「腳註分隔符」,選取分隔線後按下「刪除」鍵。
- 將文檔切換回「打印佈局」視圖。
分隔線現已從文檔中刪除。

注意:若要刪除尾註分隔線,請在「顯示註釋」對話框中選擇「查看尾註區域」,然後從下拉列表中選擇「尾註分隔符」。
使用VBA代碼刪除腳註/尾註分隔線
如果手動操作不方便,可以使用以下VBA代碼快速刪除腳註或同時刪除腳註和尾註分隔線:
- 在Word文檔中,按 Alt + F11 打開「Microsoft Visual Basic for Applications」窗口。
- 在VBA窗口中,點擊「插入」>「模塊」,然後將以下代碼粘貼到模塊中。
VBA代碼:從Word文檔中刪除腳註分隔線
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
- 按 F5 鍵運行代碼。所有腳註分隔線將立即被刪除。
注意:如果你想同時刪除腳註和尾註分隔線,請使用以下VBA代碼。
VBA代碼:從Word文檔中刪除腳註和尾註分隔線
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 -讓你的 Word進階,擁有超過 100 項強大功能!
🤖 Kutools AI Features:AI Assistant / 即時助手 / 超級潤色(保留格式) / 超級翻譯(保留格式) / AI遮擋 / AI校正...
📘 文檔掌控:文檔拆分頁面 / 文檔合併 / 選取內容多格式導出(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...
✏內容編輯:跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...
🧹 潔淨無憂:一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...
➕ 創新插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...
🔍 精準選取:鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...
⭐ 優質強化:輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 項轉換工具...
🌍 支援40+ 種語言:可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言!
