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

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

Author: Sun Last Modified: 2025-05-23

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 Wordについて、AI 🤖を搭載し、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 - 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をダウンロード!🚀