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