真技术之批量将doc转为docx的方法

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

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

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

4、==============================================

【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、第五步：执行后会弹出文件选择框，选择要转换的所有doc文件即可。（选择所有文件使用Ctrl或者shift选择多个文件）