Wordには強力な検索および置換機能があり、ドキュメント内のほぼすべてのものを検索できます。 Wordには、特別なアイテムの検索に使用できるコードも含まれています。 （[検索と置換]ダイアログの[特別]ボタンをクリックして、使用可能なコードを確認します。）ただし、検索できないものの1つは、テキストボックスです。テキストボックスを見つけるための特別なコードはなく、オブジェクトブラウザを使用してテキストボックスを検索することはできません。

ただし、マクロを使用してドキュメントを調べ、テキストボックスが見つかったら停止することができます。次のマクロは、検出した各テキストボックスで停止し、それが必要なテキストボックスであるかどうかをユーザーに尋ねます。

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（12249）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Finding_Text_Boxes [テキストボックスの検索]。