Word VBA - интервал между столбцами в таблице

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

Подскажите пожалуйста, как с помощью Word VBA задать интервал между столбцами в таблице. Руками в Wordе это делается так: Таблица - высота и ширина ячеек - столбец - интервал между столбцами. В помощи сказано, что этот параметр относится ко всей таблице.

Решение задачи: «Word VBA - интервал между столбцами в таблице»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub TestMacro()
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
    With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0.19)
        .RightPadding = CentimetersToPoints(0.19)
        .Spacing = CentimetersToPoints(0.5)
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
End Sub