Question

只是一个简单的问题。我在Word模板中有这个表，默认情况下有两列。然后我有了这个按钮，用户可以按，如果他想要另一列。宏运行会插入多个文本占位符并自动格式化某些内容。但我想要的是某种例程，基本上检查此表中的列数，如果有两列，则输入的文本自动为“列3”，如果有三列，则文本应为“第4栏“。如果我能找到如何找到列数，应该很简单。

Answer 1

表对象知道它有多少列，只需检查Columns.Count属性。

ThisDocument.Tables(1).Columns.Count

Answer 2

这有效：

Sub CountColumns()
    Dim d As Document
    Set d = ActiveDocument
    Dim t As Table
    Set t = d.Tables(1)
    Debug.Print t.Columns.Count
End Sub

使用VBA确定Word中表格中的列数

2 个答案: