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

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

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

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

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

【vba代码】

Sub docx2doc()    'docx文件转doc文件

Dim myDialog As FileDialog, oFile As Variant

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

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

        .Filters.Add "所有 WORD2007 文件&#​34;, "*.docx&#​34;, 1    '增加筛选器的项目为所有WORD2007文件

        .AllowMultiSelect = True    '允许多项选择

        If .Show = -1 Then    '确定

            For Each oFile In .SelectedItems    '在所有选取项目中循环

                With Documents.Open(oFile)

                .SaveAs FileName:=Replace(oFile, "docx&#​34;, "doc&#​34;), FileFormat:=0

                .Close

                End With

            Next

        End If

End With

End Sub

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

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

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