使用vba doc转docx

 

 

创建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(需要转换文件到全路径)