doc格式批量转docx

　

docx转doc

最近碰到了doc文档需要批量转为docx的需求，手工转效率太慢，经多方研究找到了一个很不错的方法：

首先，打开一个空白word，按住ALT+F11，弹出VB编程界面。因为VB提供了office的api，所以利用VB对office文件进行操作是最可靠的。在菜单栏点击插入，选择模块，即出现代码编辑框，输入下列的代码：

option explicit
Sub doc2docx()
Dim sEveryFile As String
Dim sSourcePath As String
Dim sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "E:\DOC文件\"
sEveryFile = Dir(sSourcePath & "*.doc")
Do while sEveryFile <> ""
    Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
    CurDoc.Convert
    sNewSavePath = VBA.Strings.Replace(sSourcePath & "DOCX文件\" & sEveryFile, ".doc", ".docx")
    CurDoc.SaveAs2 sNewSavePath, wdFormatDocumentDefault
    CurDoc.Close SaveChanges:=False
    sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub

这段代码会在doc文件夹下新建一个叫“docx文件”的文件夹，然后将转好的docx文件放进去。上文的源代码出自知乎

作者：磁悬浮青蛙呱呱呱

链接：https://www.zhihu.com/question/56463918/answer/269610864

相关阅读

淘宝关键词指数怎么批量查询？怎么优化词？

淘宝关键词指数是什么朋友比较迷惑的地方之一，很多卖家朋友可能不知道这个指数指的是什么意思，怎么批量查询等等，其实这方面的信息，se

批量大气校正高分2号（GF2）卫星数据

高分数据批量处理可以有下述5种选项。 MSS数据的批量正射校正 MSS数据批量正射校正和大气校正 PAN 数据的批量正射校正 MSS与P

淘宝联盟选品库怎么批量推广？选品库是做什么的？

选品库其实是指你把具有相同属性的商品放置于一起，然后选择性就会丰富很多，现在淘宝联盟就有一个选品库，大家知道淘宝联盟选品库怎么

Excel表格中如何批量取消超链接

Excel表格中取消超链接的方法非常简单，我们只需选中链接后单击右键，然后在弹出菜单中选择“取消超链接”即可。但如果表

hibernate批量删除和更新数据

转载自：http://blog.csdn.net/yuhua3272004/article/details/2909538Hibernate3.0 采用新的基于ANTLR的HQL/SQL查询翻译器，在Hibern