You can do it using the formattedtext method:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oDoc1 As Document, oDoc2 As Document
Set oDoc1 = Documents(1)
Set oDoc2 = Documents(2)
oDoc1.Bookmarks("TargetBMName").Range.FormattedText = oDoc2.Bookmarks("SouceBMName").Range.FormattedText
lbl_Exit:
Exit Sub
End Sub