Word VBA教程:SetWidth方法

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

expression.SetWidth(ColumnWidth, RulerStyle)

expression   必需。该表达式返回“应用于”列表中的一个对象。

ColumnWidth  必需,Single 类型。指定列的宽度,以磅为单位。

RulerStyle  必需,WdRulerStyle。 控制 Word 调整单元格宽度的方式。

WdRulerStyle 可以是下列 WdRulerStyle 常量之一:
wdAdjustNone  将所有选定的单元格或列的宽度设为指定值。Word 通过必要的左右移动保持所有未选中列的宽度。此常量是该参数的默认值。
wdAdjustSameWidth  仅将第一列单元格的宽度设为指定值。Word 通过调整所有其它列或单元格为相同宽度,保持表格的右边界。
wdAdjustFirstColumn  仅将第一列单元格的宽度设为指定值。如果表多于一列,Word 将保持表格的右边界和其他列的位置。
wdAdjustProportional  仅将第一列单元格的宽度设为指定值。如果选中多列,Word 通过将按比例调整其它选定列的宽度,来保持表格的右边界或未选中列的位置。如果仅选中一列或一个单元格,Word 通过按比例调整其它列或单元格的宽度,保持表格的右边界。

说明

上述 WdRulerStyle 行为应用于左对齐的表格。WdRulerStyle 行为用于中对齐和右对齐的表格时可能导致出错,因此 SetWidth方法应谨慎使用。

VBA示例

本示例在新文档中创建一张表格,设置第二行第一个单元格宽度为 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号