本示例在活动文档第二段之后插入分页符。

Set myRange = ActiveDocument.Paragraphs(2).Range
With myRange
    .Collapse Direction:=wpsCollapseEnd
    .InsertBreak Type:=wpsPageBreak
End With