跳到主要內容

如何在Word文檔中刪除腳註/尾註分隔線?

在Word文檔中插入腳註或尾註時,您會發現在腳註或尾註文本上方始終有一條水平分隔線。 如果要擺脫這些分隔線,請嘗試使用本文中的方法。

刪除Word中的腳註/尾註分隔線

用VBA代碼刪除腳註/尾註分隔線


刪除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 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

最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

深入了解下面突出顯示的功能或 按此探索 Kutools for Word 的全部功能.

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/XLSX)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件 ...

內容編輯: 批量查找和替換 跨多個文件   /  調整所有圖片的大小   /  轉置表行和列  /  將表格轉換為文字 ...

🧹 輕鬆清潔掃開 多餘的空間  /  分節符  /   所有標題  /  文本框  /  超鏈接  /  如需更多刪除工具,請前往我們的刪除群組

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  /  在我們的插入組中發現更多信息

🔍 精準選擇: 精確定位特定頁面  /    /  形狀  /  標題段落  /  使用我們的選擇組輕鬆導航

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具 ...

使用 Kutools 轉換您的 Word 任務。 👉 立即下載並試用 30 天 🚀。

閱讀更多       免費下載      購買
 
Comments (6)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This fixed my problem! Thank you!
Rated 5 out of 5
This comment was minimized by the moderator on the site
si funciona, me ayudo para mi tesis, muchas gracias.
This comment was minimized by the moderator on the site
Brilliant! Thank you!
This comment was minimized by the moderator on the site
Thank you very much you have saved me from my boss he was like please do anything I want a good presentation and this footnotes are like a shit.thanks to you.
This comment was minimized by the moderator on the site
If you have more than one page of footnotes, you'll also want to remove the "Footnote Continuation Separater". They sure make it hard to find; when a double-click might just take you to it. This did help me too, BTW.
This comment was minimized by the moderator on the site
Thanks!
Worked for me :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations