批量将文件夹内的文件格式修改为.docx。

食昆食屯

我的需求：将一个文件内所有的.doc文件，都变成.docx（不用判断，文件夹里的文件都是.doc格式，就是数量比较多1000+）
限制：不能用vba（电脑里没有office），不能用其他专业编程语言如Python，电脑不能联网，现在电脑里就要一个2022版的wps，所有文件编辑都是用wps，环境特殊请见谅。
我的水平JS宏是一点会不，vba可以看懂ai的代码，可以改。
我用 AI生成的了好几版，也用了好几种AI（KIMI、讯飞星火、豆包、通义千问）修正几次后都差不多了，最后的版本如下：

1. function ConvertFilesToDocx() {
   
2.     var folderPath = "C:\\Users\\suihe\\Desktop\\转存测试"; // 指定文件夹路径
   
3. 
   
4.     // 使用WPS Office的内置方法获取文件列表
   
5.     var files = getFilesInFolder(folderPath);
   
6. 
   
7.     for (var i = 0; i < files.length; i++) {
   
8.         var filePath = files[i];
   
9.         var ext = getFileExtension(filePath).toLowerCase();
   
10. 
    
11.         if (ext == "doc" || ext == "rtf" || ext == "txt") { // 可以根据需要添加更多文件类型
    
12.             try {
    
13.                 var doc = Application.Documents.Open(filePath);
    
14.                 var newFilePath = getNewFilePath(filePath, ".docx");
    
15.                 doc.SaveAs(newFilePath, 12); // 12 表示 .docx 格式
    
16.                 doc.Close(false);
    
17.                 WScript.Echo("已成功转换文件: " + filePath);
    
18.             } catch (e) {
    
19.                 WScript.Echo("转换文件失败: " + filePath + ", 错误信息: " + e.message);
    
20.             }
    
21.         }
    
22.     }
    
23. }
    
24. 
    
25. // 辅助函数：获取文件夹中的所有文件
    
26. function getFilesInFolder(folderPath) {
    
27.     var files = [];
    
28.     var shell = Application.CreateObject("Shell.Application");//这里总是错误！！！！！
    
29.     var folder = shell.NameSpace(folderPath);
    
30.     var items = folder.Items();
    
31. 
    
32.     for (var i = 0; i < items.Count; i++) {
    
33.         var item = items.Item(i);
    
34.         var filePath = folderPath + "\" + item.Name;
    
35.         files.push(filePath);
    
36.     }
    
37. 
    
38.     return files;
    
39. }
    
40. 
    
41. // 辅助函数：获取文件扩展名
    
42. function getFileExtension(filePath) {
    
43.     var lastDotIndex = filePath.lastIndexOf(".");
    
44.     if (lastDotIndex === -1) return "";
    
45.     return filePath.substring(lastDotIndex + 1);
    
46. }
    
47. 
    
48. // 辅助函数：生成新的文件路径
    
49. function getNewFilePath(oldFilePath, newExt) {
    
50.     var lastDotIndex = oldFilePath.lastIndexOf(".");
    
51.     if (lastDotIndex === -1) return oldFilePath + newExt;
    
52.     return oldFilePath.substring(0, lastDotIndex) + newExt;
    
53. }

复制代码

主要卡主的位置已经标记，让ai修正就是CreateObject、ActiveXObject、FSObject三个反复变动，但是代码就是过不去，显示错误如下：

求大神指导，代码到底要怎么写，如果有其他解决方案批量修改文件格式也行，求大神指导！

spaghetti8

JSA用2行代码批量更改文件后缀名
https://club.excelhome.net/thread-1705404-1-1.html

lizhipei78

就这点需求，就不能用软件吗？针对这个问题，网上有不少的软件，搜索一下就有了，或者装一个Excel插件，如方方格子、Excel必备工具箱等

lizhipei78

你的版本是2022年的，好多语法不支持，不如下载一个VBA宏，用VBA来解决更合适你的WPS版本

食昆食屯

lizhipei78 发表于 2024-11-6 21:05
就这点需求，就不能用软件吗？针对这个问题，网上有不少的软件，搜索一下就有了，或者装一个Excel插件，如 ...

客户电脑 不允许联网、不循序插U盘，更不允许导入插件或者第三方软件，电脑里现在就1个2022版本的wps，没有VB库，写不了vba代码

食昆食屯

lizhipei78 发表于 2024-11-6 21:06
你的版本是2022年的，好多语法不支持，不如下载一个VBA宏，用VBA来解决更合适你的WPS版本

客户电脑 不允许联网、不允许插U盘、不允许导入插件或第三方软件，就一个只有能用JS宏的2022版wps

食昆食屯

spaghetti8 发表于 2024-11-6 19:48
JSA用2行代码批量更改文件后缀名
https://club.excelhome.net/thread-1705404-1-1.html

在客户电脑测试了，代码运行后无反应，未成功。

食昆食屯

问题已经解决，再此说明一下。
阶段一，获取vba，与客户沟通按照了office 2007，这是客户能按的最高版本，然后我编写vba宏转存，但失败了。失败的原因是，文件有保护密码，防止编辑，使用office 2007 因为兼容问题，文件打不开，运行宏的效果就是不报错，一直显示在运行，但没有任何效果，后来就未响应了。
实际测试下，源文件是由软件生产的带保护的DOC格式，如果没有保护，文件用office2007能打开，如果格式是DOCX，即使有保护office2007也能打开。结论：想用office 2007的vba操作文件，要么这个文件没保护，要么这个文件是DOCX格式，可我就是要转换为docx格式

阶段二，解密后再转存，我先用的vba编写文档批量解密代码，但是不好用，因为office运行代码，第一步是打开文件，但文件打不开，宏就是卡主未响应，然后试着用wps JS宏批量解密，失败了，怎么改宏就是没法运行。

阶段三，曲线救国，最后是用excel 获取了文件的地址，然后用excel vba 编写宏 按单元格中地址 用wps打开文件，执行wps中一段JS宏，实现了批量文件转存。
所以需要写三段宏，
1、在excel中获取文件地址的宏
2、在wps 中 用JS宏 写一个另存为docx的宏
3、在excel中写一个 按获取地址打开文件，并调用打开文件中宏的宏。

一步一坎