OFFICE文档转换到HTML和PDF格式工具

代码中只有HTML和PDF（PDF格式需要OFFICE2007或以上版本支持）格式

更多格式请自行修改代码（格式常量请参考MSDN）

' 实质上都是调用office程序本身的【另存为】。因此，能导出的格式取决于office程序所支持的范围。更多的格式常量值请参考MSDN。
' 下面的PPT导出HTML在我的OFFICE2013上不可用（POWERPOINT本身的另存为命令就没有HTML格式的支持）
' 流程：创建程序对象，然后得到相应的文档集对象（这一步三个程序参数不一样，详见下面），再调用文档集对象的Open方法得到文档对象，最后就是调用文档对象的SaveAs方法了。S
.判断开始 (局_文档类型 ＝ 1)
对象_程序.创建 (“Excel.Application”, )
对象_文档集 ＝ 对象_程序.读对象型属性 (“Workbooks”, )
对象_文档 ＝ 对象_文档集.对象型方法 (“Open”, 参_文档路径)
.如果 (到数值 (对象_程序.读文本属性 (“Version”, )) ≥ 12 且 选择框1.选中)
对象_文档.逻辑方法 (“SaveAs”, 转换到HTML路径 (参_文档路径), #xlFormatPDF)
.否则
对象_文档.逻辑方法 (“SaveAs”, 转换到HTML路径 (参_文档路径), #xlFormatHTML)