Замена пробела на неразрывный

[КарандашТМ]

Здравствуйте!

есть макрос для замены обычного пробела на неразрывный для предлогов
(чтобы не было "висячих" предлогов на конце строк)

Sub nbsp_pred()
'
' Замена пробелов на неразрывные
'
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
        .Text = "( [ВвСсКк№]) "
        .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
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Однако, в данном случае поиск идёт по однобуквенным предлогам.

Как можно сделать тоже самое, но для двух- и более буквенных предлогов?
Например, для "по", "до" и прочее...

2. Подскажите, как избавиться от "задваивания" описания предлогов в приведённом макросе? Чтобы регистр был любой.

Хотя в макросе и указано

.MatchCase = False

но, почему-то, на результат это никак не влияет .

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

Углубляться пока недосуг, это часа на 2. Скажу пока лишь, что параметры

        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False

при установке

        .MatchWildcards = True

вообще-то не нужны.

Ясно, что это макрос, но лишнее лучше убрать.

Кстати говоря, если запишете замену "По " на "По^s" (и т. д.) при

        .MatchWildcards = False

— оттуда тоже.

А вот и почти доделанный пример — макрос, находящий предлоги в конце строки!