Wordでフィールドコードを素早くテキストに変換する方法

Author: Sun Last Modified: 2025-05-23

Wordでフィールドコードをプレーンテキストに変換する必要がある場合、このチュートリアルでは目的に応じて異なる方法を紹介します。最初の方法はフィールドコードを表示されている値に変換し、目に見えるコンテンツのみを保持します。他の2つの方法では、フィールドコードをテキストとして保持し、{ SEQ Table \* ARABIC } のような生の形式で表示します。

ショートカットを使ってフィールドコードを表示値に変換する

Kutools for Word を使ってフィールドコードをテキストに変換する

VBA を使用してフィールドコードをテキストに変換する

Wordのおすすめ生産性向上ツール

Kutools for Word: AI 🤖を統合し、100 以上の高度な機能で文書処理時間を50%短縮します。無料ダウンロード

Office Tab: ブラウザのようなタブをWord（およびその他のOfficeツール）に導入し、複数の文書間での移動を簡素化します。無料ダウンロード

ショートカットを使用してフィールドコードをプレーンテキストに変換する

表示されている値を保持しつつ、フィールド機能だけを取り除く必要がある場合、簡単なショートカットを使用できます：

Ctrl + A を押して文書全体を選択します。 ヒント: 特定の範囲内のフィールドコードを変換したい場合は、文書全体ではなくその部分のみを選択してください。
Ctrl + Shift + F9 を押してすべてのフィールドを表示されている値に変換します。

注意: この方法では現在のフィールド値のみが保持されます。フィールドコードを { SEQ Table \* ARABIC } のような生の形式でテキストとして保持する必要がある場合は、以下の方法を使用してください。

Kutools for Word でフィールドコードをテキストに変換する

Kutools for Word は、文書全体または選択した部分からフィールドコードをテキストに変換する簡単な方法を提供します。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

特定の範囲内でフィールドコードをテキストに変換したい場合は、まずその範囲を選択し、次に Kutools > 変換 > フィールドコードをテキストに変換 をクリックします。
文書全体のフィールドコードを変換したい場合は、文書内では何も選択せずに Kutools > 変換 > フィールドコードをテキストに変換 をクリックして機能を適用します。確認を求めるプロンプトボックスが表示されますので、「はい」をクリックして続行します。

選択された範囲または文書全体のすべてのフィールドコードがプレーンテキストに変換されます。

>>>

Document with field codes converted to text

Kutools for Word の「フィールドコードをテキストに変換」についての詳細はこちらをクリックしてください。

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

VBA を使用してフィールドコードをテキストに変換する

VBA は、Word 文書内のフィールドコードを処理する強力な方法を提供します。使用するスクリプトによっては、すべてのフィールドコードを抽出して新しい文書にテキストとして保存するか、元の文書内のフィールドコードを実際のコード表現（例: { SEQ Table \* ARABIC }）に置き換えることができます。

Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを開きます。

クリック モジュール から挿入タブをクリックし、次の VBA コードのいずれかをモジュールウィンドウにコピーして貼り付けます。

注意: 以下の VBA コードは2つの異なる結果を提供します。ニーズに合ったものを選んでください。

VBA 1: フィールドコードを抽出し、新しい Word 文書に保存する

Sub fieldcodetotext()
Dim MyString As String
For Each aField In ActiveDocument.Fields
    aField.Select
    MyString = MyString & vbCr & Selection.Fields(1).Code.Text
Next aField
Documents.Add
ActiveDocument.Content.InsertAfter MyString
End Sub

VBA 2: 元の文書内のフィールドコードをそのコード表現に置き換える

Sub fieldcodetotext()
Dim MyString As String
ActiveWindow.View.ShowFieldCodes = True
For Each aField In ActiveDocument.Fields
    aField.Select
    MyString = "{ " & Selection.Fields(1).Code.Text & " }"
    Selection.Text = MyString
Next aField
ActiveWindow.View.ShowFieldCodes = False
End Sub