ActiveDocument.Paragraphs(1).Range.SelectSelection.CopyFormatActiveDocument.Paragraphs(2).Range.SelectSelection.PasteFormat