让Word XP“开口”讲笑话

【 tulaoshi.com - 办公软件 】

    本人利用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键，即切换到代码窗口，可在代码窗口的声明部分（顶端空白区域）开始录入代码。 [next]

    首先要编写的是公用Sub过程的代码，Sub过程是一系列由Sub和End Sub语句包含起来的 VBA 语句。以