女朋友最近有个doc文档需要批量转为docx的需求（wps默认生成doc文件，对方必须要docx文档），查了百度，如果是建立bat ren *.doc *.docx批处理文件将扩展名修改，并没有实质修改，docx实际上是压缩文件，通过wps另存为这种手工方法转换效率太慢，经多方研究找到了一个很不错的方法工具/原料more电脑一台WPS或者office软件方法/步骤1/6分步阅读

第一步：打开一个空白word，按住ALT+F11，弹出VB编程界面即宏。（wps和office打开宏的方法自行百度）

2/6

第二步：在左边空白处右击,依次选择：插入—模块

3/6

第三步：在如图所示空白区插入vba代码

4/6

==============================================

【vba代码】Sub docx2doc() docx文件转doc文件

Dim myDialog As FileDialog, oFile As Variant

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear 清除所有文件筛选器中的项目

.Filters.Add 所有 WORD2007 文件, *.docx, 1 增加筛选器的项目为所有WORD2007文件

.AllowMultiSelect = True 允许多项选择

If .Show = -1 Then 确定

For Each oFile In .SelectedItems 在所有选取项目中循环 With Documents.Open(oFile)

.SaveAs FileName:=Replace(oFile, docx, doc), FileFormat:=0 .Close

End With

Next

End If

End With

End Sub========================================

5/6

第四步：选择工具栏中： 运行-运行子过程/用户窗体

6/6

第五步：执行后会弹出文件选择框，选择要转换的所有doc文件即可。（选择所有文件使用Ctrl或者shift选择多个文件）

注意事项

WPS需要安装插架启用vba宏功能