自动完成Word 日常任务
2008-10-30 20:24:29 来源:WEB开发网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
更多精彩
赞助商链接