本示例在活动段落开头将文本作为一个新段落插入。

Set myRange = ActiveDocument.Range(0, 0)
With myRange
    .InsertBefore "Title"
    .ParagraphFormat.Alignment = wpsAlignParagraphCenter
    .InsertParagraphAfter
End With