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:
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ß
chakko |