doc文件怎么转换成office（office内置模块将doc批量转成docx）
在我们日常办公中常常需要将DOC文档转换成为docx格式，今天小编整理一个重磅干货方便大家使用。以后再也不用网上到处找转换工具啦，一键转换，解放大脑。
- 随便新建个word打开.
- 使用Alt F11打开内置vba
- 点击上方插入—> 模块
- 在新窗口中复制粘贴如下代码
SubConvertDocToDocx()
'UpdatedbyExtendOffice20181128
DimxDlgAsFileDialog
DimxFolderAsVariant
DimxFileNameAsString
Application.ScreenUpdating=False
SetxDlg=Application.FileDialog(msoFileDialogFolderPicker)
IfxDlg.Show<>-1ThenExitSub
xFolder=xDlg.SelectedItems(1) "\"
xFileName=Dir(xFolder&"*.doc",vbNormal)
WhilexFileName<>""
Documents.OpenFileName:=xFolder&xFileName,_
ConfirmConversions:=False,ReadOnly:=False,AddToRecentFiles:=False,_
PasswordDocument:="",PasswordTemplate:="",Revert:=False,_
WritePasswordDocument:="",WritePasswordTemplate:="",Format:=_
wdOpenFormatAuto,XMLTransform:=""
ActiveDocument.SaveAsxFolder&Replace(xFileName,"doc","docx"),wdFormatDocumentDefault
ActiveDocument.Close
xFileName=Dir()
Wend
Application.ScreenUpdating=True
EndSub12345678910111213141516171819202122
- 按F5运行。 它会弹一个窗口, 然后手动选择要转换的doc目录即可。
最终效果:
免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
