|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.02.2011, 08:21 | #1 |
Пользователь
Регистрация: 26.06.2010
Сообщений: 36
|
Запустить макрос WORD посредством DDE
Доброго времени суток!
Подскажите, пожалуйста, какой командой в следующем коде ещё запустить нужный макрос: PROCEDURE OpenDocThroughDDE( DocName varchar2 ) IS AppId pls_integer; ConvID pls_integer; msg varchar2(1000); dir varchar2(1000); i pls_integer; BEGIN set_application_property(cursor_sty le,'BUSY'); UTF.SHOWMES( 'Документ передается в MS Word (через DDE)', NO_ACKNOWLEDGE ); SYNCHRONIZE; dir:=ReadFromRegistry('HKEY_LOCAL_M ACHINE\SOFTWARE\microsoft\windows\c urrentversion\app paths\winword.exe\Path'); msg:='Не удается загрузить MS Word. Обратитесь к администратору системы.'; IF is_window_exists('Microsoft Word')=0 THEN AppID := DDE.App_Begin( dir||'\winword.exe /n',DDE.App_Mode_Normal); m_pause(5); END IF; msg:='Ошибка DDE.'||chr(10)|| 'Перейдите в Word (Alt-Tab) и попробуйте открыть файл '||DocName; ConvID := DDE.Initiate('WinWord', 'System'); m_pause(3); msg:='Не удается открыть файл '||DocName||'.'||chr(10)|| 'Перейдите в Word (Alt-Tab) и попробуйте открыть файл '||DocName; begin DDE.Execute(ConvId,'[FileOpen .name="'||DocName||'",.ConfirmConve rsions=0]',1000); -- Обновляем все поля DDE.Execute(ConvId,'[EditSelectAll]',1000); DDE.Execute(ConvId,'[UpdateFields]',1000); DDE.Execute(ConvId,'[StartOfDocument]',1000); ??????????????????????????????????? ??????? exception when others then null; end; Отговаривать, что это старо, не надо, у меня задача заставить работать именно этот кусок - пристроить к нему вымученный макрос, последний я не могу вживить в шаблон документа, т.к. используется формат RTF. Таковы условия задачи, не мне их менять. Заранее благодарю за любую помощь. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запустить макрос в Access | DennerV | БД в Delphi | 2 | 08.11.2010 15:39 |
Помогите запустить глючащий макрос для WORD 2003 | Gamekowal | Microsoft Office Word | 2 | 07.01.2010 00:08 |
Как организовать поиск в документе Word посредством Delphi? | Pinkygirl | Microsoft Office Excel | 5 | 05.01.2010 15:52 |
как запустить макрос по расписанию? | zander | Microsoft Office Excel | 4 | 19.11.2009 22:50 |
Как запустить макрос из ячейки? | Maxx | Microsoft Office Excel | 8 | 15.04.2009 15:47 |