Как отловить события закрытия/открытия WORD файла?

@svelana · Регистрация: 09.10.2007

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

открываю програмно Ворд и некий документ, как отловить, что ворд или документ закрыл пользователь?
Спасибо!

22.05.2008, 14:50

извини, не понял вопроса.
спроси еще раз по другому.

@svelana · 22.05.2008, 15:55 **[ТС]**

делаю
Set WordApp = GetObject(, 'Word.Application')
Set WordDoc = WordApp.Documents.Open(FilePath & FileName, , True)

С этого момента могу делать с документом что хочу..
Но вот если я закрываю документ не програмно, а нажав на крестик в углу, то как понять, что кто-то закрыл документ или ворд? послать ли сообщение программе, проверить статус докмента, еще как-то?

22.05.2008, 15:58

Попробуй посмотреть события и обработать те, что надо, у объектов Ворда, например, Quit у Word.Application.

22.05.2008, 16:04

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Dim WithEvents a As Word.Application
 
Private Sub a_DocumentChange()
  Debug.Print 'a_DocumentChange'
End Sub
 
Private Sub a_Quit()
  Debug.Print 'a_Quit'
End Sub
 
Private Sub Form_Load()
  Set a = CreateObject('Word.Application')
  a.Documents.Add
  a.Visible = True
End Sub
 
' Вывод:
a_DocumentChange
a_Quit

ОДНАКО, если у Ворда нет окон, он ничего не сообщает.

22.05.2008, 16:07

насколько я понял, тебе надо написать свой код в событии Document_close (или я опять что нибудь не так понял?)

@svelana · 22.05.2008, 17:43 **[ТС]**

ну просто огромедное спасибо. действительно WithEvents - то что нужно.
только начала с этим копаться, и есть одна непонятка. Если я например
пишу
Dim WithEvents WordDoc As Word.Document

то выдается ошибка на таком коде (если WithEvents не писать, то все прекрасно работает)

For Each WordDoc In WordApp.Documents

If WordDoc.Name = mvarFileName Then
сделать что-то
Exit For
End If
Next WordDoc

то есть WordDoc становится каким-то другим? каким?

22.05.2008, 18:29

Во-первых, немного по оформлению программ в топике, об этом красным цветов написано под знаком ! вверху, когда пишешь сообщение:
Если написать
[ c o d e ]
' только без пробелов слово c o d e
' то получится вот что
[ / c o d e ]

Code
1
2
  ' только без пробелов слово c o d e
  ' то получится вот что

Code
1
2
3
4
5
For Each WordDoc In WordApp.Documents
  If WordDoc.Name = mvarFileName Then
    сделать что-то 
  Exit For
End If

Этот цикл меняет значение переменной таким образом, что переменная не может ловить события. Пожтому используйте другую переменную, объявленную внутри подпрограммы, т.е.

Code
1
2
3
4
5
6
7
8
  Dim tmpDoc as Word.Document
  For Each tmpDoc In WordApp.Documents
    If tmpDoc.Name = mvarFileName Then
      Set WordDoc = tmpDoc ' если нужно установить эту переменную
      ' сделать что-то 
      Exit For
    End If
  Next tmpDoc

или же

Code
1
  Set WordDoc = WordApp.Documents(mvarFileName)

И в конце работы, если нужно закрыть Ворд

Code
1
2
3
4
Private Sub Form_Unload(Cancel As Integer)
  Set WordDoc = Nothing
  WordApp.Quit
End Sub

@svelana · 25.05.2008, 14:21 **[ТС]**

Большое спасибо за объяснение!

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@svelana 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 23

	Как отловить события закрытия/открытия WORD файла? 22.05.2008, 14:01. Показов 3194. Ответов 8 Метки нет (Все метки) открываю програмно Ворд и некий документ, как отловить, что ворд или документ закрыл пользователь? Спасибо! 0

krosh
	22.05.2008, 14:50
	извини, не понял вопроса. спроси еще раз по другому.

@svelana 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 23
	22.05.2008, 15:55 [ТС]
	делаю Set WordApp = GetObject(, 'Word.Application') Set WordDoc = WordApp.Documents.Open(FilePath & FileName, , True) С этого момента могу делать с документом что хочу.. Но вот если я закрываю документ не програмно, а нажав на крестик в углу, то как понять, что кто-то закрыл документ или ворд? послать ли сообщение программе, проверить статус докмента, еще как-то? 0

Vita
	22.05.2008, 15:58
	Попробуй посмотреть события и обработать те, что надо, у объектов Ворда, например, Quit у Word.Application.

krosh
	22.05.2008, 16:07
	насколько я понял, тебе надо написать свой код в событии Document_close (или я опять что нибудь не так понял?)

@svelana 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 23
	22.05.2008, 17:43 [ТС]
	ну просто огромедное спасибо. действительно WithEvents - то что нужно. только начала с этим копаться, и есть одна непонятка. Если я например пишу Dim WithEvents WordDoc As Word.Document то выдается ошибка на таком коде (если WithEvents не писать, то все прекрасно работает) For Each WordDoc In WordApp.Documents If WordDoc.Name = mvarFileName Then сделать что-то Exit For End If Next WordDoc то есть WordDoc становится каким-то другим? каким? 0

@svelana 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 23
	25.05.2008, 14:21 [ТС]
	Большое спасибо за объяснение! 0