Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

RTF Text in Word-Doc einfuegen

48 views
Skip to first unread message

Thomas Weidemann

unread,
Nov 30, 1999, 3:00:00 AM11/30/99
to
Hallo,

mit untenstehendem Quellcode füge ich Text in ein Word-Doc an einer
Textmarke ein.
Wie aber kann ich RTF-formatierten Text an einer Textmarke einfügen ?
Da der RTF-Text in einer Variabel in VB vorliegt suche ich eine Lösung die
ohne das Einlesen
einer Datei auskommt.
Geht das ?

'- - - - - Mein Code
Dim W As New Word.Application
Dim Doc As Word.Document
Dim R As Word.Range


W.Documents.Open FileName:="C:\Dok1.doc"
Set Doc = W.ActiveDocument

Set R = Doc.Range(Start:=Doc.Bookmarks("MeinText").Start, End:=Doc.Bookmarks
"MainText").End)

'- - - Hier soll der RTF-Text rein z.B: R.FormatedText =
"{\rtf1\ansi.................."

R.Text = "Normaler unformatierter Text"

W.Visible = True

'- - - - - - - - - - - - - -

Gruß
Thomas Weidemann

Peter Haserodt

unread,
Nov 30, 1999, 3:00:00 AM11/30/99
to
Hallo Thomas,
ich würde einem rtf Steuerlement den Text.rtf zuweisen
dann in das ClipBoard senden und
in Word an der entsprechenden Stelle ein
Paste ausführen.

Gruß Peter

J. Gercke

unread,
Nov 30, 1999, 3:00:00 AM11/30/99
to
Hallo, wenn Du den RTF-Text bereits in einer Variablen hast, kannst Du
direkt über das Clipboard gehen. Man sollte dabei den Format-Schalter
beachten.
Nur mal so:
Wenn man versucht das Clipboard für die Umwandlung von RTF-Text nach
ASCII zu verwendend, dann ist das Grundsätzlich eine gute Idee. Leider
werden dann aber bedingte Trennstriche und auch Trennstriche aus der
automatischen Silbentrennung von Word mit in den Ascii-Text gewürfelt
(sehr unschön). Da bleibt einem dann wirklich nur noch der Umweg über
das rtf-Steuerelement.

Noch ein Hinweis:
Schau Dir mal die Textfelder (Textframes) an. Diesen kann man Namen
geben und sie damit sehr komfortabel Adressieren.

Ciao Jobst

Thomas Weidemann

unread,
Dec 1, 1999, 3:00:00 AM12/1/99
to
>Hallo, wenn Du den RTF-Text bereits in einer Variablen hast, kannst Du
>direkt über das Clipboard gehen. Man sollte dabei den Format-Schalter
>beachten.

Danke erst mal für eure Tipps. Mit dem RTF-Text hats jetzt funktioniert.
Schade nur das man die Zwischenablage missbrauchen muss :-((

>.....


>Noch ein Hinweis:
>Schau Dir mal die Textfelder (Textframes) an. Diesen kann man Namen
>geben und sie damit sehr komfortabel Adressieren.

Hört sich gut an, aber wie kann man einem Textfeld in einem Dok einen
Namen zuweisen ? Die Stelle hab ich noch nicht gefunden !

>Ciao Jobst
Gruß
Thomas Weidemann

Jobst Gercke

unread,
Dec 1, 1999, 3:00:00 AM12/1/99
to

Tja, dumme Sache! Der Name scheint nur von VBA aus angebbar zu sein.
Es ist aber ein leichtes ein kleines Makro zu schreiben, was für den aktuell
selectierten Frame einen Namen abfragt.
Benannte Textframes machen sich auch sehr gut in einer Dokumentenvorlage.
Ciao
Jobst

0 new messages