Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];
Вниз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пасибо.
← →
GanibalLector © (2004-08-03 19:40) [3]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;
...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.029 c