ティムは、検索と置換を使用してテキストボックスを検索および検索できるかどうか疑問に思います。彼は、テキストボックスを検索し、それぞれをグラフィックに置き換えたいと考えています。これは、一部のテキストボックスがドキュメント内で本質的に表示されていない場合、手動で行うことはほとんど不可能であるためです。

テキストボックスがテキストとインラインになっている場合は、[検索と置換]を使用してテキストボックスを見つけて置換できます。 [検索と置換]ダイアログボックスの[置換]タブを表示し、[検索する文字列]ボックスに^ gと入力するだけです。これはグラフィックを検索するためのコードですが、Wordはテキストボックスをインラインの場合はグラフィックとして扱います。

もちろん、問題はほとんどのテキストボックスがインラインではないことです。テキストはそれらを囲み、独自のレイヤーに存在します。これらのタイプのテキストボックスの場合、検索と置換を行うにはマクロを使用する必要があります。以下は、使用できる例です。

Sub ReplaceTextBox()

Dim shp As Shape

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             shp.Delete             Selection.PasteAndFormat (wdPasteDefault)

End If     Next End Sub

マクロを使用するには、置換に使用するグラフィックを選択してから、Ctrl + Cを押します。これにより、グラフィックがクリップボードに配置されます。マクロを実行すると、各テキストボックスの代わりにこのグラフィック（クリップボードにあるグラフィック）がドキュメントに貼り付けられます。

マクロは、ドキュメント内のすべてのテキストボックスをグラフィックに置き換えることに注意してください。テキストボックスを選択的に置き換えたい場合、コーディングはかなり複雑になります。

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（2894）は、Microsoft Word 2007、2010、2013、および2016に適用されます。