Запустить внешний макрос Word

Запустить внешний макрос Версия 1 (Net)

Группа действий: Word

Описание

Действие запускает в Word-документе макрос, VBA-код которого указан в отдельном текстовом файле
Более подробно по работе с макросами можно посмотреть тут:

Иконка действия

Параметры и их настройки

Свойство	Описание	Тип	Пример заполнения	Обязательность заполнения поля
Параметры
Контекст	Экземпляр Word-документа, в котором будет запущен внешний макрос	Word		Да
Путь к макросу	Путь к текстовому файлу макроса, который содержит VBA-код	Путь к файлу		Да
Имя процедуры	Имя вызываемой функции или подпрограммы, которая указана в VBA-коде макроса	Строка		Да
Входной параметр	Значения входных параметров вызываемой функции или подпрограммы в коде макроса. Значения параметров необходимо указывать в том же порядке, в каком эти параметры указаны в вызываемой функции	Коллекция		Нет
Результаты
Результат	Значение, возвращаемое запущенным макросом. Если указанный макрос ничего не возвращает, результат работы действия будет пустым	Коллекция

Особые условия использования

В параметрах безопасности должен быть выбран чекбокс “Доверять доступ к объектной модели проектов VBA“.
Если необходимо указать несколько параметров, пользователь должен указать в поле «Параметры» коллекцию, содержащую эти параметры.
Значения параметров необходимо указывать в том же порядке, в каком эти параметры указаны в вызываемой функции.
Русский язык не поддерживается в названии макроса (функции).

Пример использования

Задача

Есть Word - документ.

Нужно запустить в этом документе внешний макрос ReplaceEwithYo.bas.

ReplaceEwithYo

Sub ReplaceEwithYo()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Е"
        .Replacement.Text = "Ё"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub