Word文書のテキストボックスからテキストを抽出する2つの簡単な方法

ワードソリューション 2025 年 9 月 28 日

この記事では、Word 文書のテキストボックスからテキストを抽出するための 2 つの簡単な方法を紹介します。

場合によっては、多数のテキストボックスを含む Word ファイルを入手することがあります。通常、これらのボックス内にはテキストまたは関連コンテンツが含まれます。その場合、テキストボックス全体を保持するのではなく、内部のテキストのみを取得する必要がある場合があります。

確かに、テキストをコピーして別の場所に貼り付けるだけで、XNUMX つのテキストボックス内の単語をすばやく取得できます。ただし、数百もの場合は、仕事を完了するための簡単なヒントをいくつか学んだほうがよいでしょう。

方法 1: 「選択ペイン」を使用する

まず最初に、「ホーム」タブをクリックしてください。
次に、「編集」グループの「選択」アイコンをクリックします。
次に、ドロップダウンメニューで [選択ペイン] を選択します。
画面の右側に、ペインに表示されているすべてのテキストボックスが表示されます。
「Ctrl」を押しながらペイン上のテキストボックス名を XNUMX つずつクリックして、すべてを選択します。
そして、ボックスの線の XNUMX つにカーソルを置き、右クリックします。
リストオプションで「コピー」をクリックします。これらのボックスが不要になった場合は、「削除」を押してください。
次に「スタート」をクリックして、Windowsメニューを表示します。
「ワードパッド」を選択して開きます。
次に、「貼り付け」をクリックして、テキストボックスからすべてのテキストを取得します。
次に、すべてのテキストを選択し、右クリックして「コピー」を選択します。
次に、新しい Word 文書を開き、右クリックして「テキストのみを保持」を選択してテキストを取得します。

方法2：VBAコードを使用する

ご覧のとおり、最初の方法を使用した場合でも、すべてのテキストボックスを選択することを避けることはできません。このような労働作業が嫌いな人のために、ここではマクロを実行する方法を紹介します。方法 2 では、すべてのテキストを一度に抽出し、テキストボックスを削除することができます。

まず、「Alt + F11」を押してVBAエディターを開きます。
次に、「標準」をクリックしてから「挿入」をクリックします。
次に、「モジュール」を選択して新しいモジュールを挿入します。
次に、モジュール名をダブルクリックして編集領域を開きます。
次のコードを貼り付けて「実行」をクリックします。

Sub DeleteTextBoxesAndExtractTheText()
  Dim nNumber As Integer
  Dim strText As String

  '  Delete all textboxes and extract the text from them
  With ActiveDocument
    For nNumber = .Shapes.Count To 1 Step -1
    If .Shapes(nNumber).Type = msoTextBox Then
      strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
      .Shapes(nNumber).Delete
    End If
  Next
  End With

  '  Open a new document to paste the text from textboxes.
  If strText <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strText
  Else
    MsgBox ("There is no textbox.")
  End If
End Sub

これがあなたが得る可能性が高いものです：

壊れた Word ファイルに対処する

Word はエラーが発生しやすいため、頻繁に破損の被害に遭います。したがって、文書を損傷から保護するために適切に管理する必要があります。それらが破損すると、永久に失われるリスクに直面することになるからです。次に、を使用する必要があります破損したWordデータ回復ツール.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelファイルエラー回復ツール (NAIST) と pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com