Re: Hot to parse RTF String

Talk about a multi-post extravaganza!



"Robert Mileski" <r_mileski@xxxxxxxxxxx> wrote in message
news:%23LcPsvzNHHA.4604@xxxxxxxxxxxxxxxxxxxxxxx
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:

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: 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



.

Relevant Pages

  • Re: Hot to parse RTF String
    ... Public Declare Function OpenClipboard Lib "user32" ... "RegisterClipboardFormatA" (ByVal lpString As String) As Long ... Valid RTF ...
    (microsoft.public.word.conversions)
  • Re: Hot to parse RTF String
    ... Public Declare Function OpenClipboard Lib "user32" As ... "RegisterClipboardFormatA" (ByVal lpString As String) As Long ... Valid RTF ...
    (microsoft.public.word.conversions)
  • Re: RTFcontrol of memo fields
    ... from the Note field to the RTFcontrol field for ALL records, ... The code for CrLf is NOT shown in the string. ... The RTF2 control box will appear with this single line: ... Do you currently have RTF formatted text in the Memo field? ...
    (microsoft.public.access.modulesdaovba)
  • Re: Hot to parse RTF String
    ... Public Declare Function OpenClipboard Lib "user32" As ... "RegisterClipboardFormatA" (ByVal lpString As String) As Long ... Valid RTF ...
    (microsoft.public.word.vba.general)
  • Re: Hot to parse RTF String
    ... Public Declare Function OpenClipboard Lib "user32" As ... "RegisterClipboardFormatA" (ByVal lpString As String) As Long ... Valid RTF ...
    (microsoft.public.word.conversions)