Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. 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