Документы имеют определенные таблицы, для ячеек которых нужно добавлять точки в конце.
Ограничения:
Для шапки таблицы точки не проставляются;
Если содержимое ячейки=пусто, точка не нужна.
Заранее спасибо.
Макрос
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