Publisher) (FindReplace.FindText 屬性

會設定或擷取 字串 代表的文字以找出指定的範圍或選取範圍中。 讀取/寫入。

語法

運算式。FindText

運算式 代表 FindReplace 物件的變數。

傳回值

字串

註解

FindText 屬性會傳回選取範圍的純文字、 以未格式化的文字。 當您設定此屬性時,會指定搜尋文字。 您可以藉由指定適當的字元碼搜尋特殊字元。 例如, ^p 對應至段落標記, ^t 對應至定位字元。

FindText 屬性的預設值為空字串。 因為僅支援文字搜尋,所以必須明確設定 FindText ,以避免執行階段錯誤。

範例

此範例會在每個開啟的出版物中,以 That 取代選取範圍中所有出現的 This 一詞。

Dim objDocument As Document 
 
For Each objDocument In Documents 
 With objDocument.Find 
 .Clear 
 .MatchCase = True 
 .FindText = "This" 
 .ReplaceWithText = "That" 
 .ReplaceScope = pbReplaceScopeAll 
 .Forward = True 
 .Execute 
 End With 
Next objDocument 

支援和意見反應

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