今天的文章中合肥达内将分享一些干货技能,如何用Word宏来实现批量将HTML转换成DOC?随合肥达内web培训一起去了解一下吧!

用Word宏来实现批量将HTML转换成DOC

环境:OFFICE WORD 2007

打开WORD,在菜单的“视图”->“宏”->“查看宏”->“创建”

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

了解更多HTML专业知识,欢迎持续关注合肥HTML5培训。

【免责声明】本文系本网编辑部分转载,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请在30日内与管理员联系,我们会予以更改或删除相关文章,以保证您的权益!

批量html转换word,用Word宏来实现批量将HTML转换成DOC相关推荐

  1. PDF转word之后的结果事图片格式,如何改成.doc或.docx格式

    PDF转Word成功之后的结果文件应该就是.doc或.docx格式的,不会变成图片格式. 可以使用专业的PDF转换器:okfone PDF转换大师 点击下载 点击进入[PDF转文件],导入需要转换的P ...

  2. Word中将多个表格内容批量居中:通过“宏”操作

    Word中将多个表格内容批量居中 操作系统:win10 word版本:office 2016 1. 打开word-->视图-->宏 2.输入宏名-->创建宏 3. 将下面的代码粘贴进 ...

  3. 使用word中的宏实现选中指定类型表格,并且批量修改样式结构

    使用word中的宏实现选中指定类型表格,并且批量修改样式结构 Sub SelectAllTables() ' ' SelectAllTables 宏 选中所有表格 ' 'Dim tempTable A ...

  4. 实现Word公式和普通文本的批量互转

    引子 在对Word文档进行翻译时,如果文档中含有公式,翻译软件就会自动跳过,导致翻译出来的句子很奇怪,而如果将公式转换为普通文本之后就可以解决这个问题,所以写了个vb脚本实现Word公式和普通文本的批 ...

  5. vba 压缩图片_1分钟批量处理100张图片,Word图片批量压缩/提取/居中统统搞定

    天下苦Word久矣!Word不仅是个码字工具,还是个排版工具,而Word在排版方面经常遇到的问题,恐怕说个三天三夜都说不完! 好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:" ...

  6. Python办公自动化(八)|使用Python转换PDF,Word/Excel/PPT/md/HTML都能转

    Word转PDF Word转PDF应该是最常见的需求了,毕竟使用PDF格式可以更方便展示文档,虽然在Word中可以直接导出为PDF格式,但是使用Python可以批量转换,更加高效. 目前在Python ...

  7. python-docx对Word文档的指定位置(批量)插入图片

    python-docx对Word文档的指定位置(批量)插入图片 任务 实现自动化办公,对请假条.docx文件实现自动插入请假人签名图片. 技术方案 1.python-docx python-docx是 ...

  8. Word中录制宏,学会后成大神

    Word中录制宏,学会后成大神 Word是日常工作.生活不可避免的工具,掌握word的一些技巧,可以提高效率,让工作事半功倍,下面由办公吧(offices8.com)整理的如何在word中使用宏. 这 ...

  9. vba 保存word里面的图片_1分钟批量处理100张图片,有Word在

    天下苦Word久矣!Word不仅是个码字工具,还是个排版工具,而Word在排版方面经常遇到的问题,恐怕说个三天三夜都说不完! 好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:" ...

最新文章

  1. C语言程序设计上机前三题,C语言程序设计(含上机实验与习题解答)
  2. python利用jieba(textRank、TFIDF)提取关键字
  3. vmware安装问题:Microsoft Runtime DLL安装程序未能完成安装
  4. 【数据库系统】DBMS、DBS、DBA、DB的区别
  5. 女子800米跑进4分30秒才合格,茅台回应应聘者需体测...
  6. SQL Server中全角和半角字符的比较问题
  7. java hmget 最大值,【Redis】基本数据类型及命令操作(超详细)
  8. PAT甲题题解-1124. Raffle for Weibo Followers-模拟,水题
  9. 怎么有效提高执行力?
  10. python批量读取Excel文件
  11. Node.js 创建第一个应用
  12. 数学:给你长度1~n的线段 组成三角形最长边长度不超过你的n三角形有多少个
  13. 电脑版微信怎么双开、多开
  14. 基于flask的可视化动漫分析网站
  15. vp9 prob 详细分析
  16. 巨杉数据库MySQL_【SequoiaDB】5 巨杉数据库SequoiaDB基本操作
  17. 死区4个状态分析,以及死区时间计算
  18. 洪小文清华论道:AI 的前生今世及未来应用图景
  19. 计算机图形学基础1——MVP变换
  20. 【C语言】计算含多种运算符的表达式

热门文章

  1. 详解最大似然估计(MLE)、最大后验概率估计(MAP),以及贝叶斯公式的理解
  2. Ubuntu20.04下安装显卡驱动
  3. ISO9001认证多少钱?
  4. 实现BMP位图色深转换的方法
  5. matlab 雷达系统界面,基于Matlab的雷达系统仿真软件包设计与实现
  6. android 弹幕动画,Android自制精彩弹幕效果
  7. 通达信行情数据获取--python_Python读取通达信数据
  8. catia打开后拖动工具栏有残影_Catia如何恢复工具栏布局
  9. 一加到100分之一c语言,r1c和一加_c语言和c加加的区别_雅马哈r1恐怖加速
  10. 耿建超英语语法---非谓语动词作宾语与表语