Sub Popraw(find, text)
    With find
        .Clear
        .MatchCase = True
        .FindText = " " + text + " "
        .ReplaceWithText = " " + text + Chr(160)
        .ReplaceScope = pbReplaceScopeAll
        .Execute
    End With
End Sub

Sub PoprawSpojnik(find, spojnik)
    Popraw find:=find, text:=spojnik
    Popraw find:=find, text:=Strings.StrConv(spojnik, VbStrConv.vbUpperCase)
End Sub

Sub PoprawJedno(frame)
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="i"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="a"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="w"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="z"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="o"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="że"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="to"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="na"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="do"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="od"
    PoprawSpojnik find:=frame.TextRange.find, spojnik:="co"

    If frame.HasNextLink Then
        PoprawJedno frame:=frame.NextLinkedTextFrame
    End If
End Sub

Sub PoprawSpojniki()
    Dim aStory As Story
    ThisDocument.BeginCustomUndoAction ("Popraw Spojniki")
    For Each aStory In ThisDocument.Stories
        PoprawJedno frame:=aStory.TextFrame
    Next
    ThisDocument.EndCustomUndoAction
End Sub