F
F. Loos
I have an access 2007 database with a table. In that table there is a
memofield with formatted text. (bullets, fontcolor etc)
When I enter some text by hand en make text formating, I'm able to copy the
formatted text from one record to another, using a form:
The code looks like this:
iets = Form_Formulier1.textje
DoCmd.GoToRecord , , acNext
Form_Formulier1.textje = iets
The coal was to get formatted text from a word document en put it in the
memofield. I tried a real lot but cannot find anything working.
For example:
set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.Documents.Open("test.doc")
Form_Formulier1.textje = wdDoc.Paragraphs(6)
Form_Formulier1.textje = wdDoc.Range(1, 250)
This will copy the text but all format is gone
Does someone know a solution?
NB: selecting text in word2007 and then copy and paste it the acces2007
memofield will work just fine. So in my opinion it should also be possible
using vba.
Thanks in advance
memofield with formatted text. (bullets, fontcolor etc)
When I enter some text by hand en make text formating, I'm able to copy the
formatted text from one record to another, using a form:
The code looks like this:
iets = Form_Formulier1.textje
DoCmd.GoToRecord , , acNext
Form_Formulier1.textje = iets
The coal was to get formatted text from a word document en put it in the
memofield. I tried a real lot but cannot find anything working.
For example:
set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.Documents.Open("test.doc")
Form_Formulier1.textje = wdDoc.Paragraphs(6)
Form_Formulier1.textje = wdDoc.Range(1, 250)
This will copy the text but all format is gone
Does someone know a solution?
NB: selecting text in word2007 and then copy and paste it the acces2007
memofield will work just fine. So in my opinion it should also be possible
using vba.
Thanks in advance