标签：desktop ntp users nts doc obj als strrev 转换
创建vbs文件,doctodocx.vbs
内容如下:
‘创建一个word对象 set wApp=CreateObject("word.Application") ‘获取文件传递到参数 strDocName = WScript.Arguments(0) ‘一下三段代码主要是把文件名由doc转成docx intPos = InStrRev(strDocName, ".") strDocName = Left(strDocName, intPos - 1) strDocName = strDocName & ".docx" ‘打开文件,第一个参数,传递源文件路路径,第二个参数是否打开对话框,第三个参数是否只读 set wordapp=wApp.Documents.open(WScript.Arguments(0),False,True) ‘12 是文件类型,具体可以参考微软官网 wordapp.SaveAs strDocName,12 ‘关闭操作 wordapp.Close wApp.Quit
使用方法 命令行输入 doctodocx.vbs C:\Users\owen\Desktop\vba\11.doc(需要转换文件到全路径)
标签：desktop ntp users nts doc obj als strrev 转换
原文地址：https://www.cnblogs.com/owenzhou/p/10795209.html
