Question

设置表格列或单元格的宽度。

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