欢迎光临散文网 会员登陆 & 注册

WordVBA之批量将docx转doc

2022-09-27 09:55 作者:孙兴华zz  | 我要投稿

两个账号的网友留言:

其实自己用的话,没必要那么复杂,录制一下就明白了。

新建一个空白文档,点开发工具,点录制宏,然后将文档另存为成.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

更多教程:https://www.bilibili.com/read/cv10222110

WordVBA之批量将docx转doc的评论 (共 条)

分享到微博请遵守国家法律