Retrieving Rich Text from a RTF Text box in a User Form

jpb103 · #1 06-19-2014, 11:30 AM

I get a type mismatch when I try this code.

Code:

        Set oRng = DescriptionBox.TextRTF
        oRow.Cells(1).Range.FormattedText = oRng

Where DescriptionBox is my RTF text box and oRow.Cells(1).Range.Text is where I'd like to put the contents of said RTF text box.

Cosmo · #2 06-19-2014, 12:18 PM

Quote:

Originally Posted by jpb103

I get a type mismatch when I try this code.

Code:

        Set oRng = DescriptionBox.TextRTF
        oRow.Cells(1).Range.FormattedText = oRng

Where DescriptionBox is my RTF text box and oRow.Cells(1).Range.Text is where I'd like to put the contents of said RTF text box.

This might work:

Code:

 
oRow.Cells(1).Range.FormattedText  = DescriptionBox.TextRTF

jpb103 · #3 06-19-2014, 12:20 PM

Quote:

Originally Posted by Cosmo

This might work:

Code:

 
oRow.Cells(1).Range.FormattedText  = DescriptionBox.TextRTF

This code is logically identical to the code segment I've just provided. I have made some progress, though not necessarily in the right direction. The following code does not produce a type-mismatch error, but it does the same thing it did initially (it dumps all the formatting info into the cell, which looks stupid)

Code:

oRow.Cells(1).Range.FormattedText.Text = Descriptionbox.TextRTF

When the user puts something like:

This is an example

into the rich text box, it dumps this:

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl {\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}
{\*\generator Riched20 12.0.6606.1000;}\viewkind4\uc1
\pard{\pntext\f1\'B7\tab}{\*\pn\pnlvlblt\pnf1\pnin dent0{\pntxtb\'B7}}\fi-360\li360\f0\fs17 This is an example\fs17
\par }

into the cell.

Cosmo · #4 06-19-2014, 12:29 PM

Quote:

Originally Posted by jpb103

This code is logically identical to the code segment I've just provided.

No, it's not.

You're setting oRng (which I assume has been defined as a Range object) to a string of formatted text. That should be your type mismatch.

And in your second example, you're setting the FormattedText.Text to the RTF data, which is what you are getting. You need to set the FormattedText to the RTF string.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Rich text/Plain text Content Controls in Template	michael.fisher5	Word	9	11-19-2014 06:36 AM
Rich Text Content Control - Allow User Formatting	keithacochrane	Word	1	05-28-2012 05:06 PM
How to I make text Bold in a User Form -Visual Basic	gurp99	Word VBA	11	03-12-2012 04:05 PM
My plain text post got converted to rich text in a reply, how to convert it back?	david.karr	Outlook	0	01-05-2012 09:46 AM
Templates: automatic text generation from Rich Text content control	Chickenmunga	Word	0	10-01-2008 11:16 AM