本示例显示选定区域中的文本。

MsgBox Selection.Text

 

本示例在新文档中插入 10 行文字。

Documents.Add
For i = 1 To 10
    Selection.Text = "Line" & Str(i) & Chr(13)
    Selection.MoveDown Unit:=wpsParagraph, Count:=1
Next i