FindReplace 物件 (Publisher)

代表尋找作業的準則。 屬性和 FindReplace 物件的方法會對應至 [ 尋找及取代 ] 對話方塊中的選項。

註解

當ReplaceScope屬性設定為pbReplaceScopeOne或pbReplaceScopeAll的其中一個PbReplaceScope常數時，必須設定ReplaceWithText屬性，以避免將該屬性的文字取代為空白String的預設值。

使用 TextRange.Find 屬性可傳回 FindReplace 物件。

設定 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
• 執行

屬性

• Application
• FindText
• Forward
• FoundTextRange
• MatchAlefHamza
• MatchCase
• MatchDiacritics
• MatchKashida
• MatchWholeWord
• MatchWidth
• Parent
• ReplaceScope
• ReplaceWithText

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。