Sub ImportAll()
'обращаемся к VBA-проекту активного документа
With Application.ActiveDocument.VBProject.VBComponents
.Import "d:\module1.bas" 'импортируем просто модуль
.Import "d:\class1.cls" 'импортируем модуль класса
End With
Application.ActiveDocument.Save 'сохраняем документ
End Sub
Внедрение макроса VBA в файл Word
Есть два экспортированных файла макроса
*.bas и ThisDocument.cls
Надо их внедрить в определенные файлы. Файлов много и они в разных местах, поэтому руками это невозможно. Нужен скрипт при выполнении которого эти макросы внедрялись бы в открытый файл, например.
Надо чтоб именно в файл, а не в word.
Помогите пожалуйста.
*.bas и ThisDocument.cls
Надо их внедрить в определенные файлы. Файлов много и они в разных местах, поэтому руками это невозможно. Нужен скрипт при выполнении которого эти макросы внедрялись бы в открытый файл, например.
Надо чтоб именно в файл, а не в word.
Помогите пожалуйста.
Код:
Для этого всего есть одно условие: надо чтобы был разрешен доступ к объектной модели проектов VBA. Это справедливо для ВОРД2007. Для ВОРД2003/ХР уже не помню. Хотя можно посмотреть в настройках безопасности макросов (меню СЕРВИС-МАКРОС-БЕЗОПАСНОСТЬ). Этот код в очень упрощенном виде и его при желании можно доработать:rolleyes:. А при еще большем желании можно на полноценном ВБ написать программу, которая будет проделывать все это;) и можно добавить в нее, например, формирование пакетов заданий:D, запуск по расписанию и прочие вкусности...:cool: