Word с двумя документами

← →
GanibalLector © (2004-08-02 22:08) [0]

Предположим,что необходимо работать с двумя документами Word одновременно.Т.е. вставить некий текст в "Документ1",затем
в "Документ 2" потом опять вернуться к "Документ1" и опять вставить...и так далее.Так вот,единственное что приходит в голову это :
...
WordApp := CreateOleObject("Word.Application");
WordApp2 := CreateOleObject("Word.Application");
WordApp.Documents.add;
WordApp2.Documents.add;
WordApp.visible:=true;
WordApp2.visible:=true;
WordApp.Selection.TypeText("Hello"#13#10"Hello");
WordApp2.Selection.TypeText("Hello"#13#10"Hello");
...
данный код мне жутко не нравиться,т.к. дважды использую CreateOleObject.
Подскажите,как привильно сделать...
З.Ы. Заранее спасибо и прошу прощения за незнания сабжа(так уж вышло,еще раз пардон).

← →
olookin © (2004-08-03 07:54) [1]

WordApp := CreateOleObject("Word.Application");
WordApp.Documents.add;
WordApp.Documents.add;
WordApp.Documents[1].Select;
WordApp.Selection.TypeText("Hello"#13#10"Hello");
WordApp.Documents[2].Select;
WordApp.Selection.TypeText("Hello"#13#10"Hello");

← →
GanibalLector © (2004-08-03 09:29) [2]

2 olookin
Cпасибо.

2 olookin
Нихрена не работает твой код!!!
Вот,как надо было:
try WordApp := CreateOleObject("Word.Application"); except ShowMessage("Could not start MS Word!"); end; WordApp.Documents.add; Doc1 := WordApp.ActiveDocument; WordApp.Documents.add; Doc2 := WordApp.ActiveDocument; Doc1.activate; WordApp.Selection. TypeText("Mather FUCK"+#10#13); Doc2.activate; WordApp.Selection. TypeText("Father FUCK"+#10#13); Doc1.activate; WordApp.Selection. TypeText("GrandMather FUCK"); Doc2.activate; WordApp.Selection. TypeText("GrantFather FUCK"); wordapp.visible:=true; ...

Word с двумя документами Найти похожие ветки