Moving Rich Text From Access Memo Field to a Word Text Box

**sneuberg** · 07-22-2015, 06:47 AM

We need to move rich text from an Access memo field to a Word text box. So far the best I’ve been able to come up with is in the code below which is a variation of a suggestion at http://vbadud.blogspot.com/2010/09/h...ntents-to.html In this code “pprs!What is a record set field of a table memo field that is bound to a text box enabled for rich text. The rich text seems to be stored as html as so I can get word to convert it by enclosing it in html tags. This seems to work ok but I’d rather do this more directly than this kludge of writing and reading a file. Any ideas?

Dim What As Word.Shape
Set What = doc.Shapes.AddTextbox(msoTextOrientationHorizontal , doc.PageSetup.LeftMargin, 225, 534, 0)
Dim sPath As String
sPath = "G:\Temp.html"
Open sPath For Output As 1
Print #1, "<HTML>" & pprs!What & " </HTML>"
Close #1
What.TextFrame.TextRange.InsertFile (sPath)

**rpeare** · 08-05-2015, 12:33 PM

I don't understand, you're creating an HTML document (temp.html) but you don't want to enclose it in HTML tags? would that even work? I'd like to see code that works and what references you're using if it's not just MS office word library.

**rpeare** · 08-05-2015, 12:34 PM

maybe I misunderstood, are you trying to create a word document then save it as an HTML document so it will fill in the appropriate HTML code?

**sneuberg** · 08-05-2015, 01:24 PM

Originally Posted by rpeare

maybe I misunderstood, are you trying to create a word document then save it as an HTML document so it will fill in the appropriate HTML code?

We are creating a word document from data in an Access database. This code works somewhat. The only additional reference we added was the Microsoft Word 15 object library.

The following may may sound odd but it is true. If you have text box whose Text Format is Rich Text and that text box is bound to a memo field, the data that comes out of that field in a query is HTML without the HTML tags; not rich text format whatever that might be. If I type the word Bold in the text box and make it bold what come out in a query is <div><strong>Bold</strong></div>. I put the HTML tags around it before I save it to the file so that when it is inserted into the Word text box it gets interpreted as HTML and has the bold format in the final Word document. Otherwise <div><strong>Bold</strong></div> would appear in the word document which is what also happens if you feed the output of the query directly into the Word text box.

I originally said that this seemed to be working, but it turns out that even this isn't quite right. Bullet items come out of this process with more indentation that was originally in the text box.

**rpeare** · 08-07-2015, 07:49 AM

Without parsing the HTML itself I don't know if you're going to solve this, trying to translate a memo field to another format (other than plain text, and sometimes even then depending on the length of the strings involved) notoriously troublesome. Can you provide a sample database so I don't have to recreate something to try and test?

Moving Rich Text From Access Memo Field to a Word Text Box

Thread Tools

Moving Rich Text From Access Memo Field to a Word Text Box

Similar Threads

Trouble with rich text format memo field

seting character attributes to Rich Text in a Memo field

rich text memo field

Access 2007 Memo Field Rich Text

Publish to Word or Excel, dropping memo field text

Posting Permissions