资源描述：
《Word中巧用宏命令》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------Word中巧用宏命令宏命令作为一个非常重要的功能，在现在的许多软件中都不可缺少。利用宏，可以大大地简化我们的工作，准确快速地完成繁琐的任务。下面，就给大家详细介绍我在word中使用宏的一个实例。【需求】在word中进行批量处理，将大量的Word文档.doc文件转换为.htm文件【分析】我们知道，利用word可以将.doc文件转换为.htm文件，方法是：在Doc文件编辑窗口中，选择菜单“文件/另存为”，在“保存类型”下列列表中选择“htmldocument”，按
2、“保存”。单独进行几个doc文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc文件，要对这些文件进行转换成.htm文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。【实现步骤】假设大批量.doc文档所在目录为c:docs，文件名为1.1.doc，1.2.doc...1、启动word2、关闭当前默认打开的空文档3、选择菜单“工具/宏/录制新宏”，输入宏名称“doctohtml”，按“确定”，进入了宏录制过程。4、选择菜单“文件/打开”，选择目录c:docs，选择文件1.1.doc，按“确定”。5、选择菜单“文
3、件/另存为”，在“保存类型”下列列表中选择“htmldocument”，按“保存”。6、选择菜单“文件/关闭”7、选择菜单“工具/宏/停止录制”8、选择菜单“工具/宏/宏”9、在出现的“宏”窗口左部选中doctohtml，单击右边的按钮“编辑”10、宏代码改造：-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有---------------------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------在出现的“MicrosoftVisualBasic”窗口中，可以看到如下的宏代
4、码：Subdoctohtml()''doctohtmlMacro'宏在99-11-8由xxx录制'ChangeFileOpenDirectory"C:docs"Documents.OpenFileName:="1.1.doc",ConfirmConversions:=False,ReadOnly:=_False,AddToRecentFiles:=False,PasswordDocument:="",PasswordTemplate:=_"",Revert:=False,WritePasswordDocument:="",WritePasswordTemplate:="",_Fo
5、rmat:=wdOpenFormatAutoActiveDocument.SaveAsFileName:="1.1.htm",FileFormat:=100,LockComments:=_False,Password:="",AddToRecentFiles:=True,WritePassword:="",_ReadOnlyRecommended:=False,EmbedTrueTypeFonts:=False,_SaveNativePictureFormat:=False,SaveFormsData:=False,SaveAsAOCELetter:=_FalseActiveDoc
6、ument.CloseEndSub对上面的代码进行改造，如下：-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有---------------------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------Subdoctohtml(myfileasstring)''doctohtmlMacro'宏在99-11-8由xxx录制'ChangeFileOpenDirectory"C:docs"IfFileExists(gwfile+".doc")ThenDocuments.OpenF
7、ileName:=myfile+".doc",ConfirmConversions:=False,ReadOnly:=_False,AddToRecentFiles:=False,PasswordDocument:="",PasswordTemplate:=_"",Revert:=False,WritePasswordDocument:="",WritePasswordTemplate:="",_Format:=wdOpenFormatAutoActiveDocume
