Загрузить макросы из dotm

Question

Сценарий: Когда слово начинается, он подключается через VBA к службе, которая возвращает список путей. Каждый из этих путей указывает на файл .dotm. Эти файлы содержат информацию о различных элементах управления (внутри ленты, например, в кнопке, которая добавляет определенный нижний колонтитул).

Что я хочу: мне нужна возможность загрузить несколько файлов .dotm, но без копирования или перемещения их в определенное место.

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

Есть ли способ, как я могу загрузить несколько файлов dotm в один файл слова, чтобы лента расширялась в зависимости от

dotm

С уважением, пожалуйста и спасибо:)

Answer 1

Невозможно загрузить несколько шаблонов в один файл Word. К документу может быть прикреплен только один шаблон.

Можно загрузить несколько шаблонов как надстройки в среде Word. Затем они будут доступны для всех документов, открытых в приложении Word. Используйте метод Addins-Add, чтобы добавить шаблон в список в документе / Шаблон документа, список «Глобальные шаблоны и надстройки». (Это эквивалент кнопки «Добавить» в диалоговом окне.)

Dim bInstalled as Boolean
Dim Path as String
Dim fileName as String

'Populate the variables, then...
Application.Addins.Add Filename:=Path & fileName, Install:=bInstalled

Установите bInstalled в false, если вы хотите, чтобы шаблон в списке был, но не загружен (например, лента не отображается); установите его в true, чтобы загрузить его. Как только шаблон находится в списке, независимо от того, загружен он или выгружен, он обычно остается в списке, если Word каким-либо образом не сброшен. Код для управления надстройками шаблонов будет более эффективным, если он сначала проверяет, есть ли надстройка в списке, а затем снова ее добавляет.

Шаблоны, находящиеся в списке, можно загружать / выгружать с помощью свойства Addins.Installed. Если инструменты в шаблоне должны быть доступны только для определенных документов, их можно динамически загружать / выгружать, используя события , такие как DocumentChange.

Код для загрузки надстроек и управления ими (событиями), вероятно, должен находиться в центральном шаблоне в папке «Автозагрузка» Word или в шаблоне, прикрепленном непосредственно к документу.

Answer 2

Из словесной документации:

В этом примере шаблон «Letter.dot» прикрепляется к активному документу.

ActiveDocument.AttachedTemplate = "C:\Templates\Letter.dot"

Вы можете использовать это, чтобы прикрепить все ваши шаблоны к документу.

См. Также коллекцию Templates.

вы можете добавить шаблон в коллекцию шаблонов, используя метод Add с коллекцией Addins для загрузки глобального шаблона

Sub AddTemplate()
    ' For this example to work correctly, verify that the
    ' path is correct and the file exists.

    AddIns.Add FileName:="C:\Program Files\Microsoft Office" _
        & "\Templates\Letters & Faxes\MyFax.dot", Install:=True
End Sub