ActiveDocument.Paragraphs(1).Range.Move