FindReplace オブジェクト (Publisher)

検索操作の条件を表します。 FindReplace オブジェクトのメソッドとプロパティは、 [検索し、置換 ] ダイアログ ボックスのオプションに対応しています。

注釈

ReplaceScope プロパティが PbReplaceScope 定数 pbReplaceScopeOne または pbReplaceScopeAll のいずれかに設定されている場合、テキストがそのプロパティの空の String の既定値に置き換えられるのを防ぐために、ReplaceWithText プロパティを設定する必要があります。

FindReplace オブジェクトを取得するには、TextRange.Find プロパティを使用します。

検索の範囲を判断するのには、 ReplaceScope プロパティを設定します。

例

次の例では、ファクトリという単語の次の出現箇所を選択します。

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

次の例では、Visual Basic Scripting Edition という名前の最初の出現箇所を VBScript に置き換えます。

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

次の使用例は、 ReplaceScope が pbReplaceScopeNone に設定されているときに、FoundTextRange のフォント属性にアクセスする方法を示しています。

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

メソッド

• Clear
• Execute

プロパティ

• アプリケーション
• FindText
• Forward
• FoundTextRange
• MatchAlefHamza
• MatchCase
• MatchDiacritics
• MatchKashida
• MatchWholeWord
• MatchWidth
• Parent
• ReplaceScope
• ReplaceWithText

関連項目

• Publisher オブジェクト モデル リファレンス

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

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