Word - VBA - søg og erstat i markeret afsnit

Sidder og bøvler med at få Word til KUN at erstatte i markeret tekst. Hvis jeg bruger  ".execute Replace:=wdReplaceAll" erstattes al efterfølgende tekst og anvendes ".execute Replace:=wdReplaceOne" er det kun det første afsnit i den valgte tekst !!

Er der gode ideer til hvordan får jeg afgrænset søg/erstat til de valgte afsnit ? 


Sub RetTekst()
'
    MinTekst = Selection.Text
    MsgBox MinTekst ' vis den udvalgte tekst

    With Selection.Find
        .ClearFormatting
        .Format = True
        .Font.Size = "12"
        With .Replacement
            .ClearFormatting
            .Font.Size = "9"
        End With
        .Execute FindText:="", ReplaceWith:="", Format:=True, _
Replace:=wdReplaceAll, Wrap:=wdFindStop
    End With
       
    MinTekst = Selection.Text
    MsgBox MinTekst '  vis den udvalgte tekst igen

End Sub