Thema Datum  Von Nutzer Rating
Antwort
Rot Textgröße von Absatzmarken ändern
02.04.2008 09:54:48 chakko
NotSolved
02.04.2008 11:50:55 Holger
NotSolved

Ansicht des Beitrags:
Von:
chakko
Datum:
02.04.2008 09:54:48
Views:
1837
Rating: Antwort:
  Ja
Thema:
Textgröße von Absatzmarken ändern
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Textgröße von Absatzmarken ändern
02.04.2008 09:54:48 chakko
NotSolved
02.04.2008 11:50:55 Holger
NotSolved