Word中编笑话.docVIP

?Word算得上是使用最广泛的应用软件了，但是如果你仅仅用它来打打字、画画表，那就太平淡无奇了，也有些委屈了Word。Word不仅有强大的文字编辑能力，它还内嵌一个VBA（Visual Basic for Applications）编程环境，可以开发出满足个性需求的功能来。 ????本人利用VBA编写了一个“Word讲笑话”，做出来后颇有成就感，现将开发过程和心得写出来与读者朋友分享。 ????能实现的功能是：当每次启动Word时将自动运行“Word讲笑话”，能随机的显示一条笑话（当然，笑话得事先录入好并保存在一个文本文件中）。“Word讲笑话”的面板中一共有三个按钮，点击“下一条”可继续阅读其它笑话，点击“关于”可显示作者和帮助信息，点击“关闭”将关闭窗口。面板中还有一个复选框，可以让用户自由决定下次启动Word时是否显示笑话。 ????开发过程主要有以下几个环节（以Word XP为例）： ????一、建立窗体 ????窗体是窗口和对话框的统称，它是Windows应用程序的用户界面的基础部分。窗体是控件的容器，用来放置文本框、命令按钮、复选框等各种控件。 ????1、启动Word，单击菜单“工具→宏→Visual Basic编辑器”，也可以按快捷键[Alt+F11]，切换到Visual Basic编辑器窗凇?p????2、单击菜单“插入→用户窗体”，系统建立一个默认样式的用户窗体。对窗体可拖动其右、下边的小方框来可改变大小，本例中根据功能需要将窗体拖为扁长形状。 ????3、单击菜单“视图→属性窗口”，在属性窗口中修改窗体的几个主要属性值。在属性列表中选定“名称”属性，输入“Xiaohua”，然后选定“Caption”属性，输入“Word讲笑话”。现在，我们便能看到一个标题为“Word讲笑话”的窗体了。 ???? ????小提示：窗体中的点状物称为“网格”，它能在建立控件时起位置参考和智能对齐的作用，单击菜单“工具→选项”，选择“通用”选项卡，可修改网格的选项和网格块的大小，建议使用较小的网格设置，这样能使控件更靠近窗体边缘的位置，以达到美观的效果。 ????二、建立控件 ????建立了窗体就相当于打好了地基，下一步的工作就是“添砖加瓦”了，也就是建立控件。常用控件包括文本框、命令按钮、标签、复选框、滚动条等。建立控件的方法很简单，单击菜单“视图→工具箱”调出工具箱，在“工具箱”中选择控件类型，然后在窗体上单击或拖动即可。 ???? ????1、创建文本框：在“工具箱”中选择“AB|”样式的按钮，在窗体上拖动建立一个文本框，并用鼠标调整其位置、大小，若需精确调整，也可在属性窗口中调整“Height”、“Width”等属性值。很关键的一点是要将“MultiLine”属性值设为“True”，它的作用是使文本框能显示多行文本。 ????2、创建命令按钮：在“工具箱”中选择命令按钮（鼠标悬停会显示“命令按钮”字样），在窗体上的文本框右边拖动建立一个命令按钮，调整好大小并修改其“Caption”属性值为“下一条”，接着依次建立“关闭”、“关于”按钮。 ????3、创建复选框：在“工具箱”中选择复选框按钮，在窗体上的文本框下方单击鼠标左键，便创建了一个复选框，修改其“Caption”属性值为“下次启动时不显示”。 ????4、创建标签：可在窗体的空余部分以“标签”的形式显示作者等信息。 ????小提示：为了使窗体、控件看起来更美观、协调，可以使用“格式”菜单下的“统一尺寸”命令项使按钮大小相同，使用“对齐”、“水平间距”、“垂直间距”等命令项，使各控件均匀、合理的布置在窗体中。 ????三、编写代码 ????上面建立的窗体和控件还只是“徒有其表”，因为还没有为各个控件赋予具体的功能，接下来就需要编写VBA代码 ，通过代码告诉各控件在什么情况下该执行什么任务。编写代码的方法是：单击菜单“视图→代码”或按F7键，即切换到代码窗口，可在代码窗口的声明部分（顶端空白区域）开始录入代码。 ????首先要编写的是公用Sub过程的代码，Sub过程是一系列由Sub和End Sub语句包含起来的 VBA 语句。以下两个Sub过程分别实现显示笑话和关闭窗体的功能。代码如下： ????Sub 显示笑话()　　Dim line$(500) ’定义笑话文件的最大行数　　Open c:xiaohua.dat For Input As #1 ’打开笑话文件　　Do While Not EOF(1)　　N = N + 1　　Input #1, line$(N) ’读入笑话内容到变量　　Loop　　Close #1　　Randomize　　num = Int(N * Rnd + 1) ’产生随机数　　Do W