新建一个文档, alt+f11 打开宏
输入
// 您的原版微调 (多选文件，非递归)
function docChangedocxSelect() {var myDialog = Application.FileDialog(3); // msoFileDialogFilePicker=3myDialog.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);}}}
}