主题：网页代码保留格式保存为word，pdf都可以

用word打开html，然后另存为word，如

Dim app As new msword.application
Dim Doc = app.Documents.open("d:\test.htm")
Doc.saveas(FileName:="d:\test123.doc", FileFormat:=0)
app.visible = True