- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Word中用宏命令
Word中巧用宏命令宏命令作为一个非常重要的功能,在现在的许多软件中都不可缺少。利用宏,可以大大地简化我们的工作,准确快速地完成繁琐的任务。下面,就给大家详细介绍我在word中使用宏的一个实例。
【需求】
在word中进行批量处理,将大量的Word文档.doc文件转换为.htm文件
【分析】
我们知道,利用word可以将.doc文件转换为.htm文件,方法是:
在Doc文件编辑窗口中,选择菜单“文件/另存为”,在“保存类型”下列列表中选择“html document”,按“保存”。单独进行几个doc文件的转换还不算繁琐,但要大批量地进行转换工作时,比如:按章节输入了一本书,形成了几十个.doc文件,要对这些文件进行转换成.htm文件的工作,这时,就不能采用手工一个个处理的笨办法了!怎么实现呢?请往下看。
【实现步骤】
假设大批量.doc文档所在目录为c:\docs,文件名为1.1.doc,1.2.doc ...
1、 启动word2、 关闭当前默认打开的空文档3、 选择菜单“工具/宏/录制新宏”,输入宏名称“doctohtml”,按“确定”,进入了宏录制过程。4、 选择菜单“文件/打开”,选择目录c:\docs,选择文件1.1.doc,按“确定”。5、 选择菜单“文件/另存为”,在“保存类型”下列列表中选择“html document”, 按“保存”。6、 选择菜单“文件/关闭”7、 选择菜单“工具/宏/停止录制”8、 选择菜单“工具/宏/宏”9、 在出现的“宏”窗口左部选中doctohtml,单击右边的按钮“编辑”10、宏代码改造:
在出现的“Microsoft Visual Basic”窗口中,可以看到如下的宏代码:
Sub doctohtml()
doctohtml Macro
宏在 99-11-8 由 xxx 录制
ChangeFileOpenDirectory C:\docs
Documents.Open FileName:=1.1.doc, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _
, Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _
Format:=wdOpenFormatAuto
ActiveDocument.SaveAs FileName:=1.1.htm, FileFormat:=100, LockComments:= _
False, Password:=, AddToRecentFiles:=True, WritePassword:=, _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
End Sub
对上面的代码进行改造,如下:
Sub doctohtml(myfile as string)
doctohtml Macro
宏在 99-11-8 由 xxx 录制
ChangeFileOpenDirectory C:\docs
If FileExists(gwfile + .doc) Then
Documents.Open FileName:=myfile+.doc, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _
, Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _
Format:=wdOpenFormatAuto
ActiveDocument
您可能关注的文档
- Top50名腾男孩起名用字.doc
- Top50美名腾起名用字.doc
- TOPCO通讯软件T-COM使用说明.doc
- TP-Lik有线路由器是否需要设置.doc
- ti-27原蛋白客户问答培训件.doc
- Traceek液漏检测设备资料.doc
- Trixbx2.3.1与迅时FXO口语音网关组建企业应用实例.doc
- TPM-前性的全面设备管理.doc
- TRIZ理的40个发明原理详解.doc
- Try m best to---尽我最大的力做.doc
- 《GB/T 17737.9-2024同轴通信电缆 第9部分:柔软射频同轴电缆分规范》.pdf
- GB/T 17737.9-2024同轴通信电缆 第9部分:柔软射频同轴电缆分规范.pdf
- 中国国家标准 GB/T 17737.9-2024同轴通信电缆 第9部分:柔软射频同轴电缆分规范.pdf
- GB/T 44003-2024力学性能测量 REBCO涂层导体(镀铜)脱层强度测试方法.pdf
- 中国国家标准 GB/T 44021.2-2024音视频及相关设备 功耗测量 第2部分:测试信号和媒介.pdf
- 《GB/T 44021.2-2024音视频及相关设备 功耗测量 第2部分:测试信号和媒介》.pdf
- GB/T 44021.2-2024音视频及相关设备 功耗测量 第2部分:测试信号和媒介.pdf
- GB/T 43962.1-2024动力电池数字化车间集成 第1部分:通用要求.pdf
- 2024广西南宁市江南区教育局面向南宁市公办学校招募中学支教志愿者88人笔试备考试题及答案解析.docx
- 2024广西合浦县山口镇人民政府公开招聘村级防贫监测信息员2人笔试备考试题及答案解析.docx
文档评论(0)