WordVBA之批量将docx转doc
两个账号的网友留言:


其实自己用的话,没必要那么复杂,录制一下就明白了。
新建一个空白文档,点开发工具,点录制宏,然后将文档另存为成.doc文件,停止录制
你就可以看到代码了,红框内是另存为 SaveAs2我们详细的讲过

SaveAs2的参数在微软官网上可以找到
https://learn.microsoft.com/zh-cn/office/vba/api/Word.SaveAs2

Ps:VBA语言是微软发明的,不是我创造的,我只是学习者,根据微软提供的每一个函数,应用到我自己的需求上来。不知道就录制,总能找到答案。没必要把SaveAs2的所有参数都复制,前两个参数就够了,保存到哪里,用什么文件类型。
打开一个空白Word文档 ,在VBE编辑器中使用如下代码
第2~4行代码:Access第三季FSO对象,检查D盘孙兴华这个文件夹是否存在,如果不存在就创建。

从第5行代码:ExcelVBA笔记18.7,通过弹出的对话框选择文件

第11行,遍历你鼠标选中的文档,这些文件是可以按住Ctrl键多选的
第12行,打开文档
第13行,FSO对象提取文件名,例如,“c:\网友\张三.docx” 提取:“张三”

第14行,另存的文件名和类型
第15行,关闭打开的文档
禁止屏幕刷新的代码就自己加吧
Application.ScreenUpdating = False
Application.ScreenUpdating = True
第一句加在set对话框的前面,第二句加在end sub前面

用这个方法你们可以实现各种类型的转换,不限于Word,Excel、Access、PPT都可以转。我手上没有支持office2003或2007的电脑,你们可以自行试一下,在不安装升级补丁的情况下,这么转换是否可以打开,我不用老版本已经很多年了,从来没有测试过,高版本改个后缀名都能打开,主要是看低版本是否兼容。有问题随时留言。
ExcelVBA及WordVBA篇:https://www.bilibili.com/video/BV1rt4y1a72y
Access篇+AccessVBA篇:https://www.bilibili.com/video/BV1tf4y117Sh