Word文書のテキストボックスで閲覧する3つの効果的な方法

この記事では、Word文書のテキストボックスで閲覧する3つの効果的な方法を紹介します。

Wordには「オブジェクトの参照を選択」コマンドがあり、選択したオブジェクトのみを参照できます。 たとえば、テーブルまたはページで参照することを選択できます。 残念ながら、テキストボックスで閲覧するための組み込み関数はありません。 したがって、3つの方法を提供します。

方法1：「Tab」キーを使用する

1. まず、「Ctrl + Home」を押して文書の先頭に移動します。
2. 次に、最初のテキストボックスを見つけてクリックします。
3. 次に「Tab」を押して、次のテキストボックスにジャンプします。

ちなみに、この方法では、ドキュメント内の形状や画像も検索されます。

方法2：マクロを実行してXNUMXつのテキストボックスから別のテキストボックスにジャンプする

1. まず最初に、「Alt + F11」を押して、WordでVBAエディターを起動してください。
2. 次に「通常」をクリックします。
3. 次に、「挿入」をクリックし、ドロップダウンメニューで「モジュール」を選択します。
4. ダブルクリックして新しいモジュールを開きます。
5. コーディング領域に、次のコードを貼り付けます。

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. メニューバーの「実行」ボタンをクリックするか、「F5」を押してコードを実行します。

マクロの実行を開始すると、以下のようなメッセージボックスが表示されます。

ボックスには、現在選択されているテキストボックスの内容が表示されます。 目的のテキストボックスの場合は、[はい]をクリックして停止できます。 それ以外の場合は、「いいえ」をクリックして次のテキストボックスに移動します。

方法3：特定のテキストボックスを見つける

ドキュメント内のテキストボックスのタイトルを設定すると、次のマクロと組み合わせて使用​​して、すぐに見つけることができます。

1. まず、方法2の手順を参照して、マクロをインストールして実行します。
2. 次に、マクロを次のマクロに置き換えることを忘れないでください。

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. 次に、表示される入力ボックスに、検索対象のテキストボックスのタイトルを入力し、「OK」をクリックして次に進みます。すると、目的のテキストボックスが選択範囲に表示されます。

データ損失に対処する

Wordは最もよく使われているソフトウェアの1つであるため、Wordが応答しなくなった場合の対処法を知っておく必要があります。 破損したドキュメント、あなたの唯一の選択はそれを回復することです。 これを行うには、信頼できるサードパーティのツールを慎重に選択する必要があります。

著者紹介：

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