Word+Delphi - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Word+Delphi (http://forum.oszone.net/showthread.php?t=30364)

Вот скажем нашел я в одном документе все что мне нать, необходимо все это добро вставить в другой документ и сохранить, не закрывая первый (не все добро повыбирали, жадные мы :)). А получается все время вывод в первый док, причем с затиранием всего его содержимого...
Даже такой код творит что-то странное имхо:

Код:

WordConnect(dmData.WordApplication);

 &nbsp; &nbsp; &nbsp;FileName:=dmData.odInFile.FileName;

 &nbsp; &nbsp; &nbsp;dmData.WordApplication.Documents.Open(FileName,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam);

 &nbsp; &nbsp; &nbsp; frMain.Caption:=IntToStr(dmData.WordApplication.Documents.Count);

 &nbsp; &nbsp; &nbsp; frMain.Caption:=frMain.Caption+'-&gt;'+dmData.WordApplication.Documents.Item(DocIndex).Name;

 &nbsp; &nbsp; &nbsp; dmData.WordApplication.Documents.Add(EmptyParam,NewTemplate,EmptyParam,EmptyParam);

 &nbsp; &nbsp; &nbsp; DocIndex:=DocIndex+1;

 &nbsp; &nbsp; &nbsp; dmData.WordDocument.ConnectTo(dmData.WordApplication.Documents.Item(DocIndex));

 &nbsp; &nbsp; &nbsp; frMain.Caption:=frMain.Caption+'*'+IntToStr(dmData.WordApplication.Documents.Count);

 &nbsp; &nbsp; &nbsp; frMain.Caption:=frMain.Caption+'-&gt;'+dmData.WordApplication.Documents.Item(DocIndex).Name;

В результате в кэпшене: 1->Test3.doc*2->Test3.doc хотя существуют два окна ворда с заголовками Test3.doc и Документ2.doc. Что за грабли?

Победил... причем решение лежало на поверхности. Вот скажем так можно без проблем реализовывать работу с документами, причем не задумываясь выводить в тот который нужен:

Скажем откроем доку:

Код:

dmData.WordApplication.Documents.Open(FileName,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam,EmptyParam,

 &nbsp; &nbsp; &nbsp; &nbsp;EmptyParam,EmptyParam);

 &nbsp; &nbsp; &nbsp;dmData.WordDocument.ConnectTo(dmData.WordApplication.ActiveDocument);

Теперь WordDocument будет давать возможность работать с этим открытым доком.

Добавим доку:

Код:

procedure NewWordDoc(WordApplication: TWordApplication;WordDocument: TWordDocument);

 &nbsp;Var

 &nbsp; &nbsp;NewTemplate:OleVariant;

 &nbsp;Begin

 &nbsp; &nbsp;NewTemplate:=False;

 &nbsp; &nbsp;WordApplication.Documents.Add(EmptyParam,NewTemplate,EmptyParam,EmptyParam);

 &nbsp; &nbsp;WordDocument.ConnectTo(WordApplication.ActiveDocument);

 &nbsp;End;

Теперь передаем в процедурку любой имеющийся экземпляр TWordDocument и работаем с ним без проблем... воть.