本示例将所选内容折叠至末尾,然后在其后插入一个新段落。

With Selection
    .Collapse Direction:=wpsCollapseEnd
    .TypeParagraph
End With