doc文件格式转换成docx,zblog word导入插件专用

2022-06-19 02:50:18  阅读 105 次 评论 0 条

以下代码可将doc批量转为docx格式的文档,zblog用户安装了word导入插件后,有部分doc文件无法导入发布成功,建议使用以下代码将doc文件转为docx格式。

如果您的wps没有安装VBA,请参考文章:WPS启用宏,VBA下载,WPS表格中如何安装VBA?

安装完VBA后,在任意目录新建一个word文件(不要放在需要改格式的目录),然后点击"开发工具”-“查看代码”如图:

然后点击如图“thisdocument”将以下代码复制进去,然后点击如图的三角形运行,选择需要更改后辍的目录即可。

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

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


WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?