Отображение встроенных диалоговых окон Word
Этот раздел содержит сведения и примеры в следующих разделах.
Отображение встроенного диалогового окна
Вы можете отобразить встроенное диалоговое окно для ввода данных пользователем или управления Word с помощью Visual Basic для приложений (VBA). Метод Show объекта Dialog отображает и выполняет все действия, выполненные во встроенном диалоговом окне Word. Чтобы получить доступ к определенному встроенному диалоговому окку Word, необходимо указать константу WdWordDialog со свойством Dialogs . Например, следующая инструкция макроса отображает диалоговое окно Открыть (wdDialogFileOpen).
Sub ShowOpenDialog() Dialogs(wdDialogFileOpen).Show End SubЕсли выбран файл и нажат ОК , файл открывается (выполняется действие). В следующем примере отображается диалоговое окно Печать (wdDialogFilePrint).
Sub ShowPrintDialog() Dialogs(wdDialogFilePrint).Show End SubЗадайте свойство DefaultTab для доступа к определенной вкладке в диалоговом окне Word. В следующем примере отображается вкладка Граница страницы в диалоговом окне Границы и заливка .
Sub ShowBorderDialog() With Dialogs(wdDialogFormatBordersAndShading) .DefaultTab = wdDialogFormatBordersAndShadingTabPageBorder .Show End With End SubВы также можете использовать свойства VBA в Word для отображения сведений о пользователе без отображения диалогового окна. В следующем примере свойство UserName объекта Application используется для отображения имени пользователя для приложения без отображения диалогового окна Сведения о пользователе .
Sub DisplayUserInfo() MsgBox Application.UserName End SubЕсли имя пользователя изменено в предыдущем примере, это изменение не задается в диалоговом окне. Используйте метод Execute для выполнения параметров в диалоговом окне без отображения диалогового окна. В следующем примере отображается диалоговое окно Сведения о пользователе , и если имя не является пустой строкой, параметры задаются в диалоговом окне с помощью метода Execute .
Sub ShowAndSetUserInfoDialogBox() With Dialogs(wdDialogToolsOptionsUserInfo) .Display If .Name <> "" Then .Execute End With End SubИспользуйте свойства и методы VBA в Word, чтобы задать сведения о пользователе без отображения диалогового окна. В следующем примере кода имя пользователя изменяется с помощью свойства UserName объекта Application , а затем отображается диалоговое окно Сведения о пользователе , чтобы показать, что изменения были внесены. Обратите внимание, что отображение диалогового окна не требуется для изменения значения диалогового окна.
Sub SetUserName() Application.UserName = "Jeff Smith" Dialogs(wdDialogToolsOptionsUserInfo).Display End SubВозврат и изменение параметров диалогового окна
Не очень эффективно использовать объект Dialog для возврата или изменения значения диалогового окна, если его можно вернуть или изменить с помощью свойства или метода. Кроме того, в большинстве, если не во всех случаях код VBA используется вместо доступа к объекту Dialog , код становится проще и короче. Таким образом, следующие примеры также включают примеры, использующие соответствующие свойства VBA для выполнения одинаковых задач.
Перед возвратом или изменением параметра диалогового окна с помощью объекта Dialog необходимо определить отдельное диалоговое окно. Для этого используется свойство Dialogs с константой WdWordDialog . После создания экземпляра объекта Dialog можно вернуть или задать параметры в диалоговом окне. В следующем примере отображается правый отступ в диалоговом окне Абзацы .
Sub ShowRightIndent() Dim dlgParagraph As Dialog Set dlgParagraph = Dialogs(wdDialogFormatParagraph) MsgBox "Right indent = " & dlgParagraph.RightIndent End SubИспользуйте свойства и методы VBA Word для отображения правого отступа для абзаца. В следующем примере свойство RightIndent объекта ParagraphFormat используется для отображения отступа вправо для абзаца в позиции точки вставки.
Sub ShowRightIndexForSelectedParagraph() MsgBox Selection.ParagraphFormat.RightIndent End SubТак же, как вы можете вернуть параметры диалогового окна, можно также задать параметры диалогового окна. В следующем примере в диалоговом окне Абзац помечается флажок Сохранить с помощью следующего.
Sub SetKeepWithNext() With Dialogs(wdDialogFormatParagraph) .KeepWithNext = 1 .Execute End With End SubВы также можете использовать свойства и методы VBA для изменения отступа вправо для абзаца. В следующем примере свойство KeepWithNext объекта ParagraphFormat используется для сохранения выбранного абзаца со следующим абзацем.
Sub SetKeepWithNextForSelectedParagraph() Selection.ParagraphFormat.KeepWithNext = True End SubИспользуйте метод Update , чтобы убедиться, что значения диалогового окна отражают текущие значения. Возможно, потребуется использовать метод Update , если вы определите переменную диалогового окна в начале макроса, а затем захотите вернуть или изменить текущие параметры.
Проверка закрытия диалогового окна
Значение, возвращаемое методами Show и Display , указывает, какая кнопка была нажата, чтобы закрыть диалоговое окно. В следующем примере отображается диалоговое окно Разрыв , и если щелкнуть ОК , в строке состояния отображается сообщение.
Sub DialogBoxButtons() If Dialogs(wdDialogInsertBreak).Show = -1 Then StatusBar = "Break inserted" End If End SubВ следующей таблице описаны возвращаемые значения, связанные с кнопками в диалоговых окнах.
| Возвращаемое значение | Описание |
|---|---|
| –2 | Кнопка Закрыть . |
| –1 | Кнопка ОК . |
| 0 (ноль) | Кнопка Отмена . |
| > 0 (ноль) | Кнопка команды: 1 — первая кнопка, 2 — вторая кнопка и т. д. |
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Какой клавишей можно закрыть диалоговое окно или окно сообщений?
Какой клавишей или комбинацией клавиш закрыть диалоговое окно или окно сообщений?
комментировать
в избранное
Литви нов Никол ай [22.8K]
9 лет назад
Комбинацией Alt+F4 — закрывает любое выделенное окно или программу.
Так чтобы эта операция была с одной клавиши, вероятно нет такого, так как любые команды в операционной системе выполняются с помощью клавиш Ctrl, Shift и Alt
автор вопроса выбрал этот ответ лучшим
комментировать
в избранное ссылка отблагодарить
Ksyus ha26 [26.8K]
8 лет назад
Диалоговое окно или окно сообщений можно закрыть при помощи простой комбинации на клавиатуре. Для этого зажимаем Alt (альт) и нажимаем F4. Вот и все, ненужное вам диалоговое окно или же окно сообщений закроется при помощи набора двух этих несложных клавиш
Как найти и закрыть диалоговое окно в Майкрософт Ворд с помощью клавиатуры?
Можно просто нажать клавишу отмены ESC на клавиатуре — либо перейти с помощью нажатия клавиши табуляции Tab к кнопке Отмена на экране и активировать ее с помощью клавиш ввода или пробела, а для подтверждения активации опции в окне нажать ввод — например, на выделенной клавише Ok или Применить. Это чтоб закрыть окно. А переход между окнами приложений происходит по нажатию Alt + Tab, и между вкладками одной программы по Ctrl+ Tab. Перемещение фокуса выделения между элементами окна по Tab.
При подготовке материала использовались источники:
https://learn.microsoft.com/ru-ru/office/vba/word/concepts/customizing-word/displaying-built-in-word-dialog-boxes
http://www.bolshoyvopros.ru/questions/762962-kakoj-klavishej-mozhno-zakryt-dialogovoe-okno-ili-okno-soobschenij.html
http://www.bolshoyvopros.ru/questions/3632208-kak-najti-i-zakryt-dialogovoe-okno-v-majkrosoft-vord-s-pomoschju-klaviatury.html