主题：如何用命令将一篇word文档直接存储为一个网页

小结：

2020年7月10日凌晨

这几天经过学习和测试，了解了一些WORD文档转存为网页的情况，小结如下：

1、经过蓝版指导，word文档，用命令直接转换为网页，已经能够实现；转换时，覆盖同名旧文档不提示。

2、转换成的html文档，编码为BG2312；转换成的mht单一网页文档，编码为charset=3Dus-ascii；以上两种编码，都不能直接使用；

3、BG2312编码的网页，手机浏览器打开正常显示为乱码，需要逐个手工另存为utf-8编码格式，才能用正常浏览；如果不进行转换，采用命令e.Resp…… = "gb2312" '来通知浏览器，不能解决乱码问题！这个问题，不知道是什么原因造成的，需要继续请教。

4、mht格式的单一网页文档，文档本身正常，本地浏览器可以打开。通过网站链接形式，用于测试的谷歌浏览器找不到该文档，应该是安全限制；别的浏览器没有测试。

复习巩固以下内容：

1、对于静态网页，即使你指定了绝对路径，如果网站根目录下存在同名网页，则优先显示根目录网页；

其他：

1、word转存为网页，用的是VBA命令，模拟word另存为对话框，保存的网页编码与word中的命令结果相同；

2、用Process指令，能够让写字板打开网页文件，但其verb动作，只有print、edit等三个，当前无法完成查找替换、另存为以及编码选择等一系列复杂动作，这恐怕超出了foxtable版主的职责，不好意思深问。因此，批量转换无法完成，还需要手工逐个转换编码。查找写字板的功能命令，也超出了我的能力。

Dim fl As String = "C:\JACK桥牌文库\web\word网页\" & e.Path

        If filesys.FileExists(fl)

            Dim idx As Integer = fl.LastIndexOf(".")

            Dim ext As String  = fl.SubString(idx)

            Select Case ext

                Case ".html",".htm",".mht",".jpg"

                    e.Resp ……= "gb2312"'这句命令没有起到作用，不知道什么原因。

                    e.WriteFile(fl)

            End Select

        Else

            e.WriteString("好奇怪,你访问的页面不存在!") '奇怪的是，如果目标是mht单一网页，出现了这个提示，说明浏览器找不到这个网页文件。

        End If