Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c