Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]html编辑器图文打印


  共有4440人关注过本帖树形打印复制链接

主题：[求助]html编辑器图文打印
帅哥哟，离线，有人找我吗？
天一生水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		[求助]html编辑器图文打印  发帖心情 Post By：2019/2/16 21:27:00 [显示全部帖子]

老师好！
请教如何把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()

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试html图文打印.rar
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/2/18 11:59:00 [显示全部帖子]

谢谢蓝老师！

我试了一下，Word打开后还是乱码。

按说替换的是单元格中的HTML代码，为什么Word中只替换了很少的字符，而且还是乱码。(指定“utf-8“或“gb2312”编码都不行)

另外，HTML中的图片怎样粘贴到Word文件中？

下图中：

 红框1：是替换到Word中的html代码；

 红框2：html编辑器的内容显示效果；

 红框3：Word的显示效果。

 


图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/2/18 12:40:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/2/18 14:26:00 [显示全部帖子]

老师请看实例：

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试html图文打印.zip
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/2/19 11:41:00 [显示全部帖子]

蓝老师好！

按照老师的指点，下载了Notepad++，重新生成了html文件。

同时在替换时更改了图片的路径（把“../”改为“./”），这样，就能把HTML中的图片在Word中显示了。

现在遇到2个问题：

1、如果选中多条记录，怎样显示在一个Word文件中？

2、文本中有多个空行，我添加了清除空段落的代码，为什么没起作用？

代码如下：

 

 

'''
Dim s As String = FileSys.ReadAllText(ProjectPath & "初始模板.html")
'Dim r As Row = Tables("通知单").Current     '当前行
Dim tbl As Table = Tables("通知单")          '选中的多行
For i As Integer = tbl.TopRow To tbl.BottomRow
    Dim r As Row = tbl.Rows(i)
    FileSys.WriteAllText(ProjectPath & "新模板.doc",s.Replace("（绑定编号）",r("编号")).Replace("（绑定html_内容）",r("html_内容")).Replace("../","./"), False)  '另存为word格式文件
   
Next

'清除Word空行
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(ProjectPath & "新模板.doc")
    For Each k As object In doc.Paragraphs
        k.Range.Select
        If Len(k.Range.text) = 1 Then k.Range.Delete
        Do
            If app.Selection.Characters(1).Text = Chr(10) Then app.Selection.Characters(1).Delete
        Loop Until app.Selection.Characters(1).Text <> Chr(10)
    Next
    doc.save
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "新模板.doc"   '指定要打开的文件
Proc.Start()


图片点击可在新窗口打开查看此主题相关图片如下：111.jpg
图片点击可在新窗口打开查看 


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:2019-2-18测试html图文打印.rar
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/2/24 21:10:00 [显示全部帖子]

甜老师好！
我七楼的实例，可以把单行的图文数据生成到word文件中，多行的图文数据怎样在一个word文档中合并实现！
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/3 17:02:00 [显示全部帖子]

老师好！
我想以“页面视图“的模式打开word，应该怎样设置？
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "新模板.doc"   '指定要打开的文件
Proc.Start()

这是VBA代码，怎样用？
ActiveWindow.ActivePane.View.Type = wdPrintView ’页面视图

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/6 22:10:00 [显示全部帖子]

甜老师好！
10楼的代码，在项目所在的目录下生成word文件时，word中的图片显示没有问题。
但是如果把生成的word更换路径，word文件中的图片就显示不出来了。
能不能在生成word文件时，把图片直接粘贴进word中，而不是仅仅是图片的链接。

1、代码

 

Dim mb As String = FileSys.ReadAllText(ProjectPath & "初始模板.html")
Dim tbl As Table = Tables("通知单")          '选中的多行
Dim str As String = ""
For i As Integer = tbl.TopRow To tbl.BottomRow
    Dim s = mb
    Dim r As Row = tbl.Rows(i)
    str &= s.Replace("（绑定编号）",r("编号")).Replace("（绑定html_内容）",r("html_内容")).Replace("../","./")
Next
str = "<body><html>" & str & "</body></html>"
FileSys.WriteAllText(ProjectPath & "新模板.doc", str, False)
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "新模板.doc"   '指定要打开的文件
Proc.Start()


2、模板


<p align="left" style="text-indent:0em;">
 <strong>【编号信息】</strong>
</p>
<p align="left" style="text-indent:0em;">
 （绑定编号）
</p>
<p align="left" style="text-indent:0em;">
 <strong>【题目内容】</strong>
</p>
<p align="left" style="text-indent:0em;">
 （绑定html_内容）
</p>
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/7 16:48:00 [显示全部帖子]

谢谢甜老师！

但是嵌入图片后，写入html文件可以显示图片，写入Word文件不能显示图片。

将这样生成的html文件用Word方式打开，也不能显示图片，但用浏览器直接打开却可以。

是什么原因？

 

Dim mb As String = FileSys.ReadAllText(ProjectPath & "初始模板.html")
Dim tbl As Table = Tables("通知单")          '选中的多行
Dim str As String = ""
For i As Integer = tbl.TopRow To tbl.BottomRow
    Dim s = mb
    Dim r As Row = tbl.Rows(i)
    str &= s.Replace("（绑定编号）",r("编号")).Replace("（绑定html_内容）",r("html_内容"))
Next
str = "<body><html>" & str & "</body></html>"
FileSys.WriteAllText(ProjectPath & "新模板.doc", str, False)      '这个不显示图片

FileSys.WriteAllText(ProjectPath & "新模板.html", str, False)    '这个显示图片正常
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "新模板.doc"   '指定要打开的文件
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/20 8:22:00 [显示全部帖子]

甜老师好！

遇到一个新问题，我将截图插入html编辑器中的图片拖拽至合适尺寸后，通过替换html模板的方法生成Word文件，图片在Word中又恢复成原始尺寸，怎样处理？

谢谢！

 


图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/20 11:44:00 [显示全部帖子]

请老师看实例：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试html图文word.rar
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 9 次数据查询