开发学院软件教学办公软件Word 自动完成Word 日常任务 阅读

自动完成Word 日常任务

 2008-10-30 20:24:29 来源:WEB开发网   
核心提示: 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

上一页  3 4 5 6 7 8 9  下一页

Tags:自动 完成 Word

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接