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]