使用vba doc转docx
Posted owenzhou
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了使用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(需要转换文件到全路径)
以上是关于使用vba doc转docx的主要内容,如果未能解决你的问题,请参考以下文章