自动完成Word 日常任务

核心提示： With ActiveDocument.Content.Find.Text = "粗体".Forward = True.ExecuteIf .Found = True Then .Parent.Bold = TrueEnd With下面的代码使用带有参数的 Execut

With ActiveDocument.Content.Find
.Text = "粗体"
.Forward = True
.Execute
If .Found = True Then .Parent.Bold = True
End With

下面的代码使用带有参数的 Execute 方法，进行的操作与上例相同。

Set myRange = Ac
　　
tiveDocument.Content
myRange.Find.Execute FindText:="粗体", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True

2．使用 Replacement 对象

Replacement 对象代表查找和替换操作的替换条件。Replacement 对象的属性和方法对应于【编辑】菜单【查找和替换】对话框中的选项。

Replacement 对象对 Find 对象是有效的。下面的代码将所有的"hi"替换为【你好】。由于 Find 对象是通过 Selection 对象访问的，所以当找到搜索条件时，会更改所选内容。

With Selection.Find
.ClearFormatting
.Text = "hi"
.Replacement.ClearFormatting
.Replacement.Text = "你好"
.Execute Replace:=wdReplaceAll, Forward:=True,
Wrap:=wdFindContinue
End With

下面的代码从活动文档中删除加粗格式。Find 对象的 Bold 属性为 True，而Replacement 对象的 Bold 属性为 False。为了查找并替换格式，需将查找并替换的文字替换为空字符（""），并将 Execute 方法的 Format 参数设置为 True。由于 Find 对象是通过 Range 对象访问的，所以不更改所选内容（Content 属性返回 Range 对象）。

With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute FindText:="", ReplaceWith:="",
Format:=True, Replace:=wdReplaceAll
End With