脚注と文末脚注は、ドキュメントにコメント、説明、および参照を追加する場合に非常に役立ちます。 テキストの本文から追加のメモを簡単に分離できます。
テキストの後ろに画像を配置する方法-Microsoft Wordの記事も参照してください。
ただし、デフォルトでそれらを取得する場合がありますが、必要ない場合があります。 有用ではない脚注で満たされた文書を受け取る場合があります。 それらを削除する場合、Wordには複数の方法があります。
それらが手動で削除するには多すぎる場合、それらすべてを一度に削除する3つの方法があります。
検索と置換オプションを使用して脚注と文末脚注を削除する
クイックリンク
- 検索と置換オプションを使用して脚注と文末脚注を削除する
-
-
- 編集中のドキュメントで、[検索と置換]ダイアログボックスを開きます。Macでは、[編集]> [検索]に移動し、[高度な検索と置換]を選択します。 Word 2013または2016を使用している場合は、Ctrl + Hを押してこれを行うことができます。
- ダイアログボックスを開いたら、[置換]をクリックします
- [検索対象]で、脚注に^ f、文末脚注に^ eを入力します。 これを行うには、[詳細]を選択し、[特別]をクリックして、リストで脚注マークまたは文末脚注マークを見つけます。
- [置換]ボックスを空白のままにして、[すべて置換]に進みます。
-
-
- マクロを記録する
- VBAコードを使用する
-
-
- Alt + F11を押してVBAエディターを実行します。
- [挿入]> [モジュール]に移動します。
- モジュールをダブルクリックして開き、次のコードを貼り付けてすべての脚注を削除します。
- 実行を選択します。
-
-
- 脚注を手動で削除する
- 最後の言葉
これは最も広く使用されている方法であり、最も簡単な方法の1つでもあります。 数回クリックするだけで、すべての脚注を削除できます。 方法は次のとおりです。
-
編集中のドキュメントで、[検索と置換]ダイアログボックスを開きます。Macでは、[編集]> [検索]に移動し、[高度な検索と置換]を選択します。 Word 2013または2016を使用している場合は、Ctrl + Hを押してこれを行うことができます。
-
ダイアログボックスを開いたら、[置換]をクリックします
-
[検索対象]で、脚注に^ f、文末脚注に^ eを入力します。 これを行うには、[詳細]を選択し、[特別]をクリックして、リストで脚注マークまたは文末脚注マークを見つけます。
-
[置換]ボックスを空白のままにして、[すべて置換]に進みます。
これは、脚注と文末脚注を削除する3つの方法の中で最も簡単です。 もう少し技術に精通していて、コーディングを試してみたい場合は、2つの追加オプションがあります。
マクロを記録する
多数の脚注がある複数のドキュメントを処理する必要がある場合は、マクロを記録することが、それらすべてを削除する最良の方法です。 これを行うと、キーボードのキーまたはWordのオプションにマクロを割り当てることができます。 これにより、ドキュメントからすべての脚注を削除する必要があるたびに使用できます。 これを行うマクロを記録するには、次のコードを使用します。
Sub DeleteFootnotes()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^f"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
同様に文末脚注を削除できます。^ fを^ eに置き換えてください。 マクロをボタンまたはキーに割り当てると、ドキュメント内で見つかったすべての脚注をすぐに削除できます。
VBAコードを使用する
これは、非常に単純なので、コーディングの知識を必要としない方法です。 マクロのように複数回使用することはできませんが、文書から脚注と文末脚注を削除する非常に高速な方法です。 これがあなたがしなければならないことです。
Sub DeleteAllfootnotes()
Dim objFootnote As Footnote
For Each objFootnote In ActiveDocument.Footnotes
objFootnote.Delete
Next
End Sub
文末脚注を削除するには、次のコードを貼り付けます。
Sub DeleteAllEndnotes()
Dim objEndnote As Endnote
For Each objEndnote In ActiveDocument.Endnotes
objEndnote.Delete
Next
End Sub
この方法では、コードなしではすべてのマークを削除できないため、手動で削除できない可能性があるすべての脚注と文末脚注を削除できます。 これには、マクロが必要なカスタマイズされたマークが含まれます。
脚注を手動で削除する
最後に、それらの一部のみを削除することもできます。 この場合、それを行う唯一の方法は手動です。 各脚注には、テキストの本文に対応する番号があります。
脚注を削除するには、本文から番号を削除するだけで、自動的に消えます。 脚注自体を右クリックして[脚注に移動]を選択し、そこから番号を削除することもできます。
最後の言葉
状況に応じて、上記の方法のいずれかを使用して、脚注と文末脚注を取り除くことができます。 繰り返し対処しなければならないことがわかっている場合は、マクロを記録してキーボードのキーに割り当てるのが最善の選択です。
単独使用の場合は、VBAエディターのルートに進むか、コーディングがあなたの目的でない場合は最初の方法を使用できます。 どちらの方法を選択しても、すぐに脚注を処理できます。
