如何在Word中将.Doc格式文件批量转换为.Docx？

Sub ConvertDocToDocx()

    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 Sub