В шаблоне не выполняется процедура в AutoClose

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Имеется шаблон, его имя например 1.dot у него есть процедура AutoClose

Visual Basic

Sub AutoClose()
'AutoClose работает при закрытии документа Ворд
 
'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False
 
    'условие, если были в документе изменения и ..., тогда ...
    'сравниваем с именем "00Материал, уголовное дело №.doc"
    'чтобы после сохранения документа под другим именем форма сохранения документа больше не появлялась
    If ActiveDocument.Saved = False And Len(ActiveDocument.Path) = 0 Then
 
        'выполнить процедуру ..., в этой процедуре показать форму с именем ... в модальном режиме
        'в модальном режиме форма не является помехой для осуществления других действий
        'не нужно имени кнопки и имени формы давать одно и тоже имя
        Call UserForm_Сохранить_документ_Show
    End If
 
    'отменяем отключенное ранее дёргание экрана при выполнении кода
    Application.ScreenUpdating = True
 
End Sub

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

Добавлено через 11 минут
опытным путём узнал, что процедуры АутоОпен и АутоКлозе выполняются когда открываю шаблон, а если на его основе создаю, тогда нет. Можно ли и как сделать, чтобы и когда на основе шаблона создавал документ эти процедуры выполнялись???

@Sasha_Smirnov · 10.01.2012, 22:23

Эндрю, а поставьте ещё один опыт: переименуйте AutoClose в AutoExit — может, сработает.

@Ципихович Эндрю · 10.01.2012, 23:30 **[ТС]**

увы и ах, нет, опыт поставлен не работает!!

@KoGG · 11.01.2012, 09:40

В шаблоне создай процедуру:

Visual Basic

1
2
3

Sub AutoNew()
'... 
End Sub

@Ципихович Эндрю · 11.01.2012, 18:10 **[ТС]**

когда файл открываю АутоОпен и АутоКлозе работают, когда создаю ничего не работает в том числе и

Сообщение от KoGG

AutoNew

???

@KoGG · 12.01.2012, 13:36

Когда создаешь новый файл, использую при создании шаблон *.dot, в котором находится процедура AutoNew, запускается процедура AutoNew из шаблона. Защита от макросов должна быть отключена.
Должны выполняться различные условия для срабатывния автомакросов, из справки:
Auto macros in code modules are recognized if either of the following conditions are true.

The module is named after the auto macro (for example, AutoExec) and it contains a procedure named "Main."
A procedure in any module is named after the auto macro.
Just like other macros, auto macros can be stored in the Normal template, another template, or a document. In order for an auto macro to run, it must be either in the Normal template, in the active document, or in the template on which the active document is based. The only exception is the AutoExec macro, which will not run automatically unless it is stored in one of the following: the Normal template, a template that is loaded globally through the Templates and Add-Ins dialog box, or a global template stored in the folder specified as the Startup folder.

In the case of a naming conflict (multiple auto macros with the same name), Word runs the auto macro stored in the closest context. For example, if you create an AutoClose macro in a document and in the attached template, only the auto macro stored in the document will execute. If you create an AutoNew macro in the normal template, the macro will run if a macro named AutoNew does not exist in the document or the attached template.

@Ципихович Эндрю · 12.01.2012, 16:07 **[ТС]**

Вы можете выложить шаблон с именем 1.dot и 4-мя процедурами в которых всего 1 строка кода с MsgBox с текстами

Visual Basic

MsgBox "Это работает открытие шаблона"
MsgBox "Это работает создание с шаблона"
MsgBox "Это работает закрытие шаблона"
MsgBox "Это работает закрытие документа созданного с шаблона"

Спасибо

@KoGG · 13.01.2012, 11:11

Вот смежная тема, там работает процедура AutoNew при создании документа с указанием шаблона используемого при создании.
Автоматическое добавление следующего номера документа в шаблон

@KoGG · 13.01.2012, 11:49

У меня (Офис 2007, Windows 7) при двойном щелчке по шаблону из проводника открытия шаблона не происходит, а сразу происходит создание нового документа (аналогично созданию нового документа из меню Word с указанием шаблона для создания).
Открыть и редактировать шаблон можно из меню Word, при этом не происходит создания документа.
Я думаю, что и AutoOpen и AutoClose в шаблоне срабатывает только при закрытии редактируюемого шаблона, а не при создании документа по шаблону.

@Busine2012 · 13.01.2012, 11:51

Ципихович Эндрю,
у меня срабатывает макрос AutoNew при создании документа на основе определённого шаблона.

@KoGG · 13.01.2012, 12:13

Проблема еще в том, что и в документе и шаблоне работают одни и те же процедуры:

Visual Basic

Sub AutoOpen()
    MsgBox "Это работает открытие " & ActiveDocument.Name
End Sub
 
Sub AutoNew()
    MsgBox "Это работает создание документа из шаблона " & ThisDocument.Name
End Sub
 
Sub AutoClose()
    MsgBox "Это работает закрытие " & ActiveDocument.Name
End Sub

@Ципихович Эндрю · 13.01.2012, 15:26 **[ТС]**

Окейно, спасибо, проверил, работает, вникну как делали

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.01.2012, 22:23	2
	Эндрю, а поставьте ещё один опыт: переименуйте AutoClose в AutoExit — может, сработает. 0

@Ципихович Эндрю 1591 / 558 / 74 Регистрация: 10.04.2009 Сообщений: 9,106
	10.01.2012, 23:30 [ТС]	3
	увы и ах, нет, опыт поставлен не работает!! 0

@Ципихович Эндрю 1591 / 558 / 74 Регистрация: 10.04.2009 Сообщений: 9,106
	11.01.2012, 18:10 [ТС]	5
	когда файл открываю АутоОпен и АутоКлозе работают, когда создаю ничего не работает в том числе и Сообщение от KoGG AutoNew ??? 0

@KoGG 5612 / 1596 / 414 Регистрация: 23.12.2010 Сообщений: 2,392 Записей в блоге: 1
	12.01.2012, 13:36	6
	Когда создаешь новый файл, использую при создании шаблон *.dot, в котором находится процедура AutoNew, запускается процедура AutoNew из шаблона. Защита от макросов должна быть отключена. Должны выполняться различные условия для срабатывния автомакросов, из справки: Auto macros in code modules are recognized if either of the following conditions are true. The module is named after the auto macro (for example, AutoExec) and it contains a procedure named "Main." A procedure in any module is named after the auto macro. Just like other macros, auto macros can be stored in the Normal template, another template, or a document. In order for an auto macro to run, it must be either in the Normal template, in the active document, or in the template on which the active document is based. The only exception is the AutoExec macro, which will not run automatically unless it is stored in one of the following: the Normal template, a template that is loaded globally through the Templates and Add-Ins dialog box, or a global template stored in the folder specified as the Startup folder. In the case of a naming conflict (multiple auto macros with the same name), Word runs the auto macro stored in the closest context. For example, if you create an AutoClose macro in a document and in the attached template, only the auto macro stored in the document will execute. If you create an AutoNew macro in the normal template, the macro will run if a macro named AutoNew does not exist in the document or the attached template. 0

@KoGG 5612 / 1596 / 414 Регистрация: 23.12.2010 Сообщений: 2,392 Записей в блоге: 1
	13.01.2012, 11:11	8
	Вот смежная тема, там работает процедура AutoNew при создании документа с указанием шаблона используемого при создании. Автоматическое добавление следующего номера документа в шаблон 0

@Busine2012 1301 / 403 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	13.01.2012, 11:51	10
	Ципихович Эндрю, у меня срабатывает макрос AutoNew при создании документа на основе определённого шаблона. 0

@Ципихович Эндрю 1591 / 558 / 74 Регистрация: 10.04.2009 Сообщений: 9,106
	13.01.2012, 15:26 [ТС]	12
	Окейно, спасибо, проверил, работает, вникну как делали 0