把doc文件转换成docx

2022-05-12 1 分钟阅读 docx

在word中开启开发者模式，新建一个宏（快捷键 alt F11），使用下面的代码，然后双击运行宏。

会让你选择多个文件，然后系统会把他们都转换成docx文件，并保存到源文件夹！

如果你只是单纯吧doc后缀改成docx的话，会出现打不开、文件损坏的问题哦。

 1Sub doc2docx()  'doc文件转docx文件
 2Dim myDialog As FileDialog, oFile As Variant
 3Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
 4With myDialog
 5        .Filters.Clear    '清除所有文件筛选器中的项目
 6        .Filters.Add "所有 WORD97-2003 文件", "*.doc", 1    '增加筛选器的项目为所有WORD97-2003文件
 7        .AllowMultiSelect = True    '允许多项选择
 8        If .Show = -1 Then    '确定
 9            For Each oFile In .SelectedItems    '在所有选取项目中循环
10                With Documents.Open(oFile)
11                .SaveAs FileName:=Replace(oFile, ".doc", ".docx"), FileFormat:=12
12                .Close
13                End With
14            Next
15        End If
16End With
17End Sub

把doc文件转换成docx

相关文章