Objeto document (Publicador)
Representa uma publicação.
Comentários
Use o ActiveDocument propriedade para referir-se à publicação atual.
Exemplo
Este exemplo adiciona uma tabela à primeira página da publicação ativa.
Sub NewTable()
With ActiveDocument.Pages(1).Shapes
.AddTable NumRows:=3, NumColumns:=3, Left:=72, Top:=300, _
Width:=488, Height:=36
With .Item(1).Table.Rows(1)
.Cells(1).TextRange.Text = "Column1"
.Cells(2).TextRange.Text = "Column2"
.Cells(3).TextRange.Text = "Column3"
End With
End With
End Sub
Você também pode escrever a rotina anterior usando uma referência ao módulo ThisDocument . Este exemplo usa uma referência a ThisDocument em vez de usar ActiveDocument.
Sub PrintPublication()
With ThisDocument.Pages(1).Shapes
.AddTable NumRows:=3, NumColumns:=3, Left:=72, Top:=300, _
Width:=488, Height:=36
With .Item(1).Table.Rows(1)
.Cells(1).TextRange.Text = "Column1"
.Cells(2).TextRange.Text = "Column2"
.Cells(3).TextRange.Text = "Column3"
End With
End With
End Sub
Eventos
Métodos
- BeginCustomUndoAction
- ChangeDocument
- Close
- ConvertPublicationType
- EndCustomUndoAction
- ExportAsFixedFormat
- FindShapeByWizardTag
- FindShapesByTag
- PrintOutEx
- Refazer
- Save
- SaveAs
- SetBusinessInformation
- Undo
- UndoClear
- UpdateOLEObjects
- WebPagePreview
Propriedades
- ActiveView
- ActiveWindow
- AdvancedPrintOptions
- Application
- AvailableBuildingBlocks
- BorderArts
- ColorScheme
- DefaultTabStop
- DocumentDirection
- EnvelopeVisible
- Find
- FullName
- IsDataSourceConnected
- IsWizard
- LayoutGuides
- MailEnvelope
- MailMerge
- MasterPages
- Nome
- Pages
- PageSetup
- Responsável
- Path
- PrintPageBackgrounds
- PrintStyle
- PublicationType
- ReadOnly
- RedoActionsAvailable
- RemovePersonalInformation
- Saved
- SaveFormat
- ScratchArea
- Sections
- Selection
- Histórias
- SurplusShapes
- Marcas
- TextStyles
- UndoActionsAvailable
- ViewBoundaries
- ViewGuides
- ViewHorizontalBaseLineGuides
- ViewTwoPageSpread
- ViewVerticalBaseLineGuides
- WebNavigationBarSets
- Wizard
Confira também
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.