vba实现doc文件批量转docx文件

vba批量转换doc为docx说明

1. 随便找一个word文件打开，同时按住Alt+F11,会出现如图所示界面：

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

3. 在如图所示空白区插入vba代码

 

Vba代码如下所示：

Sub doc2docx()  'doc文件转docx文件 Dim myDialog As FileDialog, oFile As Variant Set myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog         .Filters.Clear    '清除所有文件筛选器中的项目         .Filters.Add "所有 WORD97-2003 文件", "*.doc", 1    '增加筛选器的项目为所有WORD97-2003文件         .AllowMultiSelect = True    '允许多项选择         If .Show = -1 Then    '确定             For Each oFile In .SelectedItems    '在所有选取项目中循环                 With Documents.Open(oFile) .ComputeStatistics (wdStatisticPages)                 .SaveAs FileName:=oFile + "x", FileFormat:=wdFormatXMLDocument                 .Close                 End With             Next         End If End With End Sub

效果如图所示：

 

4，执行代码：

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

如图所示：

执行后会弹出文件选择框，选择要转换的doc文件即可。

 

注：建议每次只转50份，分文件夹进行整理。

这样做的优势:

可以很明确文件转换成功与否，分批转可以很容易定位到未转换成功文件，便于检查，提高成功率。