【Office】【VBA宏】实现多选word文件转换为docx格式

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

需求概述

---

提示：以下是本篇文章正文内容，下面案例可供参考

实现流程

1. 由于要拆分的数据量可能会比较大考虑性能问题（关闭屏幕更新提高性能）.
2. 要求选择一个文件夹作为拆分后存放文件的路径。
3. 循环遍历每个工作表进行保存。
4. 显示一个消息框来通操作已完成。

具体代码

代码如下（示例）：

Sub MultiSaveAsDocx()
    Dim fd As FileDialog
    Dim filePath As String
    Dim fileName As String
    Dim newFilePath As String
    Dim doc As Document
    Dim allFilesConverted As Boolean
    allFilesConverted = True ' 假设所有文件都能成功转换
      
    ' 创建一个文件选择对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
      
    With fd
        .Title = "请选择要转换的Word文件（可多选）"
        .Filters.Clear
        .Filters.Add "Word Files",