如何在 Word 文件中移除腳註或尾註的分隔線？

作者Siluvia修改日期2025-04-09

當您在 Word 文件中插入腳註或尾註時，其文字上方會自動出現一條水平分隔線。若想移除這條線，請嘗試本文提供的方法。

在 Word 中移除腳註／尾註分隔線

使用 VBA 程式碼移除腳註／尾註分隔線

在 Word 中移除腳註／尾註分隔線

您可以依照下列步驟在 Word 中移除腳註或尾註分隔線：

在您要移除腳註或尾註分隔線的文件中，請點選「檢視」>「草稿」。
點選「引用」>「顯示註解」。
若文件同時包含腳註與尾註，系統將彈出「顯示註解」對話方塊。請選擇您要檢視的區域（例如「檢視腳註區域」），然後點擊「確定」。
注意：若您的文件僅包含腳註或尾註，請跳過此步驟，直接前往下一條。
現在「註解」區段會顯示於文件末尾。請從「腳註」下拉選單中選擇「腳註分隔線」，選取該分隔線後，按下 Delete 鍵即可移除。
切換回「列印版面配置」檢視。

分隔線已從文件中移除。

注意：若要移除尾註分隔線，請先在「顯示註解」對話方塊中選擇「檢視尾註區域」，再從下拉列表中選取「尾註分隔線」。

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