Объект Columns (издатель)

Статья
04/07/2023

Коллекция объектов Column , представляющих столбцы в таблице.

Замечания

Используйте свойство Columns объекта Table , чтобы вернуть коллекцию Columns .

Используйте columns (index), где index — это номер индекса, чтобы вернуть один объект Column . Номер индекса представляет позицию столбца в коллекции Columns (подсчет слева направо).

Используйте метод Add для добавления столбца в таблицу.

Пример

В следующем примере показано количество объектов Column в коллекции Columns для первой таблицы активного документа.

Sub CountColumns() 
 MsgBox "The number of columns in the table is " & _ 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns.Count 
End Sub

В этом примере в каждой ячейке указанной таблицы вводится полужирное число. Предполагается, что указанная фигура является таблицей, а не другим типом фигуры.

Sub CountCellsByColumn() 
 Dim shpTable As Shape 
 Dim colTable As Column 
 Dim celTable As Cell 
 Dim intCount As Integer 
 
 intCount = 1 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each colTable In shpTable.Table.Columns 
 For Each celTable In colTable.Cells 
 With celTable.Text 
 .Text = intCount 
 .ParagraphFormat.Alignment = _ 
 pbParagraphAlignmentCenter 
 .Font.Bold = msoTrue 
 intCount = intCount + 1 
 End With 
 Next celTable 
 Next colTable 
 
End Sub

В следующем примере выбирается третий столбец в указанной таблице.

Sub SelectColumns() 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns(3).Cells.Select 
End Sub

В этом примере добавляется столбец в указанную таблицу на второй странице активной публикации, а затем настраивается ширина, выполняется слияние ячеек и задается цвет заливки. В этом примере предполагается, что первая фигура является таблицей, а не другим типом фигуры.

Sub NewColumn() 
 Dim colNew As Column 
 
 Set colNew = ActiveDocument.Pages(2).Shapes(1).Table.Columns _ 
 .Add(BeforeColumn:=3) 
 With colNew 
 .Width = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=202, Green:=202, Blue:=202) 
 End With 
End Sub

Методы

Свойства

См. также

Справочник по объектной модели издателя

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через