Partager via


Méthode Application.Open (Publisher)

Renvoie un objet Document qui représente la composition récemment ouverte.

Syntaxe

expression. Open (FileName, ReadOnly, AddToRecentFiles, SaveChanges, OpenConflictDocument)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
FileName Obligatoire String Nom de la composition (les chemins sont acceptés).
ReadOnly Facultatif Boolean True pour ouvrir la composition en lecture seule. Valeur par défaut est False.
AddToRecentFiles Facultatif Boolean True (valeur par défaut) pour ajouter le nom de fichier à la liste des fichiers récemment utilisés en bas du menu Fichier .
SaveChanges Facultatif PbSaveOptions Spécifie ce que Microsoft Publisher doit faire si une composition est déjà ouverte, avec des modifications non enregistrées. Il peut s’agir de l’une des constantes PbSaveOptions déclarées dans la bibliothèque de types du serveur de publication.
OpenConflictDocument Facultatif Boolean True pour ouvrir la composition conflictuelle en local s'il existe un conflit en mode hors connexion. Valeur par défaut est False.

Valeur renvoyée

Document

Remarques

Étant donné que Publisher dispose d'une interface de document unique, la méthode Open fonctionne uniquement lorsque vous ouvrez une nouvelle instance de Publisher. L’exemple de code suivant montre comment créer un nouveau instance visible de Publisher.

Lorsque vous avez terminé avec la deuxième instance, vous pouvez définir la propriété Visible de la fenêtre d’application sur False, mais le processus continue à s’exécuter en arrière-plan, même s’il n’est pas visible. Pour fermer la deuxième instance, vous devez définir l'objet égale à Nothing.

Exemple

Cet exemple crée une deuxième instance de Publisher et ouvre la composition spécifiée en lecture seule. Pour que cet exemple fonctionne, vous devez remplacer PathToFile par le chemin d’accès à une composition existante.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.