学点VBA---WORD的编程工具.rtf

《学点VBA---WORD的编程工具.rtf》由会员分享，可在线阅读，更多相关《学点VBA---WORD的编程工具.rtf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、学点 VBA-WORD 的编程工具.txt 再过几十年，我们来相会，送到火葬场，全部烧成灰，你一堆，我一堆，谁也不认识谁，全部送到农村做化肥。学点 VBA-WORD 的编程工具 首页目录 深入浅出学 WORD(八)学点 VBA-WORD 的编程工具董占山在前几讲中我们提到了 WORD 的宏功能，本讲将就这个议题展开，较深入地讨论 WORD 的编程功能。您通过这一讲的学习，将会明白原来编程并不困难，困难的只是向自己的错误观念挑战。宏和 VBA 的基本概念在模板一讲我们讲到宏是一种排版工具。那么宏到底什么呢？其实宏是用一种 Word 自带的编程语言 VBA 创建的程序。在 WORD 系统中，大量使

2、用了宏命令，如 Word 的向导就是使用宏的最典型例子。还有，听说过宏病毒吧，它也是用 VBA 写成的。先讲讲什么是 VBA？VBA 的全称是 Visual Basic for Application，意思是面向应用的 Visual Basic。VBA 是所有 Office 97 组件公用的一种编程语言，而且编程的方法类似于 Visual Basic 5.0 开发平台。所以说，VBA 是一种功能强大的 Windows 编程语言,通过它可以把您带入到 Windows 编程的殿堂。你可能会问：我从来没有编过程序，能使用 VBA 编程吗？答案是肯定的。学习了这一讲，你就会知道编程并不难，从此，你或许

3、会经常享受到编写程序的酸甜苦辣了！宏（Macro）是用 VBA 命令编写的一段程序，它可以控制 WORD 按一定顺序执行一系列工作。宏命令主要用来将编辑、排版过程中经常重复的步骤或一些复杂的操作过程组合起来，达到简化操作，提高文档的编排效率的目的。利用宏命令，还可以实现一些 WORD 原本没有的功能，从而扩展 WORD 的功能。宏命令制作好之后，您可以将它赋予工具栏按钮、菜单项或快捷键，这样就可以象使用 WORD 本身的命令一样，通过工具栏按钮、菜单命令或者快捷键来运行宏。对 WORD 向导感到神秘吗？其实它就是用 VBA 编写的宏命令，只是它存放在特殊的 WORD 文档中，又利用 WORD

4、的自动宏，当您打开这种文档时，这些充当向导的宏命令就可以自动执行。录制与运行宏学习 VBA 的最简捷的途径是录制并编辑宏命令，你会在不断的学习中提高自己的编程水平。下面介绍录制和运行宏命令的方法。录制宏WORD 的宏录制器就象一个录像机，将摄入镜头的所有画面（操作步骤）忠实地记录到录像带（VBA 程序）上，在以后需要重复观看（执行）相同画面（步骤）时重放。使用宏录制器有一点限制，它不能录制文档正文中的鼠标操作，在需要移动插入点、选择正文的时候，您必须使用键盘命令。除此之外，您用鼠标在菜单或工具栏上执行的命令，宏录制器会都忠实地记录。录制宏的操作步骤：单击工具*宏*录制新宏命令，弹出图 1 所示

5、的录制宏对话窗口，在宏名编辑框中输入宏的名称，WORD 默认的宏名是Macro加上一个数字 1、2、，如果当前文档是基于非默认模板（即不是Normal.dot）的文档，而且您希望该宏只保存在该类模板上，在将宏保存在下拉列表框中选中所用模板，在说明编辑框中输入宏命令功能的解释性文字，便于以后查找使用，如果想让录制的宏指定到工具栏、键盘上，单击将宏指定到组框中的相应按钮，根据对话框的提示，将宏指定到工具栏、键盘上。单击录制宏对话窗口的确定按钮，这时，在屏幕上出现一个录制宏工具栏窗口，鼠标指针变成一个带有一合磁带的箭头，一步一步执行您要录制的所有操作，录制完毕，单击录制宏工具栏上的停止按钮，结束宏的

6、录制。图 1 录制宏对话窗口运行宏运行宏的方法有 5 种：给宏定义一个快捷键，只要按快捷键就可运行之；将宏定义为一个菜单命令,单击菜单命令运行之；把宏指定到工具栏上，使其与一个图标按钮相对应,单击图标按钮运行之；自动运行；从宏对话框中运行。前 3 种方法需要通过工具菜单的自定义命令将宏定义到菜单、工具栏或快捷键后才能使用；自动执行是对一类特殊的宏而言的；只有最后一种，任何宏甚至所有的 Word 命令都可以通过这种方法执行。有一种特殊的宏,与 WORD 的操作事件相关联，当执行这些事件时，与之关联的宏就自动运行，这种宏叫自动宏。WORD 能识别五种自动宏：自动更新（AutoNew）、自动打开（A

7、utoOpen）、自动关闭（AtuoClose）、自动执行（AutoExec）和自动退出（AutoExit）。在括号中的英文就是这些宏的名称，您不能用其它名字来代替，假如您使用其它名字 WORD 就把它们当作普通的宏对待。因此，如果您编写或录制宏时，也不要将普通的宏命名为自动宏的名称。如果您对自动宏还是不大理解的话，打个比方也许您马上就明白了，自动宏对于 WORD 的作用就好比CONFIG.SYS 和 AUTOEXEC.BAT 对于 DOS 系统的作用一样，在 DOS 启动时，如果存在 CONFIG.SYS和 AUTOEXEC.BAT，那么，DOS 就会自动执行它们，如果这两个文件不存在，DO

8、S 就显示当前的日期和时间。单击工具菜单中的宏命令，弹出 Error!Reference source not found.所示的宏对话窗口；如果您知道宏名，您可以在宏名编辑框中直接键入宏名；如果您不知道或记不清宏名，请在宏名列表框中查找，查到后，单击选中它；这时对话窗口如 Error!Reference source not found.所示；单击运行按钮，或直接按键，运行选定的宏。用 VBA 直接创建宏如果还没有制定的宏，您需要使用创建宏功能创建它；如果已经存在指定的宏，可以通过编辑宏来改变它的功能。创建宏创建宏与录制宏相仿，不同的是由您自己来编写 WORDBASIC 程序，而非将操作录制

9、下来，这允许您编写一些用录制的方法做不到的宏命令，从而有效地扩充 WORD 系统。创建宏的步骤：单击工具菜单中的宏命令，弹出宏对话窗口；在宏名编辑框中输入欲创建宏的名称，如AutoExit,这时对话窗口变成 Error!Reference source not found.所示的形式；单击创建按钮，进入宏编辑窗口，如 Error!Reference source not found.所示；在 Sub MAIN 和 End Sub 之间输入 WORDBASIC 的命令和函数，以完成一定的操作；当您编写好宏后，单击文件菜单中的关闭命令，弹出提示窗口；单击是按钮，保存宏命令到共用模板上，完成宏的创建

10、。编辑或查看宏如果一个宏命令已经存在，但您想修改之，可以按照如下步骤打开宏编辑窗口：单击工具菜单中的宏命令，弹出和对话窗口；在宏名列表框中选中宏一个欲编辑的宏；单击编辑 按钮，切换到。一旦打开宏编辑窗口，您就可以在 Sub MAIN 和 End Sub 之间插入有效的 WORDBASIC 指令，开始用 WORDBASIC 语言编程，关于 WORDBASIC 语言的命令和函数 WORD 提供了完整的帮助文本，这里不多讲，有兴趣的读者可以打开WORD 的帮助目录，查找与 WORDBASIC 有关的信息。技巧：您可以先录制一个包含主要命令的宏，然后再把它调入宏编辑窗口进行编辑、修改，这样往往可以节省

11、大量的编程时间，同时减少程序中的错误，提高编程的效率。自己动手，丰衣足食讲了一大堆废话，快给我们提供几个实用的宏命令吧，让我们看看效果如何。好的，学以致用，我们提供两个比较实用的宏命令，供读者学习参考。自动输入分数的宏我们在编辑科技文档时常常要用到分数，可是 WORD 中不能直接输入分数，可以使用 WORD 的EQ（方程）域来实现，也可以使用公式编辑器来实现。这两种方法都不简便，下面的 Fraction 宏命令可以在文档中方便地插入分数域。使用方法是：将插入点定位到需要插入分数的位置，运行该宏，弹出如图-1 所示的对话窗口，分别在分子表达式和分母表达式编辑框中输入分数的分子和分母，单击确定按钮

12、输入分数域。图-1 输入分数对话窗口Fraction 程序清单：Sub MAINBegin Dialog UserDialog 192,122,输入分数TextBox 14,20,160,18,.TextBox1Text 15,6,76,13,分子表达式,.Text1TextBox 17,64,160,18,.TextBox2Text 17,50,76,13,分母表达式,.Text2OKButton 36,92,50,21CancelButton 101,92,49,21End DialogDim dlg As UserDialogx=Dialog(dlg)If dlg.Textbox1 An

13、d dlg.textbox2 Thenfractiontext$=EQ F(+dlg.textbox1+,+dlg.textbox2+)ToolsOptionsView.FieldCodes=1InsertField.Field=fractiontext$ToolsOptionsView.FieldCodes=0End IfEnd Sub插入 3 行并列字符组合的宏在介绍域功能那一讲，我们适用公式域编排了英文试卷或书籍的改错题版式。这里提供的 VBA程序CombineChars 就是用来简化这一排版过程的。CombineChars 的使用方法：将插入点移到需要这种版式的位置，运行这个宏，弹出图

14、-2 所示的对话窗口，在线上字符编辑框中输入英语单词或词组，在线下字符编辑框中输入字母 A、B、C 等，单击确定按钮在文档中插入域。图-2 创建 3 行组合字符的对话窗口CombineChars 宏程序清单：Sub MAINBegin Dialog UserDialog 290,86,创建 3 行组合字符Text 7,7,61,13,线上字符,.Text1TextBox 7,20,160,18,.FirstTextText 8,48,61,13,线下字符,.Text3TextBox 7,61,160,18,.ThirdTextOKButton 191,18,88,21CancelButton

15、192,55,88,21End DialogDim dlg As UserDialogx=Dialog(dlg)If x=-1 ThenIf dlg.FirstText ThenSecondText$=String$(Len(dlg.FirstText),-)CombineText$=eq o(s up 0(+dlg.FirstText+),s do 5(+SecondText$+),s do 10(+dlg.ThirdText+)ToolsOptionsView.FieldCodes=0InsertField.Field=CombineText$End IfEnd IfEnd Sub查找特定

16、文本，加工处理后，再进行替换下面这个宏命令，提供了一种完成用 Word 命令不可能完成的功能，它首先在文档中查找特定的文本，当查找到文本后，选中该文本前的若干字符，从中提取一个有效的数值，对数值进行计算加工，讲计算出的数值在转换为字符串，替换掉原来的数值字符串，最后将原来查找的文本也替换成另外一个文本。这个宏的用途是修改一篇文档中指定单位的数值为另一种单位的数值。这种修改，如果手工进行将是费时费力，非常容易出错。这个宏命令的用途就在于此。Sub repl()Attribute repl.VB_Description=宏在 98/11/10 由 Clone 创建Attribute repl.VB

17、_ProcData.VB_Invoke_Func=normal.NewMacros.repl repl Macro 宏在 98/11/10 由 Clone 创建Found1=TrueIf Found1 Then Selection.Find.ClearFormatting With Selection.Find .Text=gf/tex 写实际的单位 .Forward=True .Wrap=wdFindContinue .MatchByte=True End With Selection.Find.Execute Found1=Found If Found Then Selection.Cut

18、 Selection.MoveLeft Unit:=wdCharacter,Count:=4,Extend:=wdExtend MyText=Selection.Text x1=Val(MyText)x2=Int(x1/0.98)*10)/10 将 0.98 替换为自己的转换值 NewStr=For i=1 To Len(MyText)y=Left(MyText,1)MyText=Right(MyText,Len(MyText)-1)For j=0 To 9 If y=Chr(48+j)Then GoTo L1 Next j NewStr=NewStr+y Next iL1:y1=Str(x2

19、)NewStr=NewStr+y1+cN/tex 将$替换为实际单位 Selection.Text=NewStr End IfEnd If Selection.MoveRight Unit:=wdCharacter,Count:=2End Sub小结年轻的朋友，鼓起勇气，向自己挑战，开始编写程序吧，这种经验会给你未来的生活带来意想不到的收获！想听听我学 VBA 的故事吗？几年前，我刚开始使用 Word 时，手头并没有关于 Word 编程的资料，只是偶尔在计算机杂志或报刊上看到一点别人编写的宏命令，解决了 Word 本身的命令不能解决的问题，感到十分的羡慕，就将提供的Basic 代码打入计算机，

20、试着运行这些宏，并摸索着修改它们，渐渐地通过查阅帮助文档，可以独立使用 WordBasic编写 Word 的宏命令了，后来还在杂志上发表了几个有用的宏命令。从此之后，我就经常编写一些宏命令，来解决 Word 不能或解决起来十分烦琐的工作，使自己的 Word 工作环境更加易于使用。这就是我学 VBA 的简单经历。有些朋友想学习编程，但又不知到从何处入手，那么就从 VBA 学起吧！在 VBA 中学到的东西，完全适用于Visual Basic for Windows，甚至其他的编程环境。祝愿青少年朋友们，能够在学习中提高，成长为 Word 高手和 VB 编程高手。?董占山,1998-2004,版权所有。如果转载本站文章请注明出处，谢谢你的理解和支持。感谢 Lycos.co.uk 提供空间 See ad Site Catcher can transfer your site to Tripod in 3 clicks Join Lycos Affiliate Programs and earn money from your website