11.7.5.8 修改文字
通过更改某一范围中的内容可更改现有的文字。下面的指令通过 将 Text 属性设置为"good "，修改活动文档的第一个单词。
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。下面的代码在活动文档中定位第一次出现的【粗体】。如果找到了，则重新定义该范围， 并将加粗格式应用于【粗体】。
With ActiveDocument.Content.Find
.Text = "粗体"
.Forward = True
.Execute
If .Found = True Then .Parent.Bold = True
End With
下面的代码使用带有参数的 Execute 方法，进行的操作与上例 相同。
Set myRange = ActiveDocument.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
Tag:Word教程，word2003教程,word2007教程，电脑教学 - Word教程