VBA Задать поля всех ячеек в таблице Word

[bdfy]

вот такой вот код. вставляет в документ oDoc из буфера обмена таблицу

    Set oRng = oDoc.Paragraphs.last.Range
    'Debug.Print oRng.Fields(1).Code.text
    oRng.ParagraphFormat.KeepWithNext = True
    
    oRng.InsertCaption label:="Таблица", TitleAutoText:="", _
                Title:="-" & text, Position:=0, ExcludeLabel:=0
    'oRng.InsertParagraphafter
    oRng.Collapse 0 'end
    
        oRng.PasteExcelTable _
            LinkedToExcel:=False, _
            WordFormatting:=False, _
            RTF:=True
'       oRng.ClearOutline
        oRng.Tables(1).AutoFitBehavior (wdAutoFitWindow)
        If header > 0 Then
            For i = 1 To header
            oRng.Tables(1).Rows(i).HeadingFormat = True
            Next
        End If
        oRng.Tables(1).select
        
        Debug.Print oDoc.Application.Selection.Cells.Count

        For i = 1 To oDoc.Application.Selection.Cells.Count
              With oDoc.Application.Selection.Cells(i)
            '     Debug.Print x.LeftPadding
                .LeftPadding = 0
                .RightPadding = 0
                .WordWrap = True
                .FitText = False
             End With
        Next

а вот с форматирование ее беда (( нужно задать всем ячейкам в таблице нулевые поля.
получилось пока только как выше - т.е каждой ячейке последовательно. тормозит жутко (даже скрытие ворда не помогает). как это одним действием сделать ? запись вордовская ничего толкового не показала, наугад пробовал долго - ничего не выходит (( код запускается из Excel.
в ворде запись макроса дает что-то вроде

    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Tables(1).Select
    With Selection.Cells(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        .WordWrap = True
        .FitText = False
    End With

т.е. операция проводиться с первой ячейкой. через макрос если этот код запустить - одну ячейку и обрабатывает. а нужно всю таблицу

[Вождь]

Обнуление полей таблицы:

    With Selection.Tables(1)
        .TopPadding = 0
        .BottomPadding = 0
        .LeftPadding = 0
        .RightPadding = 0
    End With