使用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的主要内容,如果未能解决你的问题,请参考以下文章

docx文件转word文档

Word 2007 转 Word2003格式 docx2doc

用Java可以把pdf转doc吗?

docx转doc时,防止公式被转成图片的解决办法

怎么把doc文件转换成docx

python docx文档转html页面