Sub ОформитьТаблицу()
    Dim doc As Document
    Dim tb As Table
    Dim i As Integer, j As Integer
    
    Set doc = ActiveDocument
    Set tb = Selection.Tables(1)
    tb.Rows.SetLeftIndent LeftIndent:=14, RulerStyle:=wdAdjustNone
    For i = 1 To tb.Rows.Count
        
        If InStr(tb.Rows(i).Cells(1).Range, "Показатель") > 0 Then
            For j = 2 To tb.Columns.Count
                With tb.Rows(i).Cells(j)
                    .LeftPadding = 0
                    .RightPadding = 0
                End With
            Next j
        End If
    Next i
   
    With tb
        .Columns(1).Width = 70.95
        .Columns(2).Width = 39.25
        .Columns(3).Width = 43.8
        .Columns(4).Width = 28.35
        .Columns(5).Width = 37.45
        .Columns(6).Width = 34.5
        .Columns(7).Width = 37.3
        .Columns(8).Width = 37.15
        .Columns(9).Width = 42.35
        .Columns(10).Width = 47.1
        .Columns(11).Width = 42.55
        .Columns(12).Width = 38.3
        .Columns(13).Width = 44.7
        .Columns(14).Width = 28.3
    End With
End Sub