本示例将 Range1 设置为活动文档的第一个段落,然后将该区域向前移动三个段落。该宏运行之后,插入点将位于第四个段落的开头。

Set Range1 = ActiveDocument.Paragraphs(1).Range
With Range1
    .Collapse Direction:=wpsCollapseStart
    .Move Unit:=wpsParagraph, Count:=3
    .Select
End With