【WORD】批量将doc转为docx

liwulin05062025-04-15 13:08

具体步骤进行：

打开Word文档，按下Alt+F11快捷键，打开VBA编辑器。
在VBA编辑器中，左侧的"项目资源管理器"窗口会显示当前打开的Word文档相关项目。找到您要添加代码的文档项目（通常以文档名称命名），右键单击该项目。
在弹出的菜单中，选择"插入"，然后在子菜单中点击"模块"。此时会创建一个新的模块，并打开它的代码编辑窗口。

vbnet 复制代码

Sub ConvertDocToDocx()
    Dim myDialog As FileDialog
    Dim 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)
                .SaveAs FileName:=Replace(oFile, "doc", "docx"), FileFormat:=12
                .Close
             End With
          Next
       End If
    End With
End Sub

将之前编写好的转换代码复制并粘贴到新模块的代码编辑窗口中。
检查代码是否有语法错误等问题，确保代码准确无误。

完成以上步骤，代码就添加到VBA编译环境中了。您可以在VBA编辑器中对代码进行调试、运行等操作。若要运行代码，可点击VBA编辑器中的运行按钮（绿色三角形图标），或按下F5键。