Question

设置表格中一行或多行的缩进量。

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