WPS批量转换doc到docx

新建一个文档, alt+f11 打开宏
输入

// 您的原版微调 (多选文件，非递归)
function docChangedocxSelect() {
    var myDialog = Application.FileDialog(3); // msoFileDialogFilePicker=3
    myDialog.Filters.Clear();
    myDialog.Filters.Add("所有 WORD97-2003 文件", "*.doc", 1);
    myDialog.AllowMultiSelect = true;
    if (myDialog.Show() === -1) { // Show()返回-1表示确认
        for (var i = 1; i <= myDialog.SelectedItems.Count; i++) {
            var file = myDialog.SelectedItems(i);
            var newFile = file.replace(/\.doc$/i, ".docx");
            try {
                var doc = Documents.Open(file);
                doc.SaveAs(newFile, 16);
                doc.Close(false);
               // WScript.Echo("✓ " + file + " → " + newFile);
            } catch (e) {
                //WScript.Echo("✗ " + file + ": " + e.message);
            }
        }
    }
}