老师好!请教如何把HTML编辑器里的图文内容按照原格式,单个或批量预览、打印。
我按照老师以前在论坛里的提示,先做了一个 “原始模板.html” 文件;然后点击窗口按钮,用编辑器的图文代码替换 “原始模板.html”中的特定字符,并另存为“新模板.doc”。
但是,替换后是乱码,指定编码后也没有起作用;另外,编辑器中的图片路径是不是也要改一下?
谢谢!
此主题相关图片如下:截屏图片.jpg
此主题相关图片如下:截屏图片2.jpg
按钮代码:
Dim s As String = FileSys.ReadAllText(ProjectPath & "初始模板.html")
Dim r As Row = Tables("通知单").Current
FileSys.WriteAllText(ProjectPath & "新模板.doc",s.Replace("(绑定编号)",r("编号") ).Replace("(绑定html_内容)",r("html_内容")), False)
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "新模板.doc" '指定要打开的文件
Proc.Start()