Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve un objeto Document que representa una nueva publicación.
Sintaxis
expresión. NewDocument (Asistente, Diseño)
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Asistente | Opcional | PbWizard | Asistente que se va a utilizar para crear la nueva publicación. Puede ser una de las constantes PbWizard declaradas en la biblioteca de tipos de Microsoft Publisher. El valor predeterminado es pbWizardNone valor. |
| Diseño | Opcional | Long | Diseño que se va a aplicar a la nueva publicación. |
Valor devuelto
Documento
Ejemplo
En este ejemplo se crea una publicación nueva y se modifica la página principal para que contenga un número de página en una estrella en la esquina superior izquierda de la página.
Sub CreateNewPublication()
Dim AppPub As Application
Dim DocPub As Document
Set AppPub = New Publisher.Application
Set DocPub = AppPub.NewDocument
AppPub.ActiveWindow.Visible = True
With DocPub.MasterPages(1).Shapes.AddShape _
(Type:=msoShape5pointStar, Left:=36, _
Top:=36, Width:=50, Height:=50)
.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
With .TextFrame.TextRange
.InsertPageNumber
.ParagraphFormat.Alignment = pbParagraphAlignmentCenter
With .Font
.Bold = msoTrue
.Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)
.Size = 12
End With
End With
End With
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.