Событие сохранения документа для Word

@rsuan · Регистрация: 16.10.2014

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

В VBA для Word не обнаружил событие сохранения документа. Вот в VBA для Excel есть событие Workbook_BeforeSave. Как быть?

@~~Апострофф~~ · 16.10.2014, 10:13

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

DocumentBeforeSave Event
Occurs before any open document is saved.

Visual Basic

1	Private Sub object_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

object An object of type Application declared with events in a class module. For more information about using events with the Application object, see Using Events with the Application Object.

Doc The document that's being saved.

SaveAsUI True to display the Save As dialog box.

Cancel False when the event occurs. If the event procedure sets this argument to True, the document isn't saved when the procedure is finished.

Example
This example prompts the user for a yes or no response before saving any document. This code must be placed in a class module, and an instance of the class must be correctly initialized in order to see this example work; see Using Events with the Application Object for directions on how to accomplish this.

Visual Basic

Public WithEvents appWord as Word.Application
 
Private Sub appWord_DocumentBeforeSave _
        (ByVal Doc As Document, _
        SaveAsUI As Boolean, _
        Cancel As Boolean)
 
    Dim intResponse As Integer
 
    intResponse = MsgBox("Do you really want to " _
        & "save the document?", _
        vbYesNo)
 
    If intResponse = vbNo Then Cancel = True
End Sub

...

@rsuan · 16.10.2014, 11:00 **[ТС]**

Спасибо.
Пробую object_DocumentBeforeSave, appWord_DocumentBeforeSave и просто DocumentBeforeSave, событие не срабатывает. Ведь в Excel'е до Workbook_BeforeSave ничего не нужно было писать. Может просветите что нужно писать вместо object для текущего документа?

@~~Апострофф~~ · 16.10.2014, 11:13

Using Events with the Application Object
To create an event handler for an event of the Application object, you need to complete the following three steps:

1. Declare an object variable in a class module to respond to the events.
2. Write the specific event procedures.
3. Initialize the declared object from another module.

Declare the Object Variable
Before you can write procedures for the events of the Application object, you must create a new class module and declare an object of type Application with events. For example, assume that a new class module is created and called EventClassModule. The new class module contains the following code.

Visual Basic

1	Public WithEvents App As Word.Application

Write the Event Procedures
After the new object has been declared with events, it appears in the Object drop-down list box in the class module, and you can write event procedures for the new object. (When you select the new object in the Object box, the valid events for that object are listed in the Procedure drop-down list box.) Select an event from the Procedure drop-down list box; an empty procedure is added to the class module.

Visual Basic

1
2
3

Private Sub App_DocumentChange()
 
End Sub

Initialize the Declared Object
Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module.

Visual Basic

Dim X As New EventClassModule
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub

Run the Register_Event_Handler procedure. After the procedure is run, the App object in the class module points to the Microsoft Word Application object, and the event procedures in the class module will run when the events occur.

...

@~~Антихакер32~~ · 16.10.2014, 11:37

Это и есть основы объектного программирования
из одного проекта, можно запросто ссылаться на другие (обычно зарегестрированные) библиотеки, общения между ними, это события

Добавлено через 6 минут
P.S, конечно-же свои библиотеки я делаю так.. чтобы они вели себя очень тихо
ничего не просили, не прикапывались, а самое главное чтобы работали ))

Аксима · 16.10.2014, 12:02

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

что нужно писать вместо object для текущего документа

Кратко передавая содержимое справочных материалов, процитированных Апостроффом, объясняю: вместо object вам нужно написать имя объекта, поддерживающего событие DocumentBeforeSave (например, имя объекта типа Application) и (внимание!) этот объект должен быть проинициализирован, как в участке

Сообщение от Апострофф

Visual Basic

Dim X As New EventClassModule
Sub Register_Event_Handler()
 Set X.App = Word.Application
End Sub

Я немного доработал программу из второго поста в данной теме, теперь она представляет собой завершенный проект. Привожу ее код, который необходимо поместить в модуль объекта ThisDocument (ЭтотДокумент).

Visual Basic

'Объявляем объектную переменную app уровня приложения.
Dim WithEvents app As Application
'При открытии документа инициализируем объектную переменную.
Private Sub Document_Open()
    Set app = Application 'Инициализируем объектную переменную.
End Sub
'Обрабатываем событие, возникающее при попытке сохранения данной книги.
Private Sub app_DocumentBeforeSave(ByVal Doc As Document, ByRef SaveAsUI As Boolean, ByRef Cancel As Boolean)
    If Doc Is ThisDocument Then 'Если документ, сгенерироваший событие - это документ с кодом, то...
        '...выводим запрос на сохранение документа.
        If MsgBox("Вы правда хотите сохранить документ?", vbYesNo) <> vbYes Then _
            Cancel = True 'Если пользователь не ответил утвердительно на запрос, то отменяем сохранение.
    End If
End Sub
'При закрытии документа освобождаем объектную переменную и подавляем автоматический диалог сохранения.
Private Sub Document_Close()
    Set app = Nothing
    If ThisDocument.Saved = False Then 'Если книга не сохранена, то...
        '...выводим запрос на сохранение документа.
        If MsgBox("Вы хотите сохранить документ перед выходом?", vbYesNo) <> vbYes Then
            ThisDocument.Saved = True   'Если пользователь не ответил утвердительно на запрос,
        Else                            'то подавляем автоматический диалог сохранения и выходим.
            ThisDocument.Save           'Если пользователь ответил утвердительно, сохраняем
        End If                          'документ перед выходом.
    End If
End Sub

С уважением,

Аксима

@rsuan · 16.10.2014, 12:32 **[ТС]**

"Ура! Заработала!"(С) после того как наряду с Dim WithEvents appWord As Word.Application добавил ещё Set appWord = Word.Application . Спасибо всем!
Только вот не пойму, зачем в Ворде так нужно делать, ведь в Экселе обходится без объявления и инициализации.

Аксима · 16.10.2014, 12:55

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

Только вот не пойму, зачем в Ворде так нужно делать, ведь в Экселе обходится без объявления и инициализации.

Потому что в Excel вы используете объект ThisWorkbook, который уже объявлен, проинициализирован и любезно предоставлен вам приложением (объектом Application). Если бы вам понадобилось использовать события самого объекта Application в Excel, вам пришлось бы повторить в точности ту же процедуру, что приведена здесь для Word.

И это абсолютно логично, ведь если программируете в VBA, то выше объекта Application в иерархии нет никого. Некому командовать объектами Application, объявлять и инициализировать их и предоставлять программисту - это должен делать сам программист.

С уважением,

Аксима

P.S. Для программистов на VSTO есть объект ThisApplication, но это уже тема для отдельного топика...

@Sasha_Smirnov · 18.10.2014, 12:49

Для автоматизации работы (в т. ч. и сохранения) также можно использовать процедуру AutoClose: Программное нажатие кнопки "сохранить" в диалоговом окне Word. Почти всю работу выполняет её имя!

@den500 · 29.05.2019, 12:53

Word 2010 при первом запуске так и не могу отловить Save. Только после событий New, Open, Close появляется возможность BeforeSave. Это как то можно победить? Т.е. получается запустил Word набрал текст - сохранил. И это никак нельзя отследить :-(

@rsuan 4 / 4 / 0 Регистрация: 16.10.2014 Сообщений: 135
		1
	Событие сохранения документа для Word 16.10.2014, 10:04. Показов 6908. Ответов 9 Метки нет (Все метки) В VBA для Word не обнаружил событие сохранения документа. Вот в VBA для Excel есть событие Workbook_BeforeSave. Как быть? 0

@rsuan 4 / 4 / 0 Регистрация: 16.10.2014 Сообщений: 135
	16.10.2014, 11:00 [ТС]	3
	Спасибо. Пробую object_DocumentBeforeSave, appWord_DocumentBeforeSave и просто DocumentBeforeSave, событие не срабатывает. Ведь в Excel'е до Workbook_BeforeSave ничего не нужно было писать. Может просветите что нужно писать вместо object для текущего документа? 0

@~~Антихакер32~~ Заблокирован
	16.10.2014, 11:37	5
	Это и есть основы объектного программирования из одного проекта, можно запросто ссылаться на другие (обычно зарегестрированные) библиотеки, общения между ними, это события Добавлено через 6 минут P.S, конечно-же свои библиотеки я делаю так.. чтобы они вели себя очень тихо ничего не просили, не прикапывались, а самое главное чтобы работали )) 0

@rsuan 4 / 4 / 0 Регистрация: 16.10.2014 Сообщений: 135
	16.10.2014, 12:32 [ТС]	7
	"Ура! Заработала!"(С) после того как наряду с Dim WithEvents appWord As Word.Application добавил ещё Set appWord = Word.Application . Спасибо всем! Только вот не пойму, зачем в Ворде так нужно делать, ведь в Экселе обходится без объявления и инициализации. 0

Аксима 6081 / 1325 / 195 Регистрация: 12.12.2012 Сообщений: 1,023
	16.10.2014, 12:55	8
	Сообщение от rsuan Только вот не пойму, зачем в Ворде так нужно делать, ведь в Экселе обходится без объявления и инициализации. Потому что в Excel вы используете объект ThisWorkbook, который уже объявлен, проинициализирован и любезно предоставлен вам приложением (объектом Application). Если бы вам понадобилось использовать события самого объекта Application в Excel, вам пришлось бы повторить в точности ту же процедуру, что приведена здесь для Word. И это абсолютно логично, ведь если программируете в VBA, то выше объекта Application в иерархии нет никого. Некому командовать объектами Application, объявлять и инициализировать их и предоставлять программисту - это должен делать сам программист. С уважением, Аксима P.S. Для программистов на VSTO есть объект ThisApplication, но это уже тема для отдельного топика... 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	18.10.2014, 12:49	9
	Для автоматизации работы (в т. ч. и сохранения) также можно использовать процедуру AutoClose: Программное нажатие кнопки "сохранить" в диалоговом окне Word. Почти всю работу выполняет её имя! 0

@den500 0 / 0 / 0 Регистрация: 04.04.2019 Сообщений: 3
	29.05.2019, 12:53	10
	Word 2010 при первом запуске так и не могу отловить Save. Только после событий New, Open, Close появляется возможность BeforeSave. Это как то можно победить? Т.е. получается запустил Word набрал текст - сохранил. И это никак нельзя отследить :-( 0