| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Word с двумя документами [D5, Win95/98, WinXP]

GanibalLector ©   (2004-08-02 22:08:00) 

Предположим,что необходимо работать с двумя документами 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.
Подскажите,как привильно сделать...
З.Ы. Заранее спасибо и прошу прощения за незнания сабжа(так уж вышло,еще раз пардон).

---

GanibalLector   (2004-08-03 19:40:00) [1]

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;
  ...


---

GanibalLector   (2004-08-03 09:29:00) [2]

2 olookin
Cпасибо.

---

olookin   (2004-08-03 07:54:00) [3]

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');

---

Наверх