Word で文末脚注をすべてプレーンテキストに変換する方法

Word の文末脚注は通常、引用や追加の参照情報に使われますが、編集や書式設定を簡単にするため、通常のテキストに変換したい場合もあるでしょう。特に長いドキュメントでは、文末脚注を一つひとつ手動でコピー＆ペーストするのは非常に面倒です。本ガイドでは、文末脚注をプレーンテキストに効率よく変換する3 つの方法をご紹介します。

手動で文末脚注をテキストに変換

Kutools for Word で文末脚注をテキストに変換

VBA で文末脚注をテキストに変換

---

手動で文末脚注をテキストに変換

Word で文末脚注を手動でプレーンテキストに変換する手順は、次のとおりです。

1. 文末脚注セクション内の任意の位置にカーソルを置き、Ctrl + Aを押すと、ドキュメント内のすべての文末脚注が選択されます。
2. 選択した文末脚注をコピーするには、Ctrl + Cを押してください。
3. カーソルを文末脚注セクションの直前にあるドキュメントの末尾に移動するには、Ctrl + Endキーを押してください。
4. コピーした文末脚注をドキュメントの末尾に貼り付けるには、Ctrl + Vを押してください。文末脚注は、順序を保ったままプレーンテキストに変換されます。

   

5. 必要に応じて、貼り付けた各文末脚注の直前の番号「1」を、元の番号に手動で置き換えてください。

---

Kutools for Word で文末脚注をテキストに変換を簡単に

Word で文末脚注をテキストに手動で変換するのは、特に VBA に不慣れな初心者にとっては面倒です。しかし、Kutools for Wordを使えば、Convert Endnotes to Textユーティリティでワンクリックするだけで、この作業を瞬時に完了できます。

1. クリックして、Kutools > 変換 > 脚注をテキストに変換。

   

クリックすると、Convert Endnotes to Textにより、ドキュメント内の文末脚注が即座にテキストに変換されます（下記のスクリーンショット参照）。

---

VBA で文末脚注をテキストに変換

Word では、VBA コードを使って文末脚注をプレーンテキストに変換することも可能です。以下の手順に従ってください。

1. Microsoft Visual Basic for Applicationsウィンドウを開くには、Alt + F11を押します。
2. クリックして、モジュールを挿入タブから選択し、次の VBA コードをモジュールウィンドウにコピー＆ペーストします。

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. 実行ボタンをクリックするか、実行を押すか、F5キーを押して、VBA コードを実行します。

デモ：Word で文末脚注をすべてテキストに素早く変換

---

関連記事：

• Word で複数の表をテキストに変換を変換
• Word での数式を画像に変換

---