Formatierten Text ohne Zwischenablage verschieben/kopieren

06/07/2008 - 11:25 von Thomas Wiedmann | Report spam
Hallo,

wie kann man per VBA-Befehl (Word 2000) einen markierten Text zusammen mit
seiner Formatierung (Schriftart und -grad, Einzüge, Absatz-Abstànde ...)
verschieben bzw. kopieren, ohne dafür die Zwischenablage zu verwenden, also
ohne irgendwelche .Copy oder ClipBoard-Statements benutzen zu müssen? Kann
man formatierten Text als Objekt setzen und lesen?

Thomas Wiedmann
 

Lesen sie die antworten

#1 Lisa
06/07/2008 - 12:58 | Warnen spam
Hallo Thomas,

ja, dazu verwendet man die Eigenschaft FormattedText, z.B. so:

_____
Sub MarkiertenTextMitFormaten()

Dim rng As Word.Range

Set rng = Selection.Range.FormattedText

ActiveDocument.Paragraphs(1).Range.Collapse
ActiveDocument.Paragraphs(1).Range.FormattedText rng.FormattedText

Set rng = Nothing

End Sub
____
Hier wird der markierte Text am Dokumentanfang eingefügt. Der
Zielrange muss vor dem Einfügen verkleinert (kollabiert) werden,
siehe auch die VBA-Hilfe.

Gruß
Lisa
_____
http://www.schreibbuero-richter.de

Ähnliche fragen