Método Application.Open (Publisher)

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

Sintaxis

más sencilla.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 Verdadero (valor predeterminado) para agregar el nombre de archivo a la lista de archivos utilizados 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 de Publisher.
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

Comentarios

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 Falso, pero el proceso continúa ejecutándose en segundo plano, aunque no sea 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.

  • Last updated on