Отслеживание событий в word

@Igorik · Регистрация: 09.11.2011

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

имеется следующий код размещенный в модуле:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    ActiveDocument.PrintPreview
    Dim Prosmotr
    If ActiveDocument.ClosePrintPreview = True Then       здесь редактор ругается
    Prosmotr = MsgBox("Нажми ДА для печати, ОТМЕНА для возврата к редактированию!", vbExclamation + vbOKCancel, "Проверти точность заполнения!!!")
        If Prosmotr = vbOK Then
        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        Else: ActiveDocument.ClosePrintPreview
        End If
    End If

Цель: после редактирования документа нажимается пользовательская кнопка и выполняется вышеуказанный макрос. Выполнение макроса нужно приостановить до момента закрытия окна предварительного просмотра.

@Казанский · 09.11.2011, 13:49

А зачем этот If нужен? Приостановка происходит на MsgBox:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub bb()
Dim Prosmotr
ActiveDocument.PrintPreview
Prosmotr = MsgBox("Нажми ДА для печати, ОТМЕНА для возврата к редактированию!", vbExclamation + vbOKCancel, "Проверти точность заполнения!!!")
If Prosmotr = vbOK Then
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
Else: ActiveDocument.ClosePrintPreview
End If
End Sub

@Казанский · 09.11.2011, 13:52

Или так, без переменной:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
ActiveDocument.PrintPreview
Select Case MsgBox("Нажми ДА для печати, ОТМЕНА для возврата к редактированию!", vbExclamation + vbOKCancel, "Проверти точность заполнения!!!")
Case vbOK: Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
Case Else: ActiveDocument.ClosePrintPreview
End Select
End Sub

@Igorik · 09.11.2011, 14:31 **[ТС]**

После редактирования документа нажимается пользовательская кнопка где выполняется вышеуказанный макрос
пошаговые действия после нажатия кнопки:
1) выполнение кода"ActiveDocument.PrintPreview" открытие окна предварительного просмотра и проверка правильности внесенных данных
2) и только после закрытия окна предварительного просмотра необходимо вызвать MsgBox и в случае ответа ОК отправить на печать. а в перспективе еще и вызвать диалоговое окно "сохранить как".

@Казанский · 09.11.2011, 17:34

Нет такого события. Можно отслеживать Application.CommandBars("Print Preview").Visible
Когда оно станет False - окно превью закрыто.

Но Вы все-таки подумайте над вариантом с отображением MsgBox или формы поверх превью. Форму можно вывести сбоку, чтобы она не мешала просмотру документа. И юзеру не придется делать два клика - закрыть превью и ответить на вопрос.

Кстати, можно добавить свою кнопку на панель Print Preview.

@Ципихович Эндрю · 09.11.2011, 17:38

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

и в случае ответа ОК отправить на печать

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

@Busine2012 · 09.11.2011, 18:40

Igorik,
может пользовательскую форму создать?

@Igorik · 10.11.2011, 09:53 **[ТС]**

Всем спасибо за отклики!
В VBA у меня опыт небольшой (как и в др. языках программирования) и преимущественно Excel.
В Excel подобный код работает (одним макросом предварительный просмотр и после закрытия просмотра продолжается выполнятся код MsgBox. По видимому в Excel окно предварительного просмотра модального типа). В Word выполняется весь код непрерывно.

Мысли в слух: "ммм... как вставлять цитаты собеседников".

Казанский: И юзеру не придется делать два клика - закрыть превью и ответить на вопрос.
если документ многостраничный как его пролистать когда выведено MsgBox.
"Application.CommandBars("Print Preview").Visible" - так далеко в познаниях VBA я еще не зашел, да и цель то простецкая автоматизировать рутинные действия.

Ципихович Эндрю: зачем предварительный просмотр нужен
для обновления кодов полей находящихся в колонтитулах да и документ предстает в цельном виде.

Busine2012: может пользовательскую форму создать?
Думаю создание формы только усложнит весь код.
У меня данные в Word поступают экспортом из др. программы, недостающие редактируются при помощи полей форм.

Вопрос с обновлением полей решен и от идеи вывода окна предварительного просмотра можно отказаться (программно документ ставится на защиту для редактирования полей форм и коды полей обновляются.

Сейчас вопрос в следующем: как программно вызвать диалоговое окно "сохранить как".

@Казанский · 10.11.2011, 10:26

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

вопрос в следующем: как программно вызвать диалоговое окно "сохранить как"

Так:

Visual Basic
1
application.Dialogs (wdDialogFileSaveAs ).Show

См. свойства и методы Dialog Object.

@Igorik · 10.11.2011, 11:16 **[ТС]**

Всем спасибо! Тему можно закрывать.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Igorik 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 4
	09.11.2011, 14:31 [ТС]
	После редактирования документа нажимается пользовательская кнопка где выполняется вышеуказанный макрос пошаговые действия после нажатия кнопки: 1) выполнение кода"ActiveDocument.PrintPreview" открытие окна предварительного просмотра и проверка правильности внесенных данных 2) и только после закрытия окна предварительного просмотра необходимо вызвать MsgBox и в случае ответа ОК отправить на печать. а в перспективе еще и вызвать диалоговое окно "сохранить как". 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	09.11.2011, 17:34
	Нет такого события. Можно отслеживать Application.CommandBars("Print Preview").Visible Когда оно станет False - окно превью закрыто. Но Вы все-таки подумайте над вариантом с отображением MsgBox или формы поверх превью. Форму можно вывести сбоку, чтобы она не мешала просмотру документа. И юзеру не придется делать два клика - закрыть превью и ответить на вопрос. Кстати, можно добавить свою кнопку на панель Print Preview. 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	09.11.2011, 18:40
	Igorik, может пользовательскую форму создать? 0

@Igorik 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 4
	10.11.2011, 09:53 [ТС]
	Всем спасибо за отклики! В VBA у меня опыт небольшой (как и в др. языках программирования) и преимущественно Excel. В Excel подобный код работает (одним макросом предварительный просмотр и после закрытия просмотра продолжается выполнятся код MsgBox. По видимому в Excel окно предварительного просмотра модального типа). В Word выполняется весь код непрерывно. Мысли в слух: "ммм... как вставлять цитаты собеседников". Казанский: И юзеру не придется делать два клика - закрыть превью и ответить на вопрос. если документ многостраничный как его пролистать когда выведено MsgBox. "Application.CommandBars("Print Preview").Visible" - так далеко в познаниях VBA я еще не зашел, да и цель то простецкая автоматизировать рутинные действия. Ципихович Эндрю: зачем предварительный просмотр нужен для обновления кодов полей находящихся в колонтитулах да и документ предстает в цельном виде. Busine2012: может пользовательскую форму создать? Думаю создание формы только усложнит весь код. У меня данные в Word поступают экспортом из др. программы, недостающие редактируются при помощи полей форм. Вопрос с обновлением полей решен и от идеи вывода окна предварительного просмотра можно отказаться (программно документ ставится на защиту для редактирования полей форм и коды полей обновляются. Сейчас вопрос в следующем: как программно вызвать диалоговое окно "сохранить как". 0

@Igorik 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 4
	10.11.2011, 11:16 [ТС]
	Всем спасибо! Тему можно закрывать. 0