Question

多种对象 Find 多种对象

该对象代表查找操作的执行条件。Find 对象的属性和方法与“替换”对话框中的选项一致。

使用 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

在 Selection 对象中使用 Range 对象时，找到符合选择条件的文本后选定内容不会改变，但 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