【真技术】批量将doc转为docx的方法 | 您所在的位置:网站首页 › 如何doc转docx › 【真技术】批量将doc转为docx的方法 |
女朋友最近有个doc文档需要批量转为docx的需求(wps默认生成doc文件,对方必须要docx文档),查了百度,如果是建立bat ren *.doc *.docx批处理文件将扩展名修改,并没有实质修改,docx实际上是压缩文件,通过wps另存为这种手工方法转换效率太慢,经多方研究找到了一个很不错的方法: 第一步:打开开一个空白word,按住ALT+F11,弹出VB编程界面即宏。(wps和office打开宏的方法自行百度) 第二步:在左边空白处右击,依次选择:插入—>模块 第三步:在如图所示空白区插入vba代码 ======================================================================= 【vba代码】 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 ====================================================================== 第四步:选择工具栏中: 运行->运行子过程/用户窗体 第五步:执行后会弹出文件选择框,选择要转换的所有doc文件即可。(选择所有文件使用Ctrl或者shift选择多个文件) |
CopyRight 2018-2019 实验室设备网 版权所有 |