Никогда не сохраняйте Словарные шаблоны?

Question

Есть ли способ никогда не сохранять шаблоны в Word? У нас есть много шаблонов, которые мы используем для создания стандартных документов. Когда документ, основанный на одном из этих шаблонов, закрыт, у пользователя спрашивают, хотят ли они сохранить изменения в шаблоне. Я написал макрос, который предотвращает это, но только если основной документ был сохранен непосредственно перед закрытием. Есть ли способ предотвратить сохранение / изменение шаблона из документа, на котором он основан?

Answer 1

Я просмотрел ссылку выше, и она привела меня к ответу. Я создаю новые документы с макросом, который загружает соответствующий шаблон. я просто добавил две строки в макрос:

ActiveDocument.AttachedTemplate.Saved=True
ActiveDocument.AttachedTemplate=""

В первой строке шаблон выглядит как сохраненный (чтобы пользователь не запрашивался). Вторая строка разрывает соединение с шаблоном. (это устанавливает связанный шаблон на "Нормальный".

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

Answer 2

Нет настройки для подавления запроса, но VBA может это сделать.

В редакторе макросов выберите проект Normal и нажмите «Вставка»> «Модуль класса». На панели свойств измените имя модуля класса на EventClassModule. (Если вы не видите панель свойств, нажмите клавишу F4 или нажмите «Вид»> «Окно свойств».)

В окне кода для модуля класса вставьте этот код:

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, _
        SaveAsUI As Boolean, Cancel As Boolean)
    If Doc Is ActiveDocument And ActiveDocument.AttachedTemplate <> ActiveDocument Then
        Doc.AttachedTemplate.Saved = True ' avoid saving template
    End If
End Sub

Также в проекте Normal добавьте обычный модуль (Insert> Module) и добавьте в него следующий код:

Dim X As New EventClassModule

Sub AutoExec()
    Set X.App = Word.Application
End Sub

Sub AutoExit()
    Set X = Nothing
End Sub

Автор: Джей Фридман Источник: http://answers.microsoft.com/en-us/office/forum/office_365hp-word/i-never-want-to-save-changes-to-template-from-a/f1cc78f8- 2f2f-4c45-a3fb-731a9105a5a8