1－自动设置 2－以占窗口宽度的百分数表示宽度 3－以磅值表示宽度
下例设置 Microsoft Word 以窗口宽度的百分比来表示宽度，然后将文档的第一个表格的宽度设置为窗口宽度的 50%。
With MyWord.ActiveDocument.Tables(1) .PreferredWidthType = 2 .PreferredWidth = 50 EndWith
（2）AllowAutoFit属性
是否可以自动重新调整表格中的单元格的大小以适应内容。逻辑型。
下例设置活动文档的第一张表格可自动调整大小以适应内容。 MyWord.ActiveDocument.Tables(1).AllowAutoFit = .T. （3）AllowPageBreaks属性
是否允许对指定表格进行跨页断行。
下例设置活动文档的第二个表格可以跨页断行。 MyWord.ActiveDocument.Tables(2).AllowPageBreaks = .T. 3、Border 对象和Borders 集合对象 Border代表一个对象的边框。
Borders 集合对象是由 Border 对象所组成的集合，该集合代表对象的边框。
Border 对象是 Borders 集合中的元素。用 Borders 属性可返回 Borders 集合。
用 Borders(index) 可返回单个 Border 对象，其中 index 用来标识边框。索引序号可以是下列数值（都是负数）之一：
-1－顶部边框 -2－左边框 -3－底部边框 -4－右边框 -5－水平线 -6－垂直线 边框常用的几个属性： （1）LineStyle属性
返回或设置指定对象的边框线型，共有25种线型。以下列出几种常用的线型（数值型）：
26
0－无线 1－单线 7－双线
下例设置活动文档的第一张表格顶部边框线为单线。 MyWord.ActiveDocument.Tables(1). Borders(-1). LineStyle =1
（2）LineWidth属性
返回或设置对象边框的线宽。以磅值为单位，数值型。 下例设置活动文档的第一张表格顶部边框线宽设为2磅。 MyWord.ActiveDocument.Tables(1). Borders(-1). LineWidth =2 （3）Color属性
该属性返回或设置指定的 Border对象的 24 位颜色。该属性值是RGB 函数返回的值。
下例设置活动文档的第一张表格顶部边框线设为红色。 MyWord.ActiveDocument.Tables(1).Borders(-1).Color =RGB(255,0,0)
（4）Enable 属性
返回或设置指定对象的边框格式。如果指定对象的全部或部分边框应用了边框格式，则返回值为 .T.。
该属性应用于指定对象的所有边框。如果该属性值为.T.，则将线型设置为默认线型，将线条宽度设置为默认线条宽度。可以通过 DefaultBorderLineWidth 及 DefaultBorderLineStyle 属性来设置默认线型和默认线条宽度。
下例所示，将 Enable 属性的值设置为 .F.，就可以删除对象中的所有边框。
MyWord.ActiveDocument.Tables(1).Borders.Enable = .F. （5）DefaultBorderLineWidth 属性
返回或设置边框的默认线条宽度。数值型，以磅表示。 （6）DefaultBorderLineStyle 属性
返回或设置默认边框的线型。数值型，编号从0－24 。 0－无 1－单线 7－双线 （7）DefaultBorderColor 属性
该属性返回或设置用于新的 Border 对象的默认 24 位颜色。该
27
属性可以是RGB 函数返回的值。
4、Cell 对象和Cells 集合对象 Cell 对象代表单个表格单元格。
Cells 集合对象是由表格列、表格行、选定内容或区域中的 Cell 对象组成的集合。
Cell 对象是 Cells 集合中的元素。Cells 集合代表指定对象中所有的单元格。用 Cells 属性可返回 Cells 集合。
用 Cell(row, column) 或 Cells(index)可返回 Cell 对象，其中 row 为行号，column 为列号，index 为索引序号。
5、Row 对象和Rows 集合对象 Row 对象代表表格的一行。
Rows 集合对象是由 Row 对象所组成的集合，该集合中的对象代表指定的选定部分、区域或表格中的表格行。Row 对象是 Rows 集合中的一个元素。
用 Rows 属性可返回 Rows 集合。下例在左右边距之间居中活动文档第一张表格的各行，即表格在页面上居中。
MyWord.ActiveDocument.Tables(1).Rows.Alignment = 1
用 Rows(index) 可返回单独的 Row 对象，其中 index 为索引序号。索引序号代表该行在选定部分、区域或表格中的位置。
（1）Height 属性
返回或设置表格中指定的某一行或某几行的高度（以磅为单位）。数值型。下例显示表格第一行的高度为25磅。
MyWord.ActiveDocument.Tables(1).Rows(1).Height=25 （2）Delete 方法
下列示例删除活动文档中第一张表格的首行。 MyWord.ActiveDocument.Tables(1).Rows(1).Delete （3）SetHeight 方法
语法：expression.SetHeight(RowHeight, HeightRule) 设置表格行的高度。
expression 必需。该表达式返回一个Row或Rows对象。 RowHeight 数值型，必需。一行或多行的高度，以磅为单位。
28
HeightRule 数值型，必需。确定指定行的高度的方法，有三种方式可以选择，编号分别为0、1和2。
下列示例设置活动文档的第一个表格的第一行高度为30磅。 MyWord.ActiveDocument.Tables(1).Rows(1). SetHeight(30,0) 6、Column 对象和Columns 集合对象 Column 对象代表单个表格列。
Columns 集合对象是由 Column 对象所组成的集合，该集合中的对象代表表格中的列。Column 对象是 Columns 集合的一个元素。
用 Columns 属性可返回 Columns 集合。下列示例显示活动文档的第一张表格的 Columns 集合中 Column 对象的个数。
? MyWord.ActiveDocument.Tables(1).Columns.Count
使用 Columns(index) 可返回单独的 Column 对象，其中 index 为索引序号。索引序号代表该列在 Columns 集合中的位置（从左至右计算）。
下列示例选定活动文档中的第一个表格的第一列。 MyWord.ActiveDocument.Tables(1).Columns(1).Select （1）Width 属性
返回或设置指定的Column 对象的宽度。
下列示例设置活动文档中的第一个表格的第一列宽度为60磅。 MyWord.ActiveDocument.Tables(1).Columns(1). Width=60 （2）Delete 方法
下列示例删除活动文档中第一张表格的第二列。 MyWord.ActiveDocument.Tables(1). Columns(2).Delete （3）SetWidth 方法
语法：expression.SetWidth(ColumnWidth, RulerStyle) 设置表格列或单元格的宽度。
expression 必需。该表达式返回一个Column或Columns对象。 ColumnWidth 必需，数值型。指定列的宽度，以磅为单位。 RulerStyle 必需，数值型。控制调整单元格宽度的方式： 0－将所有选定的单元格或列的宽度设为指定值。Word 通过必要的左右移动保持所有未选中列的宽度。此常量是该参数的默认值。
29
1－仅将第一列单元格的宽度设为指定值。如果选中多列，Word 通过将按比例调整其它选定列的宽度，来保持表格的右边界或未选中列的位置。如果仅选中一列或一个单元格，Word 通过按比例调整其它列或单元格的宽度，保持表格的右边界。
2－仅将第一列单元格的宽度设为指定值。如果表多于一列，Word 将保持表格的右边界和其他列的位置。
3－仅将第一列单元格的宽度设为指定值。Word 通过调整所有其它列或单元格为相同宽度，保持表格的右边界。
7、合并与拆分单元格 （1）合并单元格
语法一：expression.Merge(MergeTo)
将选定的单元格与另一个单元格合并。合并结果是一个单独的单元格。
expression 必需。该表达式返回一个Cell对象。 MergeTo 必需，Cell 对象。要合并的单元格。
下例将活动文档的表 1 的前两个单元格合并，然后删除表格的边框。
With MyWord.ActiveDocument.Tables(1) .Cell(1,1).Merge(.Cell(1,2)) .Cell(1,1).Borders.Enable=.F. EndWith
语法二：expression.Merge
将选定的单元格合并。合并结果是单独的单元格。 expression 必需。该表达式返回一个Cells对象。
下例判断选择区域是否在表格中，且选择区域中的单元格总数大于1，则合并所选定单元格。
MyCell= MyWord.Selection.Cells.Count
If MyWord.Selection.Information(12) AND MyCell >1 MyWord.Selection.Cells.Merge EndIf
（2）拆分单元格
30