1

Тема: Подключение общих шаблонов

Подскажите, каким образом можно при открытии ранее созданного документа автоматически подключать (уточняю: не присоединять) требуемый шаблон?

2

Re: Подключение общих шаблонов

Макросом. Макрос поместить в модуль ThisDocument соответствующего документа

Sub AutoOpen()
  AddIns.Add "полный путь к шаблону", True
End Sub

и выгружать при закрытии:

Sub AutoClose()
  Dim ad As AddIn
  For Each ad In AddIns
    With ad
      If LCase(.Path & "\" & .Name) = LCase("полный путь к шаблону") Then '
        .Delete
        Exit Sub
      End If
    End With
  Next
End Sub
Лучше день потерять — потом за пять минут долететь!

3

Re: Подключение общих шаблонов

viter.alex спасибо, понятно. Я действовал через Document_Open в модуле ThisDocument.
Уточните пожалуйста почему при закрытии шаблон надо выгружать?

4

Re: Подключение общих шаблонов

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

Лучше день потерять — потом за пять минут долететь!

5

Re: Подключение общих шаблонов

Понятно, тогда еще в догонку.
Где можно сохранить  путь к присоединяемому шаблону при создании файла, что бы при последующем открытии загружаит его? (Variables подойдет?)

6

Re: Подключение общих шаблонов

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

Лучше день потерять — потом за пять минут долететь!

7

Re: Подключение общих шаблонов

Да здесь скорее наоборот, надо спрятать от "шаловливых ручек"!
Прошу прощения, задавал ранее вопрос по "Поиску по стилям". Если нет возможности ответить, подскажите хотя бы как определить стиль прямого форматирования списка. Чего-то немогу с ListGallеries разобраться.