Without testing:
Replace:
[VBA]docWord.Bookmarks(xlName.Name).Range.Text = Range(xlName.Value)[/VBA]
With:
[VBA]Excel.Range(xlName).Copy docWord.Bookmarks(xlName.Name).Range [/VBA]
Without testing:
Replace:
[VBA]docWord.Bookmarks(xlName.Name).Range.Text = Range(xlName.Value)[/VBA]
With:
[VBA]Excel.Range(xlName).Copy docWord.Bookmarks(xlName.Name).Range [/VBA]