Copy Bookmarked Text and 'Paste' into Bookmarks in New Document

[gmayor]

Put the following macro in the same folder as Greg's macro, then instead of using (say)

.Bookmarks.Add "wholename", oRng

call the macro e.g.

FillBM oTarDoc, "wholename", oRng

Repeat for each named bookmark. If the target bookmark doesn't exist it is simply ignored.

Private Sub FillBM(oDoc as Document, strBMName As String, strValue As String)
Dim oRng As Range
    With oDoc
        On Error GoTo lbl_Exit
        Set oRng = .Bookmarks(strBMName).Range
        oRng.Text = strValue
        oRng.Bookmarks.Add strBMName
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub