在我们日常办公中常常需要将DOC文档转换成为docx格式，今天小编整理一个重磅干货方便大家使用。以后再也不用网上到处找转换工具啦，一键转换，解放大脑。

  1. 随便新建个word打开.
  2. 使用Alt F11打开内置vba
  3. 点击上方插入—> 模块
  4. 在新窗口中复制粘贴如下代码

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

doc文件怎么转换成office（office内置模块将doc批量转成docx）(1)

  1. 按F5运行。 它会弹一个窗口, 然后手动选择要转换的doc目录即可。

最终效果:

doc文件怎么转换成office（office内置模块将doc批量转成docx）(2)

,