基于当前段落的访问表对象

Question

我正在遍历文档中的所有段落，并希望识别它们的缩进级别。虽然这在大多数情况下都可以使用Parageh.Format.LeftinDent，但它不适用于表中的段落。尤其是在段落本身没有缩进但表有左缩进的情况下。

有什么方法可以从选定的曲段导航到它所在的表格吗？我知道有属性“WdWithIntable”，但这对我来说还不够，因为我需要Table对象检查它的LeftIndent属性。

Answer 1

使用以下逻辑从当前选择中获取表：

Sub GetTable()

    Dim currentTable As Table

    Set currentTable = Selection.Tables(1)
    'test purpose only
    Debug.Print currentTable.Rows.Count, currentTable.Columns.Count

    'and to get table indention try with this
    Debug.Print currentTable.Range.ParagraphFormat.LeftIndent

End Sub