【WORD】批量将doc转为docx

具体步骤进行:

  1. 打开Word文档,按下Alt+F11快捷键,打开VBA编辑器。
  2. 在VBA编辑器中,左侧的"项目资源管理器"窗口会显示当前打开的Word文档相关项目。找到您要添加代码的文档项目(通常以文档名称命名),右键单击该项目。
  3. 在弹出的菜单中,选择"插入",然后在子菜单中点击"模块"。此时会创建一个新的模块,并打开它的代码编辑窗口。
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
  1. 将之前编写好的转换代码复制并粘贴到新模块的代码编辑窗口中。
  2. 检查代码是否有语法错误等问题,确保代码准确无误。

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

相关推荐
沐知全栈开发12 分钟前
Python3 集合
开发语言
Jonathan Star37 分钟前
用Python轻松提取视频音频并去除静音片段
开发语言·python·音视频
Evand J1 小时前
【自适应粒子滤波MATLAB例程】Sage Husa自适应粒子滤波,用于克服初始Q和R不准确的问题,一维非线性滤波。附下载链接
开发语言·matlab·卡尔曼滤波·自适应滤波·非线性
hd51cc1 小时前
C++ 类的学习(四) 继承
开发语言·c++·学习
编码追梦人2 小时前
深耕 Rust:核心技术解析、生态实践与高性能开发指南
开发语言·后端·rust
2301_772093562 小时前
KVSTORE_Pain point_tuchuang_ROS2
java·开发语言·1024程序员节
刘火锅2 小时前
Java 17 环境下 EasyPoi 反射访问异常分析与解决方案(ExcelImportUtil.importExcelMore)
java·开发语言·python
西部风情2 小时前
聊聊连续、递增
java·开发语言
蒙娜丽宁2 小时前
Rust 并发编程进阶:线程模型、通道通信与异步任务对比分析
开发语言·网络·rust
又是忙碌的一天3 小时前
java字符串
java·开发语言