Макрос из MSWord

← →
Tormoz (2004-10-26 16:08) [0]

Уважаемые Мастера!

Как вызвать макрос(с аргументом/ми) на выполнение из MSWord?

← →
Tormoz (2004-10-26 17:57) [1]

Че, никтошенки не знает ???

← →
YurikGL © (2004-10-26 18:10) [2]

> Tormoz (26.10.04 17:57) [1]

http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208

читать интересное о себе...

← →
Tormoz (2004-10-27 10:18) [3]

To YurikGL

Да нет, это я уже проходил.
Макрос без аргументов вызывается и исполняется из дельфовой проги без проблем. А вот с аргументами - фигушки!
Получается вот что:
1.Вызываю марос без аргумента:Сообщение "Параметр является обязательным";
2.Вызываю с аргументом: Сообщение "Не удается запустить указанный макрос";
3.Делать аргумент в макросе Optional противоречит смыслу: мне же он нужен в теле макроса, он собственно, определяет его поведение.

Если кто расскажет, как сие решить, буду очень признателен.

← →
YurikGL © (2004-10-27 10:34) [4]

>Tormoz (27.10.04 10:18) [3]

Читаем приведенную ссылку внимательно...

Еще одним хорошим инструментом получения знаний являются компоненты типа TWordApplication. Кидаем его на форму, в любом операторе набираем WordApplication1., нажимаем ctrl+пробел и внимательно читаем. Смысл доступных функций и свойств обычно понятен интуитивно.

← →
Tormoz (2004-10-27 14:37) [5]

To YurikGL

Слушай, Уважаемый, хорош снобить.
Ссылки у Тебя слабенькие и не по теме.
Я попросил консультацию по вопросу, а Ты в футбол хочешь поиграть. Иди на стадион.

> Tormoz (27.10.04 14:37) [5]

> Слушай, Уважаемый, хорош снобить.

Здесь тебе никто ничто не обязан.

procedure TForm1.Button2Click(Sender: TObject); var vr1:olevariant; begin vr1:="ProbaFromDelphi"; WordApplication1.Connect; try WordApplication1.Run("Test2",vr1); except end; WordApplication1.Disconnect;

Где макрос

Sub Test2(v1) Selection.TypeText Text:=v1 End Sub

← →
Tormoz (2004-10-29 09:26) [7]

To YurikGL

Не смотря ни на что - спасибо !

Только учтите , что передача параметров в макрос таким способом невозможна для Word97 , поскольку в нем метод Run не поддерживает аргументы для макроса.

Макрос из MSWord Найти похожие ветки