doc文件批量转换成htm以及htm批量转成xlsx

现需把一批doc文件格式转换成xlsx，中间需要转换一次htm文件。

当然我首先想到的是直接修改后缀名，写一个bat文件，方便快捷是吧？

上天可不让你这么好过，直接修改后缀名后会损坏文件，所以要怎么办？

可以打开文件，然后开始——另存为——需要的格式，这个修改一两个文件倒没问题，可是有上千个文件

肯定不能一个个转吧，这时候就需要批量转换，有个非常好用的功能叫——宏命令。

下面这个是doc转htm，注意使用代码时更改相应的文件目录。

使用方法也很简单，在word录制一个宏，然后打开这个宏代码，复制粘贴进去即可。

Sub hongyi()
'
' hongyi 宏
'
'Dim MyFile As StringDim Arr(1000) As String     '一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量Dim count As IntegerMyFile = Dir("**当前文件目录**" & "*.doc")count = count + 1Arr(count) = MyFileDo While MyFile <> ""MyFile = DirIf MyFile = "" ThenExit DoEnd Ifcount = count + 1Arr(count) = MyFile         '将文件的名字存在数组中LoopFor i = 1 To countDocuments.Open FileName:="**当前文件目录**" & Arr(i), ConfirmConversions:=False, ReadOnly:= _False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _Format:=wdOpenFormatAuto, XMLTransform:=""ActiveDocument.SaveAs FileName:="**要保存到的目标文件目录**" & Replace(Arr(i), ".doc", ".htm"), FileFormat:= _wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _SaveAsAOCELetter:=FalseActiveWindow.View.Type = wdWebViewActiveDocument.CloseNext
End Sub

再之是htm转excel的代码

Sub 宏1()
'
' 宏1 宏
''Dim oPath        As String   '原始文件路径Dim oFName      As String   '原始文件名Dim dPath        As String   '目标文件路径Dim dFName      As String   '目标文件名'获取路径oPath = "****自行修改目录*****"dPath = "****自行修改目录*****"'打开工作簿时强制禁止宏Application.AutomationSecurity = msoAutomationSecurityForceDisable'禁用警告Application.DisplayAlerts = False'查找xls文件oFName = Dir(oPath & "*.htm")'当文件被找到则不断循环Do While oFName <> ""'打开工作簿With Workbooks.Open(oPath & oFName)'判断工作簿是否含有VB工程If .HasVBProject Then'若含有VB工程，则另存为启用宏的工作簿dFName = Replace(oFName, ".htm", ".xlsx").SaveAs dPath & dFName, xlOpenXMLWorkbookMacroEnabledElse'若不含有VB工程，则另存为一般工作簿dFName = Replace(oFName, ".htm", ".xlsx").SaveAs dPath & dFName, xlOpenXMLWorkbookEnd If'关闭工作簿.Close FalseEnd With'查找下一个文件oFName = DirLoop'恢复打开文件的宏安全性设置Application.AutomationSecurity = msoAutomationSecurityByUI'启用警告Application.DisplayAlerts = True
End Sub

希望此博客对大家有帮助！

doc文件批量转换成htm以及htm批量转成xlsx相关推荐

python docx与doc 文件互相转换
因文件格式要求,需要将docx 与doc文件相互转换,特寻找python代码,与大家共分享 from win32com import client#转换doc为docx def doc2docx(fn ...
Matlab批量转换dicom,基于Matlab的批量转换DICOM格式CT序列图像的实现
龙源期刊网 http://www.doczj.com/doc/25ac806b59fb770bf78a6529647d27284a733760.html 基于Matlab的批量转换DICOM格式CT ...
.chm文件与.doc文件互相转换(一).chm转.doc
简介本文将描述如何将一个.chm文档转化为一个.doc文档. 准备工具:下载一个CHM2Word 2012软件即可. 本文CHM2Word 2012的未破解,试用30天,网上应该有破解版. 安装转 ...
html批量转换xls格式,htm格式怎么转换excel
怎么把htm格式的文件需要转换成excel文件我现在有一个htm格式的文件需要转换成excel文件,里面有4000多条数据,把htm格式的文件转换成excel文件的方法和操作步骤如下: 首先,把ht ...
图片批量转换成pdf
生活中,大家经常会拍摄一些照片用来留念,然而时间长了,经常会因为照片多而杂乱而懒于翻看,那么你是否考虑做一个电子相册,或制作一本PDF格式的书籍来翻看呢?菜鸟的这款 JPG转换成PDF转换器 ,快又好 ...
php 生成 webp,使用PHP脚本批量转换webp文件为png文件
WebP是一种主要应用于网页上的图片格式,由谷歌推出. 目的是能够更有效的压缩图片,来节省图片传输所消耗的时间和服务器带宽. 但是毕竟应用场景有限,所以有时候需要将webp转换为png图片. 引言在 ...
CAD怎么转换成PDF？如何将CAD批量转换成PDF？
CAD文件是设计行业常常需要使用的图纸之一,我们在使用CAD图纸文件时,有时候需要将CAD图纸文件转换成PDF,那么CAD怎么转换成PDF?如何将CAD批量转换成PDF?通过这篇文章,我就来告诉大家应 ...
无损批量转换视频文件的格式的方法
有时候在工作生活中,我们需要用到特点的一些视频格式,那当我们下载或者原创的视频文件格式不满足需求的时候,怎么才能快速批量地转换这些视频文件并且不损坏视频画质清晰度呢?其实方法并不难,跟着小编来看看操作 ...
批量转换 LF 和 CRLF 的小技巧【详细步骤】
在做跨平台开发移植的时候,最常见的问题就是不同操作系统的换行不同(例如,Windows 上是 CRLF,而 Linux 上是 LF,MacOS 以前是 CR,现在也是 LF),如果不注意的话,可能会导 ...
怎么批量转换图片格式？
怎么批量转换图片格式?在日常的工作过程中,小伙们时常需要将上百上千的图片进行格式转换,如果你一张一张图片进行转换,就需要消耗大量的时间和精力,时间就是金钱,我们不应该浪费大量时间在这种简单又重复的事情 ...

doc文件批量转换成htm以及htm批量转成xlsx

doc文件批量转换成htm以及htm批量转成xlsx相关推荐

最新文章

热门文章