Word VBA: Изменить размер строчек в таблице

[Посетитель]

А помогите пожалуйста! Нам задали написать макрос, который изменяет высоту строк в выделенной таблице, но чтобы можно было сначала ввести размер строки в пунктах и чтобы можно было изменить высоту только четных или только нечетных строк, или только каждую третью сверху таблицы, например 1,3,6,9 и так далее.

[Администратор]

Дробные числа вводите с запятой.
Этот макрос работает с нечётными строками.

Макрос

Sub Main()
       
    Dim tbl As Word.Table, sngHeight As Single, i As Long
   
    '1. Юзер задаёт высоту строк.
    sngHeight = InputBox("Введите высоту строк в см:")
    '2. Vba-именование таблицы, в которой находится курсор.
    Set tbl = Selection.Tables(1)
    '3. Чтобы можно было задавать высоту:
        ' Диалог "Свойства таблицы" - вкладка "Строка" - область "Размер" - режим: точно.
    tbl.Rows.HeightRule = wdRowHeightExactly
    '4. Изменение высоты строк у нечётных строк.
    For i = 1 To tbl.Rows.Count Step 2
        tbl.Rows(i).Height = CentimetersToPoints(sngHeight)
    Next i
    '5. Сообщение.
    MsgBox "Макрос завершил работу.", vbInformation

End Sub

[свернуть]

[Посетитель]

О как быстро! Большущее спасибо!