谢谢蓝老师!
我改成这样处理:将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编辑过]