Создание таблицы - VB

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

Добрый день .Сломал голову.Нужно в word создать таблицу с помощью макроса размером 15 на 15 см с ячейками 0,5 на 0,5 Выделить код ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=30, NumColumns:=30 ActiveDocument.Tables(1).Columns(i).PreferredWidth = CentimetersToPoints(0,5) Размер ячейки он выдаёт верно, но я не могу найти как верно по размеру 0,5 установить значение строки он выдаёт 0,9 см Спасибо!!!!!

Решение задачи: «Создание таблицы»

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

                                ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=15, NumColumns:= _
        15, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
    .Columns.PreferredWidth = CentimetersToPoints(0.5)
    .Rows.Height = CentimetersToPoints(0.5)
    End With
                        