Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Devolve um objeto Documento que representa uma nova publicação.
Sintaxe
expressão. NewDocument (Assistente, Estrutura)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Assistente | Opcional | PbWizard | O assistente a ser usado para criar a nova publicação. Pode ser uma das constantes PbWizard declaradas na biblioteca de tipos do Microsoft Publisher. O padrão é pbWizardNone. |
| Design | Opcional | Long | O design a ser aplicado à nova publicação. |
Valor de retorno
Documento
Exemplo
Este exemplo cria uma nova publicação e edita a página mestra para que contenha o número de página em uma estrela no canto superior esquerdo da 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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.