TextRange.Find プロパティ (Publisher)

指定した TextRange オブジェクトから FindReplace オブジェクトを返します。 FindReplace オブジェクトは、テキスト検索を実行し、指定したテキスト範囲内の置換に使用されます。

構文

式。見つける

式TextRange オブジェクトを表す変数。

例

次の例では、作業中の文書の最初の図形のテキスト範囲の FindReplace オブジェクトにオブジェクト変数を設定します。 テキスト範囲の [緊急] という単語が出現するたびに太字の書式を適用する検索操作が実行されます。

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Urgent" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。