Макрос изменения регистра первых букв в предложениях

Sub firstCharCase()
'изменение регистра первых букв предложений и
'замена пробела после однобуквенного предлога на неразрывный пробел
Dim fChar As Range
For Each fChar In ActiveDocument.Sentences
   fChar.Characters.First.Case = wdUpperCase
Next fChar
With ActiveDocument
   .Select
   With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "([А-ЯЁ]){1}([ ])"
      .Replacement.Text = "\1^s"
      .MatchWildcards = True
      .Forward = True
      .Execute Replace:=wdReplaceAll
   End With
End With
Selection.Collapse wdCollapseStart
End Sub