With Selection.Find
.Text = "( )(и|а|о|на|до|от)()" [COLOR="DarkGreen"]
'т.е. ищутся разные однобуквенные и двухбуквенные предлоги в окружении пробелов[/COLOR]
.Replacment.Text = "$1$2~s"
End With
Selection.Find.Replace:=wdReplaceAll
Вопрос про рег. выражения
Давно как-то обсуждался вопрос обработки предлогов - вставка после них неразрывного пробела (^s). Хотелось бы сделать это красиво через регулярные выражения.
Вот что нарыл:
Не работает из-за неверного синтаксиса разделителя вариантов. Кто-то знает, как записать правильно?
Вот что нарыл:
Код:
Не работает из-за неверного синтаксиса разделителя вариантов. Кто-то знает, как записать правильно?
насколько я знаю, нет синтаксиса для вариантов слов, но можно сделать Replace отдельно для каждго пробела:
Код:
Sub t()
For Each pretext In Array("на", "в", "до")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "<(" & pretext & ")> "
.Replacement.Text = "\1^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next pretext
End Sub
For Each pretext In Array("на", "в", "до")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "<(" & pretext & ")> "
.Replacement.Text = "\1^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next pretext
End Sub