尋找物件 (Word)
代表尋找作業的準則。
Find物件的屬性和方法會對應至 [尋找和取代] 對話方塊中的選項。
使用 Find 屬性可傳回 Find 物件。 下列範例會尋找並選取下一個出現的 "hi" 這個單字。
With Selection.Find
.ClearFormatting
.Text = "hi"
.Execute Forward:=True
End With
下列範例會尋找在使用中文件內出現的所有 "hi" 這個單字,並以 "hello" 取代這個單字。
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
Replace:=wdReplaceAll
如果是在 Selection 物件中使用 Find 物件,則在找到符合尋找準則的文字時,選取範圍就會變更。 下列範例會選取下一個出現的 "blue" 這個單字。
Selection.Find.Execute FindText:="blue", Forward:=True
如果是在 Range 物件中使用 Find 物件,則在找到符合尋找準則的文字時,選取範圍不會變更,但是會重新定義 Range 物件。 下列範例會在使用中文件內尋找第一個出現的 "blue" 這個單字。 如果在文件中找到 "blue",就會重新定義 myRange,並且將粗體格式套用至 "blue"。
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。