[RESOLVED] MS Word: How to parse RTF String

Hi,

I have a question.

I want to put a string through VBA in Word, which has a "RTF Syntax" in a
Word document, but parsed, that is formatted.

I'll give you an example:

VB Code:

Sub ParseRTF()
    Dim txtStr as String
 
        txtStr = "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\lang1031\b\f0\fs17 This is an example of a String in RTF Format\par }"
 
End Sub

So, now I have a String with RTF. The problem is now, how can I put this
text in a Word Document, but it should be pasted already formated, not just
as a plain text.

One way of doing this, is putting the String in a .rtf File, and then using
this command:

VB Code:

Selection.InsertFile FileName:="C:\TEST.rtf", Link:=True

But I don't want to use a file, because of the time doing a disk read. I
want to paste the formatted string in the document directly.


I want to do this, because I have an MS Access Database, where I store the
RTF Strings in Memo Fields. I want to read them from the database, and
formatted, put them in a document.


Every help will be much appreciated.


Best Regards,
Robert Mileski

this works, add a reference to richtx32.ocx (you may have to browse for it)

VB Code:

Dim rtb As RichTextLib.RichTextBox
Set rtb = New RichTextBox
mystr = "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\lang1031\b\f0\fs17 This is an example of a String in RTF Format\par }"
rtb.TextRTF = mystr
Selection.TypeText rtb.Text

edit: you can declare your richtext box in the general section then set it once and use throughout your code

Well, actually in the mean time I found a solution to my problem. Anyway thanks.

Using the RichTextBox Control doesn't solve the problem, because of the lack of RTF Commands. For Example, if you have a Field Code in the RTF, RichTextBox cannot process this, and you wont be able to paste it in word correctly, or for that matter it won't work also with any other complex Word formatting.

I will tell how I did it, so if someone else encounters the problem, here is the solution.

The trick is using the Windows Clipboard Api. You have to Declare it, and you also have to declare another variable "CF_RTF" which you do through the api call RegisterClipboardFormat("Richt Text Format") as long.

Now you send your string with the RTF to this API Call, which will now put your string in clipboard memory the right way, with the complex formatting that word has.

Now, you just place the Clipboard Data into your Document, with Selection.PasteSpecial wdData:=wdPasteRTF.

And you are done, problem solved. :)


Best Regards,
Robert Mileski

You have exactly the same situation as I do, but I am a total novice at this. Can you share the complete code you used to get the field from access to word.

I am also interested in the code. Any chance we can see it?

Quote:

---

Originally Posted by mileski

Hi,

I have a question.

I want to put a string through VBA in Word, which has a "RTF Syntax" in a
Word document, but parsed, that is formatted.

I'll give you an example:

VB Code:

Sub ParseRTF()
    Dim txtStr as String
 
        txtStr = "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\lang1031\b\f0\fs17 This is an example of a String in RTF Format\par }"
 
End Sub

So, now I have a String with RTF. The problem is now, how can I put this
text in a Word Document, but it should be pasted already formated, not just
as a plain text.

One way of doing this, is putting the String in a .rtf File, and then using
this command:

VB Code:

Selection.InsertFile FileName:="C:\TEST.rtf", Link:=True

But I don't want to use a file, because of the time doing a disk read. I
want to paste the formatted string in the document directly.


I want to do this, because I have an MS Access Database, where I store the
RTF Strings in Memo Fields. I want to read them from the database, and
formatted, put them in a document.


Every help will be much appreciated.


Best Regards,
Robert Mileski

---

I am using MS RTF amplest to parse any texts into this sample. I managed to parse plain text (by replacing some TAGs placed insample. Now I am looking for the way to parse formatted text into RTF. Could you help me?