Метод Application.Open (Publisher)
Возвращает объект Document , представляющий только что открытую публикацию.
Синтаксис
expression. Открыть (FileName, ReadOnly, AddToRecentFiles, SaveChanges, OpenConflictDocument)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| FileName | Обязательный | String | Имя публикации (пути принимаются). |
| ReadOnly | Необязательный | Логический | Значение true , чтобы открыть публикацию только для чтения. Значение по умолчанию — False. |
| AddToRecentFiles | Необязательный | Логический | Значение True (по умолчанию), чтобы добавить имя файла в список недавно использовавшихся файлов в нижней части меню Файл . |
| Savechanges | Необязательный | PbSaveOptions | Указывает, что должен делать Microsoft Publisher, если уже есть открытая публикация с несохраненные изменения. Может быть одной из констант PbSaveOptions , объявленных в библиотеке типов издателя. |
| OpenConflictDocument | Необязательный | Логический | Значение true , чтобы открыть локальную публикацию конфликтов, если конфликт возникает в автономном режиме. Значение по умолчанию — False. |
Возвращаемое значение
Документ
Замечания
Так как у издателя есть один интерфейс документа, метод Open работает только при открытии нового экземпляра Publisher. В следующем примере кода показано, как создать новый видимый экземпляр Publisher.
По завершении работы со вторым экземпляром можно задать для свойства Visible окна приложения значение False, но процесс продолжает выполняться в фоновом режиме, даже если он не виден. Чтобы закрыть второй экземпляр, необходимо задать для объекта значение Nothing.
Пример
В этом примере создается второй экземпляр Publisher и открывается указанная публикация только для чтения. Чтобы этот пример работал, необходимо заменить PathToFile путем к существующей публикации.
Sub OpenNewPub()
Dim appPub As New Publisher.Application
appPub.Open FileName:="PathToFile", _
ReadOnly:=True, AddToRecentFiles:=False, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.