Word中巧用宏命令 -pc6资讯

您的位置：首页 → 办公软件 → 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