Use InsertFile
Set objdoc = objInsp.WordEditor Set objword = objdoc.Application Set objsel = objword.Selection objsel.WholeStory vs_html = "<html><body>" + vs_body + "</body></html>" vs_file = "C:\temp\1.html" Call DumptoFile(vs_file, "", vs_html, False) RetVal = objsel.InsertFile(vs_file, , , False, False)
Adam law
source share