您的位置:首页办公软件Word → Word中巧用宏命令

Word中巧用宏命令

时间:2004/10/15 1:05:00来源:本站整理作者:蓝点我要评论(0)

  宏命令作为一个非常重要的功能,在现在的许多软件中都不可缺少。利用宏,可以大大地简化我们的工作,准确快速地完成繁琐的任务。下面,就给大家详细介绍我在word中使用宏的一个实例。

【需求】


  在word中进行批量处理,将大量的Word文档.doc文件转换为.htm文件


【分析】


  我们知道,利用word可以将.doc文件转换为.htm文件,方法是:


  在Doc文件编辑窗口中,选择菜单“文件/另存为”,在“保存类型”下列列表中选择“html document”,按“保存”。单独进行几个doc文件的转换还不算繁琐,但要大批量地进行转换工作时,比如:按章节输入了一本书,形成了几十个.doc文件,要对这些文件进行转换成.htm文件的工作,这时,就不能采用手工一个个处理的笨办法了!怎么实现呢?请往下看。


【实现步骤】


  假设大批量.doc文档所在目录为c:\docs,文件名为1.1.doc,1.2.doc ...



1、 启动word

2、 关闭当前默认打开的空文档

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.SaveAs FileName:=myfile+".htm", FileFormat:=100, LockComments:= _


            False, Password:="", AddToRecentFiles:=True, WritePassword:="", _


            ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _


            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _


            False


         ActiveDocument.Close


      end if


    End Sub




    并加入下面两个过程:



    '判断文件是否存在的函数


    Function FileExists(ByVal FileName As String) As Boolean


       On Error Resume Next


       FileExists = Dir$(FileName) <> ""


       If Err.Number <> 0 Then


          FileExists = False


       End If


       On Error GoTo 0


    End Function



    '实际的转换函数


    Sub mydoctohtml()


       If MsgBox("确认执行转换doc到html文件吗?", vbOKCancel + vbDefaultButton2) = _


            vbCancel Then GoTo eeeddd


    


      Call doctohtml("conver")


      Call doctohtml("content")


      Call doctohtml("qianyan")


      Call doctohtml("fl")


    


      Call doctohtml("1.1")


      Call doctohtml("1.2")


      ...


      Call doctohtml("1.10")


      ...


      Call doctohtml("2.1")


      ...


      Call doctohtml("3.1")


      ...


      ...  


      Call doctohtml("9.1")


      ...


      eeeddd:


    End Sub


   


      至此,全部代码改造完毕!关闭“Microsoft Visual Basic”窗口,回到Word窗口。




11、选择菜单“工具/宏/宏”,出现“宏”窗口,在左边的宏列表中,可以看到“mydoctohtml”一项,选中它,按右边的按钮“运行”,出现提示窗口“确认执行转换doc到html文件吗?”,选择“确定”,批量转换工作开始了!



【后记】


  上面应用宏的例子,看起来虽然步骤很多,其实做起来却非常简单,技术上关键在于2个环节:



第一、根据某个任务录制初始的宏;

第二、对初始的宏代码进行改造,已满足满足特殊的需求。


  自动化地处理,是否很让你感到计算机的高级?宏,真是个好东东

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 毕业论文格式设置图文Word 2010 的十大优点

最新文章 Word拼音怎么打?Word给毕业论文格式设置图文 Word无法读取文档,文档可能损坏怎么办word统一图片大小实例图文教程Word中批量修改图片大小和缩放比例方法毕业论文格式设置图文教程

人气排行 下划线怎么打?是哪个键?Word里输入乘号和除号的6种方法如何让word生成的目录显示4级标题并自动缩进word中表格允许跨页断行不能选择是灰色在Word2003文档中怎么分栏设置怎么制作红头文件Word中批量修改图片大小和缩放比例方法Word无法启动转换器mswrd632的解决办法