Application.Open-Methode (Publisher)

Gibt ein Document -Objekt zurück, das die neu geöffnete Publikation darstellt.

Syntax

Ausdruck verwendet werden. Open (FileName, ReadOnly, AddToRecentFiles, SaveChanges, OpenConflictDocument)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
FileName Erforderlich String Der Name der Publikation (Pfade werden akzeptiert).
ReadOnly Optional Boolean True, wenn die Publikation im schreibgeschützten Modus zu öffnen. Standard ist False.
AddToRecentFiles Optional Boolescher Wert True (Standardeinstellung), um den Dateinamen zur Liste der zuletzt verwendeten Dateien unten im Menü "Datei " hinzuzufügen.
SaveChanges Optional PbSaveOptions-Wert Gibt an, was in Microsoft Publisher geschehen soll, wenn bereits eine Publikation mit nicht gespeicherten Änderungen geöffnet ist. Kann eine der PbSaveOptions-Konstanten sein, die in der Publisher-Typbibliothek deklariert sind.
OpenConflictDocument Optional Boolean True, wenn die lokale Konfliktpublikation zu öffnen, wenn einem Offlinekonflikt vorhanden ist. Der Standardwert ist False.

Rückgabewert

Dokument

Hinweise

Da Publisher eine einfache Dokumentschnittstelle verfügt, funktioniert die Open -Methode nur, wenn Sie eine neue Instanz von Publisher öffnen. Das folgende Codebeispiel zeigt, wie Sie eine neue, sichtbare Instance von Publisher erstellen.

Wenn Sie mit der zweiten Instance fertig sind, können Sie die Visible-Eigenschaft des Anwendungsfensters auf False festlegen, aber der Prozess läuft im Hintergrund weiter, obwohl er nicht sichtbar ist. Um die zweite Instanz zu schließen, müssen Sie das Objekt auf Nothing festlegen.

Beispiel

Dieses Beispiel erstellt eine zweite Instanz von Publisher und öffnet die angegebene Publikation schreibgeschützt. Sie müssen in diesem Beispiel PathToFile durch den Pfad zu einer vorhandenen Publikation ersetzen.

Sub OpenNewPub() 
 Dim appPub As New Publisher.Application 
 appPub.Open FileName:="PathToFile", _ 
 ReadOnly:=True, AddToRecentFiles:=False, _ 
 SaveChanges:=pbPromptToSaveChanges 
 appPub.ActiveWindow.Visible = True 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.