Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Using the Duplicate Property to Store or Copy Formatting

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