メインコンテンツへスキップ

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

Author: Siluvia Last Modified: 2025-05-23

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

Wordで脚注/文末脚注の区切り線を削除する

VBAコードを使用して脚注/文末脚注の区切り線を削除する


Wordで脚注/文末脚注の区切り線を削除する

以下の手順に従って、Wordで脚注または文末脚注の区切り線を削除できます:

  1. 脚注または文末脚注の区切り線を削除したい文書で、「表示」>「ドラフト」をクリックします。
    Draft button on the View tab on the ribbon
  2. 「参照」>「注釈の表示」をクリックします。
    Show Notes on the References tab on the ribbon
  3. 文書に脚注と文末脚注の両方が含まれている場合、「注釈の表示」ダイアログボックスが表示されます。表示したいオプションを選択し、「OK」をクリックします。例えば、「脚注エリアを表示」を選択します。
    Show Notes dialog box

    注意: 文書に脚注または文末脚注しかない場合は、このステップをスキップして次のステップに進んでください。

  4. これで文書の最後に「注釈」セクションが表示されます。「脚注」ドロップダウンから「脚注区切り線」を選択し、区切り線を選択してDeleteキーを押します。
    The separator line is selected
  5. 文書を「印刷レイアウト」ビューに戻します。
    The button to shift to the Print Layout view

これで文書から区切り線が削除されました。

The separator line of footnote is removed

注意: 文末脚注の区切り線を削除するには、「注釈の表示」ダイアログで「文末脚注エリアを表示」を選択し、ドロップダウンリストから「文末脚注区切り線」を選択します。


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

手動での操作が不便な場合、以下のVBAコードを使用して脚注、または脚注と文末脚注の両方の区切り線を迅速に削除できます:

  1. Word文書でAlt + F11を押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
  2. VBAウィンドウで「挿入」>「モジュール」をクリックし、次のコードをモジュールに貼り付けます。
    Module window opened in the VBA window

    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
  3. 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

最高のオフィス生産性ツール

Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...

📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...

内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...

🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...

創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...

🔍 精密な選択: 特定のページ / / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 変換ツール...

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみませんか?今すぐKutools for Wordをダウンロード!🚀