doc与docx批量互转宏代码

由于未找到npoi读取doc的方法，只能用npoi读docx，无奈手里有4000多个doc，要是手动一个一个转为docx，那整个人都要不好了，于是在网上找到两个函数，使用word宏功能实现doc与docx互转。现贴下教程。

1.打开一个word，宏-查看宏-新建

2.粘贴代码

VB Code

1
2

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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

VB Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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

3.运行

参考：

1、http://blog.csdn.net/water_lwj/article/details/37911523

2、https://zhidao.baidu.com/question/557724227.html

doc与docx批量互转宏代码相关推荐

word文档批量选中图片宏代码怎么写？
以下是 Word 文档中批量选中图片的 VBA 宏代码: Sub SelectAllPictures()Dim oShape As ShapeFor Each oShape In ActiveDocu ...
xdf文件改word_真正Txt 文本文件和Doc Word文件批量互转工具
电近经常上网下载小说文本,电脑里一大堆,虽然文本文件简洁方便,可是用记事本打开阅读,眼睛看起来却很累,还是觉得保存为WORD文件,阅读起来更舒服,也许一个两个TXT文本,转换成WORD,我们直接打开复 ...
java doc转为pdf_Java利用openoffice将doc、docx转为pdf实例代码
本文研究的主要是Java编程利用openoffice将doc.docx转为pdf的实现代码,具体如下. 1. 需要用的软件 OpenOffice , JodConverter 2.启动OpenOffi ...
实现Word公式和普通文本的批量互转
引子在对Word文档进行翻译时,如果文档中含有公式,翻译软件就会自动跳过,导致翻译出来的句子很奇怪,而如果将公式转换为普通文本之后就可以解决这个问题,所以写了个vb脚本实现Word公式和普通文本的批 ...
Apache POI 读取 Word 表格数据（doc 和 docx 后缀）
简要因为实习工作的原因, 需要从 word 文件中读取数据,而这些 word 文件的内容都是表格的形式. 引入 jar 包两种方式: 通过 Maven 引入到项目中(强烈推荐这种) <dep ...
doc文档转docx格式，方便对文件进行批量处理【附代码】
大家知道微软的office,相信doc的格式也大家耳熟能详,doc格式是微软office的word文档的早期格式,但是doc针对使用python进行批量处理时候,是有很多问题.比如:doc格式是以二进 ...
批量将doc转为docx
参考网址:点击打开链接批量将doc转为docx的方法.如果是建立bat ren *.doc *.docx这种方法是将扩展名修改,没有修改实质.docx实际上是压缩文件以下提供两个vba宏代码,将它 ...
python实现——doc与docx互转（终极版）
目录前言代码 GIF演示前言在使用python提取所有word文件中的所有图片中提到过doc与docx互转的方法,但是代码很简单,只支持单个文件,后来优化了一下代码,现在支持某路径下的所有do ...
Python批量转换doc为docx格式
札记:对于IT从业人员会经常接触到各种文件,其中Word文档是最常见之一,它分为.doc和.docx两种格式.通过Python操作Word文档的第三方库有python-docx和pywin32,pyt ...

doc与docx批量互转宏代码

doc与docx批量互转宏代码相关推荐

最新文章

热门文章