Sub dup() Dim Range1 As Range, Range2 As Range Set Range1 = Selection.Range.Duplicate Set Range2 = ActiveDocument.Bookmarks(1).Range Range2.Paragraphs(1).Range = Range2 End Sub