Set myRange = ActiveDocument.Range myRange.InsertParagraph