Pupkin-Zade
Сообщений: 9398
Оценки: 1489
Присоединился: 2004-03-10 13:54:16
|
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ([0-9]@)/([0-9]@) "
.Replacement.Text = "\1;\2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceOne
txt = Selection.Text
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"eq \f(" + txt + ")", PreserveFormatting:=False
|
Макрос! - 
