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

Author: Siluvia Last Modified: 2025-05-13

當你在Word文檔中插入腳註或尾註時，腳註或尾註文字上方會出現一條水平分隔線。如果你想刪除此分隔線，可以嘗試本文中的方法。

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

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

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

你可以按照以下步驟刪除Word中的腳註或尾註分隔線：

在要刪除腳註或尾註分隔線的文檔中，點擊「視圖」>「草稿」。
點擊「引用」>「顯示註釋」。
如果文檔同時包含腳註和尾註，將會彈出一個「顯示註釋」對話框。選擇你想要查看的部分，然後點擊「確定」。例如，選擇「查看腳註區域」。
注意：如果你的文檔只有腳註或尾註，請跳過此步驟並進行下一步。
現在文檔末尾會出現「註釋」部分。從「腳註」下拉選單中選擇「腳註分隔符」，選取分隔線後按下「刪除」鍵。
將文檔切換回「打印佈局」視圖。

分隔線現已從文檔中刪除。

The separator line of footnote is removed

注意：若要刪除尾註分隔線，請在「顯示註釋」對話框中選擇「查看尾註區域」，然後從下拉列表中選擇「尾註分隔符」。

使用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