В тексте есть содержание, в котором точки проставлены вручную. Причем между точек есть пробелы.
Нужно заменить все сочетания пробелов и точек на один символ табуляции.
Макрос
Sub Макрос()
With Selection.Range.Find
.Text = "( .){1;}"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Спасибо.