FindReplace オブジェクト (発行元)

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

注釈

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

TextRange.Find プロパティを使用して、FindReplace オブジェクトを返します。

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

例

次の例では、次に出現する単語 "factory" を選択します。

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

関連項目

• パブリッシャー オブジェクト モデル参照

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

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