批量將doc轉爲docx

參考網址：點擊打開鏈接

批量將doc轉爲docx的方法。如果是建立bat ren *.doc *.docx這種方法是將擴展名修改，沒有修改實質。docx實際上是壓縮文件

以下提供兩個vba宏代碼，將它放在word2007/2010下運行可以進行轉換。在WPS下運行，先建立宏文件，工具->宏，選擇宏文

件->運行，然後選擇doc所存的目錄進行轉換。

以下爲參考代碼：

Sub docx2doc()    'docx文件轉doc文件
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
        .Filters.Clear    '清除所有文件篩選器中的項目
        .Filters.Add "所有 WORD2007 文件", "*.docx", 1    '增加篩選器的項目爲所有WORD2007文件
        .AllowMultiSelect = True    '允許多項選擇
        If .Show = -1 Then    '確定
            For Each oFile In .SelectedItems    '在所有選取項目中循環
                With Documents.Open(oFile)
                .SaveAs FileName:=Replace(oFile, "docx", "doc"), FileFormat:=0
                .Close
                End With
            Next
        End If
End With
End Sub

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