自动完成Word 日常任务

核心提示： ActiveDocument.Words（1）.Text = "good "也可以使用 Delete 方法删除现有文字，然后使用 InsertAfter 或 InsertBefore 方法插入新文字，自动完成Word 日常任务(7)，下面的代码删除活动文档的第一段，并插

ActiveDocument.Words（1）.Text = "good "

也可以使用 Delete 方法删除现有文字，然后使用 InsertAfter 或 InsertBefore 方法插入新文字。下面的代码删除活动文档的第一段，并插入新文字。

Set myRange = ActiveDocument.Paragraphs（1）.Range
With myRange
.Delete
.InsertAfter Text:="New text"
.InsertParagraphAfter
End With

11.7.5.9 查找并替换文字或格式

Find 和 Replacement 对象具有查找和替换功能。Find 对象对 Selection 和 Range 对象有效。是否从 Selection 或 Range 对象访问 Find 对象，会使查找操作略有不同。

1．查找并选定文字

如果是从Selection 对象访问Find 对象，当找到搜索条件时，就会更改所选内容。下面的代码选定下一次出现的“你好”。如果到达文档结尾还没有找到“你好”，则停止搜索。

With Selection.Find
.Forward = True
.Wrap = wdFindStop
.Text = "你好"
.Execute
End With

Find 对象包含各种属性，这些属性对应于【编辑】菜单【查找命令的【查找并替换】对话框中的选项。可以设置 Find 对象的单个属性，或者使用 Execute 方法及参数，如下例所示。

Selection.Find.Execute FindText:=" 你好", Forward:=True, Wrap:=wdFindStop

'查找文字，但并不更改所选内容

如果是从 Range 对象访问 Find 对象，则当找到搜索条件时，不更改所选内容，但是会重新定义 Range。下面的代码在活动文档中定位第一次出现的【粗体】。如果找到了，则重新定义该范围，并将加粗格式应用于【粗体】。