Word中巧用宏命令.docVIP

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