Compartir a través de


Método Application.Open (Publisher)

Devuelve un objeto Document que representa una publicación que se acaba de abrir.

Sintaxis

expresión. Open (FileName, ReadOnly, AddToRecentFiles, SaveChanges, OpenConflictDocument)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
FileName Necesario String Nombre de la publicación (se aceptan las rutas de acceso).
ReadOnly Opcional Boolean True para abrir la publicación como de sólo lectura. Valor predeterminado es False.
AddToRecentFiles Opcional Boolean True (valor predeterminado) para agregar el nombre de archivo a la lista de archivos usados recientemente en la parte inferior del menú Archivo .
SaveChanges Opcional PbSaveOptions Especifica lo que debe hacer Microsoft Publisher si ya existe una publicación abierta cuyos cambios no se han guardado. Puede ser una de las constantes PbSaveOptions declaradas en la biblioteca de tipos del publicador.
OpenConflictDocument Opcional Boolean True para abrir la publicación con conflicto local si existe un conflicto sin conexión. Valor predeterminado es False.

Valor devuelto

Documento

Observaciones

Puesto que Publisher tiene una interfaz de un único documento, el método Open funciona sólo cuando se abre una nueva instancia de Publisher. En el ejemplo de código siguiente se muestra cómo crear una nueva instancia visible de Publisher.

Cuando termine con la segunda instancia, puede establecer la propiedad Visible de la ventana de la aplicación en False, pero el proceso continúa ejecutándose en segundo plano, aunque no esté visible. Para cerrar la segunda instancia, debe establecer el objeto igual a Nothing.

Ejemplo

En este ejemplo se crea una segunda instancia de Publisher y se abre la publicación especificada en modo de solo lectura. Para que este ejemplo funcione, deberá reemplazar PathToFile con la ruta de acceso a una publicación existente.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.