Бронвин спросила, есть ли способ заставить диалоговое окно «Открыть» оставаться видимым, чтобы можно было открывать несколько файлов последовательно. Хотя с помощью диалогового окна «Открыть» можно одновременно открывать несколько документов, Бронвин не хотел этого.

Одно из решений — которое косвенно связано с Word — использовать проводник (Windows 10) или Windows Explorer (более ранние версии Windows)

для отображения файлов в папке. Откройте окно проводника, в котором отображаются все файлы документов. Затем вы можете дважды щелкнуть файлы или создать набор файлов, щелкнуть их правой кнопкой мыши и выбрать «Открыть». Окно постоянно доступно, и вам не нужно беспокоиться о многократном отображении диалогового окна Открыть.

Если вы предпочитаете решение непосредственно в Word, просто помните, что Word очень настраиваемый, что означает, что вы можете изменить практически каждый аспект программы. Это включает поведение диалогового окна «Открыть». Все, что вам нужно сделать, это создать замену команде FileOpen, как показано ниже:

Public Sub FileOpen()

Dim err_handler     On Error GoTo err_handler

With Dialogs(wdDialogFileOpen)

.Name = "."

Do While .Show <> 0             .Name = "."

Loop     End With     Exit Sub

err_handler:

If Err.Number = 5174 Then         MsgBox "You can open only one file at a time.", vbCritical         Resume Next     Else         MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation     End If End Sub

С помощью этого макроса всякий раз, когда Word отображает диалоговое окно «Открыть», он делает это с указанием типа файла «Все файлы». Затем вы можете выбрать файл, и диалоговое окно снова откроется, чтобы дождаться вашего следующего выбора. Если вы нажмете «Отмена» в диалоговом окне, команда завершится, и вы сможете приступить к другим задачам в Word.

Существует разница между этой реализацией диалогового окна «Открыть» и той, которая обычно представлена ​​в Word. В Word вы можете создать «набор выбора» в диалоговом окне «Открыть», чтобы одновременно открывать несколько файлов. Когда вы используете диалоговое окно вддиалогфилеопен (как это делается при создании собственной замены для команды Открыть), вы можете выбрать только один файл за раз. Это не казалось большой проблемой для Бронуин, но могло быть проблемой для других пользователей.

Если вы должны сохранить возможность открывать несколько файлов одновременно, вы можете выполнить commandbarcontrol. Однако при выполнении commandbarcontrol вы не можете проверить, нажимает ли кто-нибудь «Отмена». Следовательно, вам нужен другой способ выйти из петли. В следующей процедуре вы можете выбрать / открыть несколько файлов, но вы также должны ответить в диалоговом окне, чтобы выйти из цикла, который показывает диалоговое окно.

Sub GetNewFiles()

Dim Response     Do While Response <> vbNo         CommandBars("Standard").Controls("&Open...").Execute         Response = MsgBox(Prompt:="Open another file?", Buttons:=vbYesNo)

Loop End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12357) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Modifying_Behavior_of_the_Open_Dialog_Box [Изменение поведения открытого диалогового окна].