采用VBA操作
打開(kāi)word，Alt+F11進(jìn)入VBA界面管闷，插入>模塊粥脚，將下面代碼帖進(jìn)去，按F5即可
Sub doc2docx() 'doc文件轉(zhuǎn)docx文件
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear '清除所有文件篩選器中的項(xiàng)目
.Filters.Add "所有 WORD97-2003 文件", "*.doc", 1 '增加篩選器的項(xiàng)目為所有WORD97-2003文件
.AllowMultiSelect = True '允許多項(xiàng)選擇
If .Show = -1 Then '確定
For Each oFile In .SelectedItems '在所有選取項(xiàng)目中循環(huán)
With Documents.Open(oFile)
.SaveAs FileName:=Replace(oFile, "doc", "docx"), FileFormat:=12
.Close
End With
Next
End If
End With
End Sub
方法來(lái)源：http://club.excelhome.net/thread-838847-1-1.html
類似的docx轉(zhuǎn)doc
Sub docx2doc() 'docx文件轉(zhuǎn)doc文件
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear '清除所有文件篩選器中的項(xiàng)目
.Filters.Add "所有 WORD2007 文件", "*.docx", 1 '增加篩選器的項(xiàng)目為所有WORD2007文件
.AllowMultiSelect = True '允許多項(xiàng)選擇
If .Show = -1 Then '確定
For Each oFile In .SelectedItems '在所有選取項(xiàng)目中循環(huán)
With Documents.Open(oFile)
.SaveAs FileName:=Replace(oFile, "docx", "doc"), FileFormat:=0
.Close
End With
Next
End If
End With
End Sub
