Метод 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 и обратная связь.