Word Макросы: Изменить поля выделенных ячеек в таблице

[Anton]

Подскажите пожалуйста, записал процедуру на изменение полей ячеек в таблице.
Но работает для всех ячеек. А как сделать так, чтобы изменялись поля только выделенных ячеек?

With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0.05)
        .BottomPadding = CentimetersToPoints(0.05)
        .LeftPadding = CentimetersToPoints(0.05)
        .RightPadding = CentimetersToPoints(0.05)
        .Spacing = 0
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With

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

Макрос

Sub Макрос()

    Dim cel As Cell
   
    ' Отключение монитора (может это ускорит работу макроса).
    Application.ScreenUpdating = False
   
    For Each cel In Selection.Cells
        With cel
            .TopPadding = CentimetersToPoints(0.05)
            .BottomPadding = CentimetersToPoints(0.05)
            .LeftPadding = CentimetersToPoints(0.05)
            .RightPadding = CentimetersToPoints(0.05)
        End With
    Next cel
   
    ' Включение монитора.
    Application.ScreenUpdating = True

End Sub

[свернуть]

[Anton]

Круто! Большое спасибо!

А подскажите еще по теме пожалуйста - как получить значение  .TopPadding ?
Например, что-то типа того: x=Selection.Cells.TopPadding (не работает, конечно, но как проверить, какое значение имеет TopPadding в конкретной ячейке?)

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

Верхнее поле первой ячейки в выделенном фрагменте:
x=Selection.Cells(1).TopPadding

[Anton]

Спасибо!