Microsoft Office Forums - View Single Post - Macro to transfer data from Word to another Word document with bookmark

gmayor · 04-17-2018, 04:27 AM

It is just a matter of swapping the documents and their ranges around so that you copy one range to the other e.g.

Code:

Dim oDoc As Document
Dim oTarget As Document
Dim oBM As Range
Dim oRng As Range
    Set oTarget = ThisDocument
    Set oBM = oTarget.Bookmarks("bookmark").Range
    Set oDoc = Documents.Open("C:\Users\jovany\Desktop\NEW WOSPC 9.2.1_RMIR - Rollout.doc")
    Set oRng = oDoc.Range
    oBM.FormattedText = oRng.FormattedText
    oBM.Bookmarks.Add "bookmark"
    oTarget.Activate
    oDoc.Close 0
    Set oDoc = Nothing
    Set oTarget = Nothing
    Set oRng = Nothing
    Set oBM = Nothing