Word VBA教程:NestingLevel属性

返回指定的单元格、列、行或表格的嵌套层。Long 类型,只读。

expression.NestingLevel

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

说明

最外围表格的嵌套层为 1。每一个相连嵌套表格的嵌套层比其前面表格的嵌套层高 1。

VBA示例

本示例新建一个文档,创建一个三层嵌套表格,并在每个表格的第一个单元格中填入该表格所在的嵌套层数。


Documents.Add
ActiveDocument.Tables.Add Selection.Range, _
    3, 3, wdWord9TableBehavior, wdAutoFitContent
With ActiveDocument.Tables(1).Range
    .Copy
    .Cells(1).Range.Text = .Cells(1).NestingLevel
    .Cells(5).Range.PasteAsNestedTable
    With .Cells(5).Tables(1).Range
        .Cells(1).Range.Text = .Cells(1).NestingLevel
        .Cells(5).Range.PasteAsNestedTable
        With .Cells(5).Tables(1).Range
            .Cells(1).Range.Text = _
                .Cells(1).NestingLevel
        End With
    End With
End With

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号