Тема: Подключение общих шаблонов
Подскажите, каким образом можно при открытии ранее созданного документа автоматически подключать (уточняю: не присоединять) требуемый шаблон?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Подскажите, каким образом можно при открытии ранее созданного документа автоматически подключать (уточняю: не присоединять) требуемый шаблон?
Макросом. Макрос поместить в модуль 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
viter.alex спасибо, понятно. Я действовал через Document_Open в модуле ThisDocument.
Уточните пожалуйста почему при закрытии шаблон надо выгружать?
Ну это не обязательно, но если шаблон должен загружаться при открытии документа, то логично его же и выгружать при закрытии документа.
Понятно, тогда еще в догонку.
Где можно сохранить путь к присоединяемому шаблону при создании файла, что бы при последующем открытии загружаит его? (Variables подойдет?)
Конечно, подойдёт. Но лучше в одном из свойств документа, чтобы можно было его редактировать, не открывая документ
Да здесь скорее наоборот, надо спрятать от "шаловливых ручек"!
Прошу прощения, задавал ранее вопрос по "Поиску по стилям". Если нет возможности ответить, подскажите хотя бы как определить стиль прямого форматирования списка. Чего-то немогу с ListGallеries разобраться.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться