Word宏应用实例.doc

《Word宏应用实例.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Word宏应用实例一、宏的录制在这里举一实例。例如，在Word97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。2.给宏取名为“Yuan”，再单击“键盘”。3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中

2、的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。5.单击“停止录制”工具栏中的“停止录制”按钮。6.单击“工具”选单中“宏”子选单，再单击“宏”命令。7.选择第二步中的宏名称，再单击“编辑”按钮。这时我们可以从中看到以下代码：SubYuan()Selection.InsertSymbolFont:=〃楷体—GB2312〃,CharacterNumber:=－27,Unicode:=TrueEndSub以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal

3、.NewMacrol.Yuan”便可以了。二、宏的编辑宏录制器将以上宏操作翻译为VisualBasic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。28然后便加载VisualBasic编辑器，我们可以看到所录制的宏自动生成的VisualBasic代码。例如，在C:MyDocument中有200个Word文档，依次命名为“1.d

4、oc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的VisualBasic代码如下：SubMacro1()ChangeFileOpenDirectory〃C:Mydocument〃Documents.OpenFileName:=〃1.doc〃ActiveDocument.SaveAsFileName:=〃1.txt〃,FileFormat:=wdFormatTextActiveWin

5、dow.CloseEndSub下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下：SubMacro1()dimifori=1to200ChangeFileOpenDirectory〃C:Mydocument〃Documents.OpenFileName:=i＆〃.doc〃ActiveDocument.SaveAsFileName:=i＆〃.txt〃,FileFormat:=wdFormatTextActiveWindow.ClosenextiEndSub28再次运行该宏，便可以轻松完成任务。宏的作用由

6、此可略见一斑您正在看的Word教程是:Word统计文字出现次数Word宏应用实例。有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，我编写了一个宏，使Word具有统计单个文本总数量的功能。下面介绍实现方法。　　第二步在弹出的VisualBasic编辑器的代码窗口中完成以下内容：　　SubFindText()　　Text=InputBox("请输入要查找的文本：","提示")　　WithActiveDo

7、cument.Content.Find　　DoWhile.Execute(FindText:=Text)=True　　tim=tim+1　　Loop　　EndWith　　MsgBox("当前文档查找到"+Str(tim)+"个"+Text),48,"完成"　　EndSub　　第三步录入完毕后，单击菜单[文件]→[关闭并返回到Micrcsoft后Word]。　　第四步单击菜单[工具]→[自定义]，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并

8、右击拖入的命令，在“命名”框中重命名为“查找文本数量”(如图)。　　以后要统计文本数量时，只要单击[编辑]→[查找文本数量]，按提示输入要查找的内容，单击[确定]就得到统计结果。宏应用实例三：将大量的Word文档.doc文件转换为.htm文件2007-11-1514:12【分析】　　我们知