发布服务器) (文档对象
代表出版物。
备注
使用 ActiveDocument 属性来指代当前出版物。
示例
本示例向当前出版物的第一页的表格。
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
还可以通过使用对 ThisDocument 模块的引用来编写上一个例程。 该示例使用 ThisDocument 引用而不是 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
事件
方法
- BeginCustomUndoAction
- ChangeDocument
- Close
- ConvertPublicationType
- EndCustomUndoAction
- ExportAsFixedFormat
- FindShapeByWizardTag
- FindShapesByTag
- PrintOutEx
- Redo
- Save
- SaveAs
- SetBusinessInformation
- Undo
- UndoClear
- UpdateOLEObjects
- WebPagePreview
属性
- ActiveView
- ActiveWindow
- AdvancedPrintOptions
- 应用程序
- AvailableBuildingBlocks
- BorderArts
- ColorScheme
- DefaultTabStop
- DocumentDirection
- EnvelopeVisible
- 查找
- FullName
- IsDataSourceConnected
- IsWizard
- LayoutGuides
- MailEnvelope
- MailMerge
- MasterPages
- 名称
- Pages
- PageSetup
- Parent
- Path
- PrintPageBackgrounds
- PrintStyle
- PublicationType
- ReadOnly
- RedoActionsAvailable
- RemovePersonalInformation
- Saved
- SaveFormat
- ScratchArea
- Sections
- Selection
- 故事
- SurplusShapes
- Tags
- TextStyles
- UndoActionsAvailable
- ViewBoundaries
- ViewGuides
- ViewHorizontalBaseLineGuides
- ViewTwoPageSpread
- ViewVerticalBaseLineGuides
- WebNavigationBarSets
- Wizard
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。