第一步：打开一个空白word，按住ALT+F11，弹出VB编程界面即宏。
第二步：在左边空白处右击,依次选择：插入—>模块
第三步：在 左侧窗口【工程-Project】窗口里面的空白处右键，插入，模块
第四步：在如图所示空白区插入vba代码

 Sub docx2doc()    'docx文件转doc文件

Dim myDialog As FileDialog, oFile As Variant

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

        .Filters.Clear    '清除所有文件筛选器中的项目

        .Filters.Add "所有 2003 文件", "*.doc", 1    '增加筛选器的项目为所有WORD2007文件

        .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

• 本文标题： 批量将word2003版本doc格式改成word2007版本docx格式
• 文章分类：【电脑问题】
• 非特殊说明，本文版权归【胡同里的砖头】个人博客 所有，转载请注明出处.

• 上一篇：WPF使用NPOI读取word内容
• 下一篇： ElementUI之Calendarv鼠标热点Hover设置背景色半透明