如何在Word文檔中刪除腳注/尾注分隔線?
在Word文檔中插入腳注或尾注時,您會發(fā)現(xiàn)在腳注或尾注文本上方始終有一條水平分隔線。 如果要擺脫這些分隔線,請嘗試使用本文中的方法。
刪除Word中的腳注/尾注分隔線

用VBA代碼刪除腳注/尾注分隔線
刪除Word中的腳注/尾注分隔線
您可以按照以下步驟刪除Word中的腳注或尾注分隔符行。
1.在文檔中,將其腳注或尾注分隔線刪除,單擊 查看 > 草案.
2。 然后點擊 參考資料 > 顯示備注 如下圖所示。
3.如果文檔中同時有腳注和尾注,則 顯示備注 對話框?qū)棾觯埜鶕?jù)需要選擇一個選項,然后單擊 OK 按鈕。 在這里我選擇 查看腳注 區(qū)。
備注:如果文檔中僅存在腳注或尾注,請忽略此步驟,然后轉(zhuǎn)到步驟4。
4.現(xiàn)在 部分顯示在文檔末尾,請選擇 腳注分隔符 ,在 腳注 下拉列表,選擇分隔線,然后按 刪除 鍵刪除它。 看截圖:
5.移至 打印布局 文檔視圖。
然后您可以看到腳注的分隔線立即從文檔中刪除。
備注:要刪除尾注分隔符行,只需檢查 查看尾注 上面的區(qū)域 顯示備注 對話框,然后選擇 尾注分隔符 ,在 尾注 下拉列表。
使用VBA代碼刪除腳注/尾注分隔線
如果上述方法不方便,您可以嘗試使用以下VBA代碼從文檔中快速刪除腳注或腳注和尾注的所有分隔線。
1.在文檔中,您將刪除腳注的分隔線,然后按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2.在 Microsoft Visual Basic應(yīng)用程序窗口中,單擊插頁 > 模塊。 然后將下面的VBA代碼復(fù)制到“模塊”窗口中。
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
最佳辦公生產(chǎn)力工具
Kutools for Word - 通過 Over 提升您的文字體驗 100 顯著特點!
深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.
?? 文檔掌握: 分頁 / 合并文件 / 以各種格式導(dǎo)出選擇(PDF/TXT/DOC/XLSX)/ 批量轉(zhuǎn)換為PDF / 將頁面導(dǎo)出為圖像 / 一次打印多個文件 ...
? 內(nèi)容編輯: 批量查找和替換 跨多個文件 / 調(diào)整所有圖片的大小 / 轉(zhuǎn)置表行和列 / 將表格轉(zhuǎn)換為文字 ...
?? 輕松清潔: 掃開 多余的空間 / 分節(jié)符 / 所有標(biāo)題 / 文本框 / 超鏈接 / 如需更多刪除工具,請前往我們的刪除組
? 創(chuàng)意插入: 插頁 千位分隔符 / 復(fù)選框 / 單選按鈕 / 二維碼 / 條碼 / 對角線表 / 公式標(biāo)題 / 圖片說明 / 表標(biāo)題 / 多張圖片 / 在我們的插入組中發(fā)現(xiàn)更多信息
?? 精準(zhǔn)選擇: 精確定位特定頁面 / 表 / 形狀 / 標(biāo)題段落 / 使用我們的選擇組輕松導(dǎo)航
? 星級增強: 快速導(dǎo)航至任何位置/自動插入重復(fù)文本 / 在文檔窗口之間無縫切換 / 11 轉(zhuǎn)換工具 ...
使用 Kutools 轉(zhuǎn)換您的 Word 任務(wù)。 ?? 立即下載并試用 30 天 ??。
了解更多 免費下載 購買