Range 或 Selection 对象:返回或设置指定区域或所选内容中的文本。String 类型,可读写。
Find 或 Replacement 对象:返回或设置指定区域或所选内容中需要查找或替换的文本。String 类型,可读写。
Text 属性返回选定部分或区域的无格式纯文本。设置该属性,可替换该区域或所选内容的文本。
本示例显示选定区域中的文本。如果没有选中任何内容,则显示插入点之后的字符。
MsgBox Selection.Text
本示例用“Dear”替换活动文档的第一个词。
Set myRange = ActiveDocument.Words(1)
myRange.Text = "Dear "
本示例在新文档中插入 10 行文字。
Documents.Add
For i = 1 To 10
Selection.Text = "Line" & Str(i) & Chr(13)
Selection.MoveDown Unit:=wdParagraph, Count:=1
Next i
本示例用“Goodbye”替换活动文档中的“Hello”。
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Hello"
.Replacement.Text = "Goodbye"
.Execute Replace:=wdReplaceAll
End With