Word: макрос для таблиц. Отформатировать определенный вид таблиц - VBA

Формулировка задачи:

В документе два вида таблиц. Первый тип таблиц имеет вертикальную шапку сбоку (левый столбец) и состоит она всегда из двух столбцов. Второй тип таблиц имеет горизонтальную шапку. Необходимо, отформатировать второй тип таблиц: шапку по центру задать жирную и текст - 12 Таймз Роман.

Решение задачи: «Word: макрос для таблиц. Отформатировать определенный вид таблиц»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
Dim t As Table
For Each t In ActiveDocument.Tables
    If t.Columns.Count > 2 Then 'таблица второго типа?
        With t.Rows(1).Range
            .Font.Name = "Times New Roman"
            .Font.Bold = True
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
    End If
Next
End Sub
                        

Оцени полезность:

11 голосов , оценка 3.909 из 5

Похожие ответы