Word VBA: Добавлять точки для ячеек определенных строк таблицы

[vba_star]

Документы имеют определенные таблицы, для ячеек которых нужно добавлять точки в конце.
Ограничения:
Для шапки таблицы точки не проставляются;
Если содержимое ячейки=пусто, точка не нужна.

Заранее спасибо.

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

Макрос

Sub Макрос1()
   
    Dim tbl As Table, strText As String, i As Long, j As Long
   
    ' Перехватчик ошибок, которые будут происходить, если в таблице есть объединённые ячейки.
    On Error Resume Next
   
    For Each tbl In ActiveDocument.Tables
        For i = 2 To tbl.Rows.Count Step 1
            For j = 1 To tbl.Columns.Count Step 1
                strText = tbl.Cell(i, j).Range.Text
                If Err.Number = 0 Then
                    If Len(strText) <> 2 Then
                        tbl.Cell(i, j).Range.InsertAfter Text:="."
                    End If
                Else
                    Err.Number = 0
                End If
            Next j
        Next i
    Next tbl
   
    On Error GoTo 0
   
    MsgBox "Готово.", vbInformation
   
End Sub

[свернуть]