用Word宏来实现批量将HTML转换成DOC
2016-12-16 10:18
447 查看
环境:OFFICE WORD 2007
打开WORD,在菜单的“视图”->“宏”->“查看宏”->“创建”
http://blog.csdn.net/aminfo/article/details/38760093
[plain] view plain copy
![](https://code.csdn.net/assets/CODE_ico.png)
![](https://code.csdn.net/assets/ico_fork.svg)
Sub 宏1()
Dim MyFile As String
Dim Arr(1000) As String '一次处理最大的文件数量,根据需要修改数字1000改为需要处理的数量
Dim count As Integer
MyFile = Dir("F:\待处理的HTML目录\" & "*.html")
count = count + 1
Arr(count) = MyFile
Do While MyFile <> ""
MyFile = Dir
If MyFile = "" Then
Exit Do
End If
count = count + 1
Arr(count) = MyFile '将文件的名字存在数组中
Loop
For i = 1 To count
Documents.Open FileName:="F:\待处理的HTML目录\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.SaveAs FileName:="F:\处理后DOC保存的目录\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
Next
End Sub
http://blog.csdn.net/aminfo/article/details/38760093
然后保存运行即可。
打开WORD,在菜单的“视图”->“宏”->“查看宏”->“创建”
http://blog.csdn.net/aminfo/article/details/38760093
[plain] view plain copy
![](https://code.csdn.net/assets/CODE_ico.png)
Sub 宏1()
Dim MyFile As String
Dim Arr(1000) As String '一次处理最大的文件数量,根据需要修改数字1000改为需要处理的数量
Dim count As Integer
MyFile = Dir("F:\待处理的HTML目录\" & "*.html")
count = count + 1
Arr(count) = MyFile
Do While MyFile <> ""
MyFile = Dir
If MyFile = "" Then
Exit Do
End If
count = count + 1
Arr(count) = MyFile '将文件的名字存在数组中
Loop
For i = 1 To count
Documents.Open FileName:="F:\待处理的HTML目录\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.SaveAs FileName:="F:\处理后DOC保存的目录\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
Next
End Sub
http://blog.csdn.net/aminfo/article/details/38760093
然后保存运行即可。
相关文章推荐
- 用Word宏来实现批量将HTML转换成DOC
- Python实现将HTML转换成doc格式文件的方法示例
- 把Doc文档转换成HTML等其它格式
- Asp.net2.0实现Word转换Html,同时分享系列笑话
- 如何用C#实现动态页面aspx的静态html转换
- shell 实现txt转换成html
- shell 实现txt转换成html
- 怎么用asp把doc转换成html
- window.location.href妙用 标签里用js 利用这个简单的转换思路 实现 一直也无法实现的在 页面的html标签使
- 简单实用的HTML到UBB转换脚本工具实现说明
- 使用WINHEX脚本实现DOC批量提取遇到的问题
- shell 实现txt转换成html
- Asp.net2.0实现Word转换Html
- 把Doc文档转换成HTML等其它格式
- java实现word到html的转换
- 简单实用的HTML到UBB转换脚本工具实现说明
- Asp.net2.0实现Word转换Html,同时分享系列笑话
- htmldoc能够将html转换成PDF文件
- 批量删除记录时如何实现全选方法总结 (转)http://www.cnblogs.com/chenou/articles/1349646.html[Asp.net Ajax 控件]
- Adobe向苹果让步:发布新工具实现转换HTML5