批量Doc轉docx

打開Word，Alt+F11，插入\模組，貼上以下內容，然後運行

Sub doc2docx()  ‘doc文件轉docx文件

Dim myDialog As FileDialog, oFile As Variant

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

        .Filters.Clear    ‘清除所有檔篩選器中的專案

        .Filters.Add “所有 WORD97-2003 檔”, “*.doc”, 1    ‘增加篩選器的項目為所有WORD97-2003檔

        .AllowMultiSelect = True    ‘允許多項選擇

        If .Show = -1 Then    ‘確定

            For Each oFile In .SelectedItems    ‘在所有選取項目中迴圈

                With Documents.Open(oFile)

                .SaveAs FileName:=Replace(oFile, “doc”, “docx”), FileFormat:=12

                .Close

                End With

            Next

        End If

End With

End Sub