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

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

конект к открытому документу... [Delphi, Windows]

GanibalLector ©   (2005-01-16 03:34:00) 

Предположим запущен Word и открыты документы LOL1.doc,LOL2.doc,LOL3.doc.Так вот,а как приконектится к LOL2.doc(например) и работать с ним через OLE?

З.Ы.ИМХО,это не возможно.

---

GanibalLector   (2005-01-17 02:03:00) [1]

Спасибо!!!

---

Набережных С.   (2005-01-16 12:13:00) [2]

function ConnectToWordDocument(const DocName: string): OleVariant;
var
 VA, VDts, VD: OleVariant;
 n: integer;
begin
 VA:=GetActiveOleObject('Word.Application');
 VDts:=VA.Documents;
 for n:=1 to VDts.Count do
 begin
   VD:=VDts.Item(n);
   if AnsiSameText(DocName, VD.Name) then
   begin
     Result:=VD;
     Break;
   end;
 end;
end;

---

YurikGL   (2005-01-16 08:51:00) [3]

Макрос
Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 16.01.2005 Yurik
'
   Windows(1).Activate
End Sub

---

Наверх