Поиск и замена текста в Word

Sub ВисячиеПредлоги()
 
    Selection.Find.MatchWildcards = True
    Dim i As Integer
    Dim Prepositions() As Variant
    Prepositions = Array("без", "безо", "близ", "в", "во", "вместо", "вне", "для", "до", "за", "из", "изо", "из-за", "из-под", "к", "ко", "кроме", "между", "меж", "на", "над", "о", "об", "обо", "от", "ото", "перед", "передо", "пред", "пред", "пo", "под", "подо", "при", "про", "ради", "с", "со", "сквозь", "среди", "у", "через", "чрез")
 
    For i = 0 To UBound(Prepositions)
    
        With ActiveDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = " " & Prepositions(i) & " "
            .Replacement.Text = " " & Prepositions(i) & "^s"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With    
    Next i
End Sub