蓝老师好！
按照老师的指点，下载了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
加好友 
发短信
Post By：2019/2/16 21:27:00 [只看该作者]
此主题相关图片如下：1.png