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