Word 文書で脚注や末尾注の区切り線を削除するには、どうすればよいですか？

著者Siluvia変更日2025-04-09

Word 文書に脚注または末尾注を挿入すると、そのテキストの上部に水平な区切り線が表示されます。この線を削除したい場合は、本記事の方法をお試しください。

Word で脚注／末尾注の区切り線を削除する

VBA コードで脚注／末尾注の区切り線を削除する

Word で脚注／末尾注の区切り線を削除する

Word では、次の手順で脚注または末尾注の区切り線を削除できます。

脚注または末尾注の区切り線を削除したい文書で、「表示」＞「下書き」をクリックします。
「参考文献」＞「注釈の表示」をクリックしてください。
文書に脚注と末尾注の両方が含まれている場合、「注釈の表示」ダイアログボックスが開きます。表示したいビュー（たとえば「脚注領域を表示」）を選択し、「OK」をクリックしてください。
注：ドキュメントに脚注または末尾注のいずれか一方しかない場合は、この手順をスキップして次のレコードに進んでください。
これで文書の末尾に「注釈」セクションが表示されます。「脚注」ドロップダウンリストから「脚注区切り線」を選択し、表示された区切り線を選択して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