【求助】docx另存为html

jimingzhe

求助各位大神给写个代码吧，想把word文件docx格式转换为htm或者html，不是单单的更改后缀名啊！
因为文件很多，用WPS打开然后另存为htm太慢了

原文件：
"D:\第1教室.docx"
转换后得到2个文件：
第一个html文件"
D:\第1教室.html"
第二个图片文件夹
"D:\第1教室.files"

梦寻简单

1.txt (1.41 KB, 下载次数: 10)

2024-4-29 19:29 上传

点击文件名下载附件

赤璃琴殇

师傅能教你的就这么多了  如果实在搞不定  请找定制

jimingzhe

赤璃琴殇 发表于 2024-4-29 19:10
师傅能教你的就这么多了  如果实在搞不定  请找定制

我明白你的意思是用VBA里提供的方法来转成HTML格式，可是我太菜还不会调用这个方法，不会写

赤璃琴殇

jimingzhe 发表于 2024-4-29 19:25
我明白你的意思是用VBA里提供的方法来转成HTML格式，可是我太菜还不会调用这个方法，不会写 ...

那定制吧  5精币真的换不来写好的代码  只能给你解决方案  哈哈哈

梦寻简单

  

子程序名	返回值类型	公开	备 注
Word转Html_批量
参数名	类 型	参考	可空	数组	备 注
文件夹路径	文本型
输出文件夹路径	文本型				如果这个为空，则以当前目录作为输出的目录

变量名	类 型	静态	数组	备 注
文件列表	文本型		0
i	整数型

文件_枚举 (文件夹路径, “*.docx|*.doc”, 文件列表, 真, 真, 真)
计次循环首 (取数组成员数 (文件列表), i)
Word转Html_单个 (文件列表 [i], 输出文件夹路径)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
Word转Html_单个
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
输出文件夹路径	文本型

变量名	类 型	静态	数组	备 注
WordApp	对象
WordDocuments	对象
WordFile	对象
Html文件路径	文本型

如果真 (取反 (文件_是否存在 (文件路径)))
输出调试文本 (格式化文本 (“文件%s不存在”, 文件路径))
返回 ()
如果真 (取反 (目录_是否存在 (输出文件夹路径)))
输出调试文本 (格式化文本 (“文件夹%s不存在”, 输出文件夹路径))
返回 ()
WordApp.创建 (“Word.Application”, )
如果真 (WordApp.是否为空 ())
输出调试文本 (“Word/Wps应用打开失败,请检查Word/Wps是否安装”)
返回 ()
如果真 (取文本右边 (输出文件夹路径, 1) ≠ “\”)
输出文件夹路径 ＝ 输出文件夹路径 ＋ “\”
Html文件路径 ＝ 输出文件夹路径 ＋ 文件_取文件名 (文件路径, 假) ＋ “.html”
WordDocuments ＝ WordApp.读对象型属性 (“Documents”, )
WordFile ＝ WordDocuments.对象型方法 (“Open”, 文件路径)
WordFile.通用方法 (“SaveAs2”, Html文件路径, 8)
WordFile.通用方法 (“Close”, )
WordApp.对象型方法 (“Quit”, )

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 Word转Html_批量<br /> .参数 文件夹路径, 文本型<br /> .参数 输出文件夹路径, 文本型, 可空, 如果这个为空，则以当前目录作为输出的目录<br /> .局部变量 文件列表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文件_枚举 (文件夹路径, “*.docx|*.doc”, 文件列表, 真, 真, 真)<br /> .计次循环首 (取数组成员数 (文件列表), i)<br />     Word转Html_单个 (文件列表 <i>, 输出文件夹路径)<br /> .计次循环尾 ()<br /> <br /> .子程序 Word转Html_单个<br /> .参数 文件路径, 文本型<br /> .参数 输出文件夹路径, 文本型<br /> .局部变量 WordApp, 对象<br /> .局部变量 WordDocuments, 对象<br /> .局部变量 WordFile, 对象<br /> .局部变量 Html文件路径, 文本型<br /> <br /> .如果真 (取反 (文件_是否存在 (文件路径)))<br />     输出调试文本 (格式化文本 (“文件%s不存在”, 文件路径))<br />     返回 ()<br /> .如果真结束<br /> .如果真 (取反 (目录_是否存在 (输出文件夹路径)))<br />     输出调试文本 (格式化文本 (“文件夹%s不存在”, 输出文件夹路径))<br />     返回 ()<br /> .如果真结束<br /> WordApp.创建 (“Word.Application”, )<br /> .如果真 (WordApp.是否为空 ())<br />     输出调试文本 (“Word/Wps应用打开失败,请检查Word/Wps是否安装”)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (取文本右边 (输出文件夹路径, 1) ≠ “\”)<br />     输出文件夹路径 ＝ 输出文件夹路径 ＋ “\”<br /> .如果真结束<br /> Html文件路径 ＝ 输出文件夹路径 ＋ 文件_取文件名 (文件路径, 假) ＋ “.html”<br /> WordDocuments ＝ WordApp.读对象型属性 (“Documents”, )<br /> WordFile ＝ WordDocuments.对象型方法 (“Open”, 文件路径)<br /> WordFile.通用方法 (“SaveAs2”, Html文件路径, 8)<br /> WordFile.通用方法 (“Close”, )<br /> WordApp.对象型方法 (“Quit”, )