Форум: "Corba";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

конект к открытому документу...   Найти похожие ветки 

← →
GanibalLector ©   (2005-01-16 03:34) [0]

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

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

---

← →
YurikGL ©   (2005-01-16 08:51) [1]

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

---

← →
Набережных С.   (2005-01-16 12:13) [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;

---

← →
GanibalLector ©   (2005-01-17 02:03) [3]

Спасибо!!!

---

Страницы: 1 вся ветка

Форум: "Corba";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c