Application.Open-Methode (Publisher)
Gibt ein Document -Objekt zurück, das die neu geöffnete Publikation darstellt.
Syntax
Ausdruck. 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 (Standard), um den Dateinamen der Liste der zuletzt verwendeten Dateien am unteren Rand des Menüs 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. Dies kann eine der in der Verlegertypbibliothek deklarierten PbSaveOptions-Konstanten sein. |
| 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. Im folgenden Codebeispiel wird gezeigt, wie Sie eine neue, sichtbare instance von Publisher erstellen.
Nach Abschluss der zweiten instance können Sie die Visible-Eigenschaft des Anwendungsfensters auf False festlegen, aber der Prozess wird weiterhin im Hintergrund ausgeführt, 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.