设置表格列或单元格的宽度。
expression.SetWidth(ColumnWidth, RulerStyle)
expression 必需。该表达式返回“应用于”列表中的一个对象。
ColumnWidth 必需,Single 类型。指定列的宽度,以磅为单位。
RulerStyle 必需, WdRulerStyle。 控制 Word 调整单元格宽度的方式。
WdRulerStyle 可以是下列 WdRulerStyle 常量之一: |
wdAdjustNone 将所有选定的单元格或列的宽度设为指定值。Word 通过必要的左右移动保持所有未选中列的宽度。此常量是该参数的默认值。 |
wdAdjustSameWidth 仅将第一列单元格的宽度设为指定值。Word 通过调整所有其它列或单元格为相同宽度,保持表格的右边界。 |
wdAdjustFirstColumn 仅将第一列单元格的宽度设为指定值。如果表多于一列,Word 将保持表格的右边界和其他列的位置。 |
wdAdjustProportional 仅将第一列单元格的宽度设为指定值。如果选中多列,Word 通过将按比例调整其它选定列的宽度,来保持表格的右边界或未选中列的位置。如果仅选中一列或一个单元格,Word 通过按比例调整其它列或单元格的宽度,保持表格的右边界。 |
上述 WdRulerStyle 行为应用于左对齐的表格。WdRulerStyle 行为用于中对齐和右对齐的表格时可能导致出错,因此 SetWidth 方法应谨慎使用。
本示例在新文档中创建一张表格,设置第二行第一个单元格宽度为 1.5 英寸。本示例保持表格中其他单元格的宽度。
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _
NumColumns:=3)
myTable.Cell(2,1).SetWidth _
ColumnWidth:=InchesToPoints(1.5), _
RulerStyle:=wdAdjustNone
本示例设置包含插入点的单元格宽度为 36 磅。本示例缩小第一列的宽度以保持表格的右边界位置。
If Selection.Information(wdWithInTable) = True Then
Selection.Cells(1).SetWidth ColumnWidth:=36, _
RulerStyle:=wdAdjustFirstColumn
Else
MsgBox "The insertion point is not in a table."
End If