делаю так
Dim MyDataObj(2) As Object<br/>
Set actDoc = ActiveWindow<br/>
Set ddc2 = Documents.Open("C:\1.doc") ', Visible:=False<br/>
Set secDoc = ddc2.ActiveWindow<br/>
secDoc.Selection.GoTo What:=wdGoToBookmark, Name:="fakt5"<br/>
Set MyDataObj(0) = secDoc.Selection<br/>
secDoc.Selection.GoTo What:=wdGoToBookmark, Name:="fakt6"<br/>
Set MyDataObj(1) = secDoc.Selection<br/>
actDoc.Activate<br/>
actDoc.Selection = MyDataObj(1)<br/>
ddc2.Close
смысл в том, чтобы сделать массив из кусков текста документа в котором содержаться таблицы с форматированием. а затем вставлять выбранные элементы массива. а в данном варианте вставляется только текст. ни как ни разберусь какие типы данных где создаются.