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

Ansicht des Beitrags:
Von:
Holger		 Datum:
02.04.2008 11:50:55		 Views:
896		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Textgröße von Absatzmarken ändern
Hallo chakko,
willst du wirklich nur die Absatzmarken oder den vor der Makroausführung manuell oder per VBA markierten Bereich den zu ändern?
Wenn du den Text ändern willst und dabei auch die Absatzmarken markierst hast, reicht eigentlich

Sub raffen()
Selection.Font.Size = 8
selection.collapse Direction:=wdCollapseEnd 'sonst änderst du gleich wieder zurück!
Selection.Font.Size = 11
end sub

Willst du die Absatzmarken neu formatieren, aber nicht den gesamten Text, dann musst du die Selection.Find.Replacement.Font.Size-Eigenschaft setzen:

Sub raffen()
Selection.Find.ClearFormatting
Selection.Find.Font.Size = 11
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Size = 8
With Selection.Find
.Text = "^p" 'die Absatzmarke ist eigentlich chr(13)+chr(10), deshalb empfehle ich ^p
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
end sub


chakko schrieb am 02.04.2008 09:54:48:

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
02.04.2008 09:54:48 chakko
NotSolved
Blau Aw:Textgröße von Absatzmarken ändern
 02.04.2008 11:50:55 Holger
NotSolved