Определить количество столбцов в таблице в Word, используя VBA

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