View Single Post
 
Old 03-30-2019, 08:01 AM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,601
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

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
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote