Copy RTF text from Access to word table using VBA -


is there way copy rtf text memo field in access database word document using vba. have code @ moment produces html text (the text includes tags , not formatted).

' query database , sales specified customer set rs = currentdb.openrecordset("select * sales sales.[id] ='" & forms![customers]![id] & "'")  'check see if recordset contains rows     if not (rs.eof , rs.bof)     rs.movefirst     until rs.eof = true      ' create file , add rtf text     set ts = fso.createtextfile("c:\temp\temp.rtf", true)     ts.write rs(3)     ts.close      ' add row     doc.tables(1).rows.add      ' number of added row add data      = doc.tables(1).rows.last.index      ' add sale word table     doc.tables(1).cell(i, 2).range.insertfile "c:\temp\temp.rtf", , false       'move next record. don't ever forget this.     rs.movenext    loop else     msgbox "there not records in recordset." end if  msgbox "finished." &  rs.close set rs = nothing

is there other way this?

note "rich text" option memo fields not store formatted text rtf. formatted text stored html, why seeing html tags in text.

the following access vba code creates word document contains formatted text , saved .rtf. if you're not committed using rtf code modified save document .doc or .docx.

sub formattedtexttoword()     dim objword object  ' word.application     dim fso object  ' filesystemobject     dim f object  ' textstream     dim myhtml string, tempfilespec string      ' grab formatted text memo field     myhtml = dlookup("comments", "mytable", "id=101")      set fso = createobject("scripting.filesystemobject")  ' new filesystemobject     tempfilespec = fso.getspecialfolder(2) & "\" & fso.gettempname & ".htm"      ' write temporary .htm file     set f = fso.createtextfile(tempfilespec, true)     f.write "<html>" & myhtml & "</html>"     f.close     set f = nothing      set objword = createobject("word.application")  ' new word.application     objword.documents.add     objword.selection.insertfile tempfilespec     fso.deletefile tempfilespec     ' word document contains formatted text      objword.activedocument.saveas2 "c:\users\public\zzztest.rtf", 6  ' 6 = wdformatrtf     objword.quit     set objword = nothing     set fso = nothing end sub

Comments

Post a Comment

Popular posts from this blog

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

javascript - Clean way to programmatically use CSS transitions from JS? -

as title implies, there proper way set initial css properties (or class) , tell browser transition these value? for example ( fiddle ): var el = document.queryselector('div'), st = el.style; st.opacity = 0; st.transition = 'opacity 2s'; st.opacity = 1; this not animate opacity of element in chrome 29/firefox 23. because ( source ): [...] you’ll find if apply both sets of properties, 1 after other, browser tries optimize property changes, ignoring initial properties , preventing transition. behind scenes, browsers batch property changes before painting which, while speeding rendering, can have adverse affects. the solution force redraw between applying 2 sets of properties. simple method of doing accessing dom element’s offsetheight property [...] in fact, hack work in current chrome/firefox versions. updated code ( fiddle - click run after opening fiddle run animation again): var el = document.queryselector('div'...
Read more

android - send complex objects as post php java -

is possible send contact numbers via post php class inside eclipse ? or post limited primitive types , have find work arounds send them string ? i propose: send them json in post request, befor start, have @ gson project , keep in mind set content application -> json. luck
Read more