Publisher) (FindReplace 物件

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

註解

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

使用 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
• 執行

屬性

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

另請參閱

• Publisher 物件模型參考

支援和意見反應

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