如何使用宏代码批量的将docx转为doc
发布网友
发布时间:2022-04-29 05:43
我来回答
共1个回答
热心网友
时间:2022-06-20 00:01
2.将所有的docx文件复制到C:\docx
3.创建一个docx2doc的宏,输入如下代码:
Sub docx2doc()
sPath = "C:\docx\"
sFile = Dir(sPath & "*.docx")
While sFile ""
With Documents.Open(sPath & sFile)
.SaveAs2 FileName:=sPath & Replace(sFile, "docx", "doc"), FileFormat:=0