[skilatron]

Проблема решена.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

... FileName2:='d:\mp1.doc'; //из этого файла беру таблицу WordApplication2.Documents.Open(FileName2,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam); WordDocument2.ConnectTo(WordApplication2.ActiveDocument);   WordDocument2.Range.Select; //выделяю весь документ WordDocument2.Range.Copy;  //копирую в буфер обмена   FileName1:='d:\mp.doc'; //в этот документ вставляю таблицу WordApplication1.Documents.Open(FileName1,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam,    EmptyParam,EmptyParam,EmptyParam); WordDocument1.ConnectTo(WordApplication1.ActiveDocument);   //следующие две строки помещают курсор в конец документа WordApplication1.Selection.Start:=WordApplication1.ActiveDocument.Characters.Count; WordApplication1.Selection.End_:=WordApplication1.ActiveDocument.Characters.Count; WordApplication1.Selection.paste            //вставляю таблицу из буфера WordApplication1.ActiveDocument.Save;  //сохраняю документ ...