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

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

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub12345678910111213141516171819202122

 

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

最终效果:

 

本文链接：https://www.lezhuanwang.net/kepu/76868.html『转载请注明出处』