如何利用office将文档转存到桌面（office内置模块将doc批量转成docx）
如何利用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目录即可。
最终效果:
