Распределить ширину столбца в таблице документа Word

Question

Моя цель - перейти к началу документа Word, найти 6-ю таблицу, отформатировать таблицу в «Arial» и шрифт 9 и распределить ширину столбца.

Проблема в том, чтоне распределяет ширину столбца, но делает два других.

Sub TableFormat()

Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
Selection.GoTo What:=wdGoToTable, Which:=GoToNext
    Selection.Tables(1).Select
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 9
       If Selection.Cells.Count >= 2 Then
          Selection.Cells.DistributeWidth
       End If
End Sub

Answer 1

Это должно помочь вам без всего этого безумного Select ing:)

Sub TableFormat()
    With ActiveDocument.Tables(6)
        With .Range.Font
            .Name = "Arial"
            .Size = 9
        End With

        If .Columns.count > 1 Then .Columns.DistributeWidth
    End With
End Sub

Answer 2

Изменить Cells.DistributeWidth на Columns.DistributeWidth