谢谢蓝老师！
我改成这样处理：将Word文档转换为.mhtml文件；替换网页文件中的关键字的样式；在web浏览器打开替换过的文件。
但是会出现几种问题：
1、Word如果是.docx型，app.Documents.Open就打不开；
2、有时候web浏览器加载的mhtml文件是乱码、有时候是空白；
请老师指教下面的代码需要怎样修改？
谢谢！
***生成HTML文件就可以了（解决）
代码如下：
'''
Dim tmp1 As String = "D:\test.doc"
Dim tmp2 As String = "D:\test.html"
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(tmp1)
doc.SaveAs(Filename:=tmp2, FileFormat:=MSWord.WdSaveFormat.wdFormatFilteredHTML)
'doc.SaveAs(Filename:=tmp2 , FileFormat:=MSWord.WdSaveFormat.wdFormatWebArchive) '生成mhtml单文件
app.quit
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
Dim str As String = FileSys.ReadAllText(tmp2,Encoding.Default) '读取htm文件内容
'遍历替换的内容，替换网页文件
Dim bjs As List(Of String) = DataTables("替换表").GetValues("原始数据")
For Each bj As String In bjs
str =str.replace(bj ,"<span style='background:yellow'>" & bj & "</span>")
Next
FileSys.WriteAllText(tmp2, str, False) '重新覆盖写入网页文件
e.Form.Controls("WebBrowser1").Address = tmp2 '加载文件
[此贴子已经被作者于2020/9/28 20:26:26编辑过]
加好友 
发短信
Post By：2020/9/26 19:36:00 [只看该作者]
