Office: Textgröße von Absatzmarken ändern

Hallo Forum :-D

Ich möchte, um einen Text ggf. zu raffen, damit er auf eine Seite passt, die Absatzmarken von Größe 11 auf 8 ändern.
Danach soll die Textgröße wieder auf 11 gesetzt werden.
Versucht habe ich es mit folgendem Code:

Code:

Sub raffen() 
Selection.Font.Size = 8 
With Selection.Find 
  
       .Text = Chr$(13) 
       .Replacement.Text = Chr$(13) 
    
        .Forward = True 
        
        .Wrap = wdFindContinue 
        
        .Format = False 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
   Selection.Font.Size = 11 
End Sub 

Das ersetzen der Absatzmarken funktioniert offenbar (Ich habe es getestet, indem ich als Replacement Text versuchswiese "x" eingegeben habe).
Leider ändert sich die Textgröße nicht., d.h., die ersetzten Zeichen werden auch in Größe 11, statt in Größe 8 geschrieben.Woran liegt es?
Gruß