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

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author: Sun Last Modified: 2025-08-26

Wordでの文末脚注は通常、引用や追加の参照に使用されますが、編集や書式設定を容易にするために、それらを通常のテキストに変換する必要がある場合があります。各文末脚注を手動でコピーして貼り付けるのは面倒な作業であり、特に長い文書ではそうです。このガイドでは、文末脚注をプレーンテキストに変換するための3つの効率的な方法を紹介します。

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

Kutools for Wordを使用して文末脚注をテキストに変換する good idea

VBAを使用して文末脚注をテキストに変換する


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

以下の手順に従って、Wordで文末脚注を手動でプレーンテキストに変換します:

  1. 文末脚注セクション内の任意の場所にカーソルを置き、Ctrl + Aを押して文書内のすべての文末脚注を選択します。
  2. 選択した文末脚注をコピーするためにCtrl + Cを押します。
  3. 文書の最後、文末脚注セクションの直前にカーソルを移動するためにCtrl + Endを押します。
  4. 文書の最後にコピーした文末脚注を貼り付けるためにCtrl + Vを押します。文末脚注は順序を維持しますが、プレーンテキストに変換されます。
    Endnotes are pasted as text
  5. 必要に応じて、貼り付けられた各文末脚注の前の数字「1」を元の番号に手動で置き換えます。

Kutools for Wordを使用して文末脚注を簡単にテキストに変換する

Wordで文末脚注を手動でテキストに変換するのは、特にVBAに不慣れな初心者にとっては面倒です。しかし、Kutools for Wordを使用すると、「文末脚注をテキストに変換」機能を使ってワンクリックでこのタスクを迅速に完了できます。

Kutools for WordAI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。
  1. Kutools > 変換 > 文末脚注をテキストに変換 をクリックします。
    Convert Endnotes to Text option on the Kutools tab on the ribbon

「文末脚注をテキストに変換」をクリックすると、文書内の文末脚注が即座にテキストに変換され、下記のスクリーンショットのように表示されます。

Document with endnotes
Arrow
Document with endnotes converted to text
Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください!

VBAを使用して文末脚注をテキストに変換する

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

  1. Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。
  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で全ての文末脚注を素早くテキストに変換する


関連記事:


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

Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上!

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

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

テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...

🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...

クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...

🔍 高精度な選択: 特定のページ図形見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...

🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応!

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

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます!

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む

📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ

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

Kutools for Word - 100+ のツールでWordをよりパワフルに