设置表格中一行或多行的缩进量。
expression.SetLeftIndent(LeftIndent, RulerStyle)
expression 必需。该表达式返回一个 Row 或 Rows 对象。
LeftIndent Single 类型,必需。从当前指定的一行或多行的左边到所需的左边界的距离(以磅为单位)。
RulerStyle 必需,WdRulerStyle。在改变左缩进量时,用来控制 Word 调整表格的方式。
WdRulerStyle 可以是下列 WdRulerStyle 常量之一: |
wdAdjustNone 调整一行或多行的左边界,通过左移或右移列保护所有列的宽度不变。本常量为参数默认值。 |
wdAdjustSameWidth 调整第一列的左边界,通过将指定的一行或多行的所有单元格设置为相同宽度,以保持表格的右边界位置。 |
wdAdjustFirstColumn 仅调整第一列的左边界,保护其他列的位置和表格的右边界。 |
wdAdjustProportional 调整第一列的左边界,通过按比例调整指定的一行或多行的所有单元格的宽度,以保持表格的右边界位置。 |
上述 WdRulerStyle 行为应用于左对齐的表格。对于居中和右对齐的 WdRulerStyle 行为则不可预料。在这些情况下,使用 SetLeftIndent 方法应该慎重。
本示例在新文档中创建一张表格,第一行缩进 0.5 英寸(36 磅)。改变左缩进量时,自动调整单元格宽度以保持表格的右边界。
Dim docNew As Document
Dim tableNew As Table
Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _
NumRows:=3, NumColumns:=3)
tableNew.Rows(1).SetLeftIndent LeftIndent:=InchesToPoints(0.5), _
RulerStyle:=wdAdjustSameWidth
本示例将活动文档中“表格 1”的第一行缩进 18 磅,并通过缩小第一列的宽度来保持表格的右边界位置。
If ActiveDocument.Tables.Count >= 1 Then
ActiveDocument.Tables(1).Rows.SetLeftIndent LeftIndent:=18, _
RulerStyle:=wdAdjustFirstColumn
End If