批量转换文件夹下wps和doc文件为docx文件--经验百科

docx格式文件有很多优势，例如比doc文件所占用空间更小，docx格式的文件本质上是一个XML文件，因此可以将多个docx文件改成压缩文件，然后一键导出所有文件中的图片等等，所以将wps格式或者doc格式转换成docx格式非常有必要。这是一个宏，可以将某文件夹下所有wps格式或者doc格式转换成docx格式，便于后期进一步处理。

工具/原料

Microsoft Office2007或更高版本

方法/步骤

启动word2007或更高版本（我以word2016版为例），然后点击“开发工具"，再点击“宏安全性”。
在弹出的对话框内选择“启用所有宏”，再点击“确定”关闭对话框。必须启用宏，不然无法使用本方法进行批量转换
点击“开发工具”下的“Visual Basic“打开宏编辑窗口。
'将下面内容复制粘贴到打开的对话框中

Sub doc2docx()
'将 .doc 或者 .wps 文件转换为 .docx 文件
sSourcePath = InputBox("请输入doc文件夹路径", , "d:\11") & "\"
sEveryFile = Dir(sSourcePath & "*.???")
js = 0
sc = InputBox("是否删除原文件?", , "是")
Do While sEveryFile <> ""
If (Right(sEveryFile, 3) = "doc" Or Right(sEveryFile, 3) = "wps") Then
Documents.Open FileName:=sSourcePath & sEveryFile, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
newfilsname = sSourcePath & sEveryFile
newfilsname = Left(newfilsname, Len(newfilsname) - 4) & ".docx"
ActiveDocument.SaveAs2 FileName:=newfilsname, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15
ActiveDocument.Close
delfilsname = sSourcePath & sEveryFile
If sc = "是" Then Kill delfilsname
js = js + 1
End If
sEveryFile = Dir
Loop
MsgBox "成功转换了 " & js & " 个（.doc/.wps）文件。"
End Sub
Sub 宏1()
点击右上角关闭按钮关闭“Visual Basic“宏编辑窗口，回到正常页面。点击”开发工具“下的”宏“按钮打开宏运行对话框，点击中部宏名，再点击右侧“运行”按钮
这时已经开始运行批量转换程序了，在弹出的对话框中输入你要转换的文档所在的目录后，点击“确定”按钮
根据自己意愿选择是否要删除源文件
喝口茶稍等，根据要转换的文件数量不同，所需时间略有不同，一般都很快的。转换完成后会弹出对话框说明成功转换了多少个文档。点击“确定”后就可以在原来的文件夹里得到所有转换好的文件了。
END