直接将此函数代码粘贴即可使用
function docChangedocx()
{
var myDialog = Application.FileDialog(msoFileDialogFilePicker)
myDialog .Filters.Clear()
myDialog.Filters.Add("所有 WORD97-2003 文件", "*.doc", 1 )
myDialog.AllowMultiSelect=true
myDialog.Show()
for(var i=1;i<=myDialog.SelectedItems.Count;i++){
var file= myDialog.SelectedItems(i)
var newFile=file.replace("doc","docx");
Documents.Open(file).SaveAs(newFile,12)
Documents.Close()
}
}