Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Word+Delphi
Показать сообщение отдельно

Аватара для Prisoner

Engrossed by the Void


Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать


Победил... причем решение лежало на поверхности. Вот скажем так можно без проблем реализовывать работу с документами, причем не задумываясь выводить в тот который нужен:

Скажем откроем доку:

Код: Выделить весь код
dmData.WordApplication.Documents.Open(FileName,
        EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam);
      dmData.WordDocument.ConnectTo(dmData.WordApplication.ActiveDocument);
Теперь WordDocument будет давать возможность работать с этим открытым доком.

Добавим доку:

Код: Выделить весь код
procedure NewWordDoc(WordApplication: TWordApplication;WordDocument: TWordDocument);
  Var
    NewTemplate:OleVariant;
  Begin
    NewTemplate:=False;
    WordApplication.Documents.Add(EmptyParam,NewTemplate,EmptyParam,EmptyParam);
    WordDocument.ConnectTo(WordApplication.ActiveDocument);
  End;
Теперь передаем в процедурку любой имеющийся экземпляр TWordDocument и работаем с ним без проблем... воть.

-------
Не могу дать более дельный совет - не хватает системных ресурсов...


Отправлено: 20:16, 09-08-2003 | #2

Название темы: Word+Delphi