История страницы

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

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

...

Описание

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

• Создание и запуск макроса
• Как создать макрос в ворде
• Основы программирования

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

Image Modified

Параметры

...

Входные параметры

Контекст                         Экземпляр Word-документа, в котором будет запущен внешний макрос

Путь к макросу              Путь к текстовому файлу макроса, который содержит VBA-код

Имя процедуры            Имя вызываемой функции или подпрограммы, которая указана в VBA-коде макроса

Входной параметр        Значения входных параметров вызываемой функции или подпрограммы в коде макроса. Значения параметров необходимо указывать в том же порядке, в каком эти параметры указаны в вызываемой функции

Выходные параметры

Результат                     Значение, возвращаемое запущенным макросом. Если указанный макрос ничего не возвращает, результат работы действия будет пустым.

...

и их настройки

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

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

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

Задача

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

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

Решение

Для реализации действия нужны следующие действия - : «Открыть», «Запустить внешний макрос», «Сохранить как».

Реализация

1. Собрать робота, состоящего из следующих действий
:
2. .
   
Image Removed
3. Image Added
   
4. Настроить параметры для действия «Открыть».
   
Image Removed
5. Image Added
   
6. Настроить параметры для действия «Запустить внешний макрос».
   
Image Removed
7. Image Added
   
8. Настроить параметры действия "Сохранить как".
   
Image Removed
Настроить параметры действия "Закрыть".
Image Removed

9. Image Added
   
10. Нажать на кнопку «Старт» в верхней панели.

Результат

Робот отработал успешно.
Image Added
Действие запускает в Word-файле внешний макрос, VBA-код которого указан в отдельном текстовом файле.
Image RemovedImage Added