sBody$ = \
\ \ocals|Going to California;\
\ \vp.Table = sFmt & sBody ⒉** AddTable方法
⒊** AddTableArray方法 ⒋** StartTable 方法 ⒌** EndTable 方法
⒍TableCell(Setting As TableCellSettings, [ Row1 As Variant ], [ Col1 As Variant ], [ Row2 As Variant ], [ Col2 As Variant ]) [ = value As Variant ]返回或设置一单元格或一区域的属性 一般过程
A、 使用StartTable开始表格的定义 B、 使用AddTable、AddTableArray或TableCell建立表格 C、 使用TableCell格式化表格
D、 使用EndTable结束定义并呈现表格 Parameter Description Setting 指定哪个属性被返回或被设置. Row1 选定区域的起始行，表头为0行，表身从1行开始 Col1 选定区域的起始列，从1列开始 Row2 选定区域的末行，可选。缺省为Row1. Col2 选定区域的末列，可选。缺省为Col1 下面是settings 的设置：
表的属性: 这些设置影响整个表. Constant Value Description tcIndent 0 返回或设置表的缩进，（缺省单位为twips). tcRows 1 返回或设置表的行数， 表头不包括在内。 如果你改变表
的行数，表格将从底部增加或删除表行。
tcCols 2 返回或设置表的列数， 如果你改变表的列数，表格将从
右边增加或删除表列。
tcInsertRow 3 在指定的位置(Row1)插入一行. tcInsertCol 4 在指定的位置(Col1)插入一列. tcDeleteRow 5 在指定的位置(Row1)删除一行. tcDeleteCol 6 在指定的位置(Col1)删除一列.
行的属性: 这此设置影响所有行或选定的行， 参数 Col1 和Col2 将无效
Constant Value Description tcRowHeight 7 返回或设置行高。表头为0行，（缺省单位为twips). tcRowBorder 8 返回或设置行是否带有上边框，可取的值是: 0 (没
有边框), 1 (force 边框), and 2 (honor 表边框).
tcRowData 9 返回或设置一个与行关联的Variant 类型的值，这
个值给你自己使用，对控件不用它
tcRowSource 10 返回或设置给表行提供数据源的数组行。这个设置
仅适用于绑定到数组的表格（使用eAddTableArray
方法).注意数组索引基于0，而表身索引基于1
tcRowKeepWithNext 11 返回或设置控件是否防止分页在行之后 tcRowIsSubHeader 12 返回或设置在呈现表格后，此行是否成为表头(用
于子标题).
tcRowSpaceBefore 34 返回或设置插在行的每单元格之前的垂直空间数
量
tcRowSpaceAfter 35 返回或设置插在行的每单元格之后的垂直空间总
量
tcRowBorderAbove 36 返回或设置行的自定义上边框的厚度 tcRowBorderBelow 37 返回或设置行的自定义下边框的厚度 tcRowBorderColor 38 返回或设置行的自定义上、下边框的颜色 tcRowNewPage 39 返回或设置此行是否在一页的开头（将强制分页） tcRowKeepTogether 40 返回或设置一行是否是在同在页上，或是分在两页
上
列的属性: 这此设置影响所有列或选定的列， 参数 Row1 和 Row2 无效 Constant Value Description tcColWidth 13 返回或设置列宽 (the default unit is twips). tcColBorder 14 返回或设置在列的右边是否有边框，可取的值有: 0
(no border), 1 (force border), and 2 (honor TableBorder setting).
tcColData 15 返回或设置一个与列关联的Variant 类型的值，这个
值给你自己使用，对控件不用它
tcColSource 16 返回或设置给表列提供数据源的数组列。这个设置
仅适用于绑定到数组的表格（使用eAddTableArray 方法).注意数组索引基于0，而表身索引基于1
tcColAlign 31 返回和设置列的对齐方式，有效的值与 TextAlign
属性一样.
tcColNoWrap 32 返回或设置整个长文本是否可以换行以显示在列的
一个单元格里
tcColSkipRepeats 33 返回或设置是否忽略与上面单元格相同文本的输入 tcColBorderLeft 43 返回或设置列的自定义左边框的厚度 tcColBorderRight 44 返回或设置列的自定义右边框的厚度 tcColBorderColor 45 返回或设置列的自定义左、右边框的颜色
单元格属性: 这些设置影响某单元格或某区域。
Constant Value Description tcColSpan 17 返回或设置多少列的单元格被跨越（列合并） tcText 18 返回或设置单元格的的文本。如果表格绑定到一数组
组，设置这属性将改变表格但不改变原数组
tcAlign 19 返回或设置单元格的文本对齐方式。有效的值与
TextAlign 属性一样。
tcBackColor 20 返回或设置单元格的背景颜色 tcForeColor 21 返回或设置单元格的前景颜色 tcFont 22 返回或设置单元格的字体
tcFontName tcFontSize tcFontBold tcFontItalic tcFontUnderline tcFontStrikethru tcPicture
tcPictureAlign tcRowSpan tcVertical
tcAlignCurrency 23 24 25 26 27 28 29 30 41 42 46
返回或设置单元格的字体名称 返回或设置单元格的的字体大小R 返回或设置单元格的字体是否是加粗 返回或设置单元格的字体是否是斜体 返回或设置单元格的字体是否有下划线 返回或设置单元格的字体是否有加重符号 返回或设置单元格的图片
返回或设置单元格的图片对齐方式
返回或设置多少行的单元格被跨越 (行合并). 返回或设置单元格的文本方向是否垂直的 Aligns to the right and accounts for parenthesis.
Negative currency values are often shown enclosed in parenthesis.
⒎TableBorder[ = TableBorderSettings ]返回或设置表的边框类型 Constant tbNone tbBottom tbTop tbTopBottom tbBox tbColumns tbAll tbBoxRows tbBoxColumns tbBelowHeader value description 0 1 2 3 4 5 7 8 9 10 没有边框 表头和表身有底部边框 表头和表身有顶部边框 表头和表身有顶部、底部边框 表头和表身有外边框 表头和表身有列间边框 表头和表身有列间边框、顶部、底部边框 全部边框都有 表头和表身外边框和行间边框 表头和表身外边框和列间边框 表头有底部边框 tbColTopBottom 6 ⒏TablePen[ = value As Variant ]返回或设置单元格间边框的厚度
⒐TablePenTB[ = value As Variant ] 返回或设置表格顶部外边框和底部外边框的厚度 ⒑TablePenLR[ = value As Variant ] 返回或设置表格左外边框和右外边框的厚度 ⒒** BeforeTableCell事件 ⒓** AfterTableCell事件
（4） 图形(略)
⒉BrushColor[ = colorref& ]返回或设置填充图形的刷子的颜色
⒊BrushStyle[ = BrushStyleSettings ] 返回或设置填充图形的刷子的风格 Constant Value Description bsSolid 0 实心刷子 bsTransparent 1 透明刷子.使用此刷画空的图形 bsHorzLine 2 水平线 bsVertLine 3 垂直线 bsDiagonalUp 4 向上突出的对角线 bsDiagonalDown 5 向下突出的对角线 bsCross 6 水平、垂直交叉线
bsDiagonalCross 7 对角交叉线 默认值是bsSolid（0）
⒋PenColor[ = colorref& ]返回或设置勾画图形的笔的颜色
⒌PenStyle [ = PenStyleSettings ] 返回或设置勾画图形的笔的风格
Constant Value Description psSolid 0 实心笔(默认值). psDash 1 虚线笔. psDot 2 点笔. psDashDot 3 划-点笔 psDashDotDot 4 划-点-点笔. psTransparent 5 透明笔 (no lines). psInsideSolid 6 Solid pen drawn inside shapes.
⒍PenWidth [ = value As Variant ] 返回或设置勾画图形的笔的宽度，默认为0 ⒎** DrawCircle方法 ⒏** DrawEllipse方法 ⒐** DrawLine方法 ⒑** DrawRectangle方法
⒒Polygon=value As String 画一个包含X、Y坐标的字串所设计的多边形 如：vp.StartDoc
vp.Polygon = \
vp.EndDoc
⒓Polyline= value As String画一个包含X、Y坐标的字串所设计的折线 ⒔Draw = DrawSettings画一个以X1, Y1, X2, Y2所确定范围的对象
Constant Value Description doNothing 0 没有效果. doLine 1 画一条线从点 (X1, Y1)到点(X2, Y2) doRectangle 2 画一个长方形从点 (X1, Y1)到点(X2, Y2) doEllipse 3 画一个椭圆由点(X1, Y1) 和 点(X2, Y2)确定范围
⒕X1 [ = value As Variant ], Y1 [ = value As Variant ], X2 [ = value As Variant ], Y2 [ = value As Variant ]分别是返回或设置左、上、右、下的坐标。用于以下情况：
1. 在Draw 和Picture 属性中，定义一个长方形来确定对象的位置和大小
2. 在使用CalcParagraph, CalcPicture, CalcTable, CalcText, 和CalcTextRTF
属生测量时，返回原素的边界框。
3. 在调用GetMargins方法后，返回页面的可打印区域。
4. 在调用 FindTag和 FindText 属性后.返回标签或文本的位置。
（5） 图片（略） ⒈** DrawPicture方法
⒉RenderControl= value As Long在页面上呈现一个OPP控件，必须给它赋以OPP控件的hwnd
⒊PelettePicture[=picture]返回或设置呈现文档的调色板。
⒋Picture[=picture]返回当前预览页上的一幅图片，或设置一幅图片在当前页上显示。
⒌X1,Y1,X2,Y2见前面。
（6） 覆盖层
⒈** StartOverlay方法 ⒉** EndOverlay方法
（7） 活动内容
⒈** CilentToPage方法 ⒉** PageToCilent方法
⒊iPage =FindText(Text As String, [ CaseSensitive As Variant ], [ StartPage As Variant ], [ EndPage As Variant ], [ StartY As Variant ])在当前文档中查找Text中的内容，返回匹配的页号和坐标放在X1，Y1，X2，Y2中。若没找到，返回-1 参数说明：
Text As String：包含要查找的文本
CaseSensitive As Variant (可选)：指定查找时是否匹配大小写，默认是 False. StartPage As Variant (可选)：指定查找的开始页，默认是1 (the first page).
EndPage As Variant (可选) 指定查找的结束页，默认是PageCount 属性(the last page). StartY As Variant (可选)，指定开始查找的行位置，默认是0。
⒋val$=RetrieveText(Left As Variant, Top As Variant, [ Right As Variant ], [ Bottom As Variant ], [ Page As Variant ], [ ClientCoords As Variant ])返回当前文档中指定区域的文本。 参数说明：
Left, Top As Variant
这些参数定义区域的左上坐标，你可以为参数指定这些单位 (inches, points, twips, cm, mm, or pixels). 缺省单位是twips. 详细用法见 Using Unit-Aware Properties 主题. Right, Bottom As Variant (可选)
这些参数定义区域的右下坐标，是可选的，默认值是Left, Top Page As Variant (可选)
这些参数定义区域的页号，可选，默认值是当前预览页 (PreviewPage 属性). ClientCoords As Variant (optional)
这参数指定 Left, Top, Right, and Bottom 参数表示的是 client 坐标还是page坐标 。可选，默认值是False (page坐标). 你可以使用ClientToPage and PageToClient 方法转换坐标。
⒌** ScrollIntoView方法 ⒍** StartTag方法 ⒎** EndTag方法
⒏iPage=FindTag(Text As String, [ CaseSensitive As Variant ], [ StartPage As Variant ], [ EndPage As Variant ], [ StartY As Variant ])查找标签，返回匹配标签的页号和区域（放在X1，Y1，X2，Y2）若查找不到返回-1。 参数如下： Text As String
包含要查找标签的文本。控件执行部分匹配，如：设置文本为 \将检索出带有\和\文本的标签。 CaseSensitive As Variant (optional)
决定是否匹配大小写，默认设置是False.