******************************************
With Selection.Find
.Text = " {2,}"
.Replacement.Text = " "
.Wrap = wdFindContinue
.MatchWildcards = True
End With
******************************************
With Selection.Find
.Text = "([!.]) Т.([0-9])"
.Replacement.Text = "\1. Т.\2"
.Wrap = wdFindContinue
.MatchWildcards = True
End With
******************************************
With Selection.Find
.Text = "^#-комната, "
.Replacement.Text = "^&"
.Wrap = wdFindContinue
.Format = True
End With
******************************************
With Selection.Find
.Text = "Комната, "
.Replacement.Text = "^&"
.Wrap = wdFindContinue
.Format = True
End With
******************************************
Есть такие куски макроса - что они заменяют?