Word VBA教程:SetLeftIndent方法

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

expression.SetLeftIndent(LeftIndent, RulerStyle)

expression   必需。该表达式返回一个 Row 或 Rows对象。

LeftIndent   Single 类型,必需。从当前指定的一行或多行的左边到所需的左边界的距离(以磅为单位)。

RulerStyle   必需,WdRulerStyle。在改变左缩进量时,用来控制 Word 调整表格的方式。

WdRulerStyle 可以是下列 WdRulerStyle 常量之一:
wdAdjustNone 调整一行或多行的左边界,通过左移或右移列保护所有列的宽度不变。本常量为参数默认值。
wdAdjustSameWidth 调整第一列的左边界,通过将指定的一行或多行的所有单元格设置为相同宽度,以保持表格的右边界位置。
wdAdjustFirstColumn 仅调整第一列的左边界,保护其他列的位置和表格的右边界。
wdAdjustProportional 调整第一列的左边界,通过按比例调整指定的一行或多行的所有单元格的宽度,以保持表格的右边界位置。

说明

上述 WdRulerStyle 行为应用于左对齐的表格。对于居中和右对齐的 WdRulerStyle 行为则不可预料。在这些情况下,使用 SetLeftIndent方法应该慎重。

VBA示例

本示例在新文档中创建一张表格,第一行缩进 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

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号