高级办公软件实验报告4

一、实验目的及要求

1. 掌握利用宏自动删除回车符和空行的方法；

2. 掌握让Ｗord开口说话的方法；

3. 掌握关于标注与不标注按钮的制作的方法。

Windows xp、MS Office 2003

（一）利用宏自动删除回车符和空行

1.运行Word，并新建一个文件。打开“工具”菜单栏，选择“宏”，在二级菜单中选择“录制新宏”

2.出现“录制宏”对话框，随便为宏取个名按“确定”即可，这时会出现一个悬浮“停止录”工具，宏录制就已经开始了。

3.打开“编辑”菜单栏，选择“替换”，出现“查找和替换”对话框。

4.用鼠标在“查找内容”栏内点一下，再点击“高级”，再按“特殊字符”，选择两次“手动换行符”，在“替换为”栏内选“特殊字符”的“段落标志”，再选全部替换，点击“确定”。

5.紧接着，用鼠标在“查找内容”栏内点一下，输入一个空格。用鼠标在“替换为”栏中点一下，删除里面的全部内容，什么都不输入。再点击“全部替换”，点击“确定”。(删除所有的空格)

6.关闭“替换”对话框，在“编辑”菜单栏中选“全选”，再在“格式”中选“段落”，打开“段落”对话框，在“缩进和间距”的“特殊格式”选“首行缩进”，“度量值”为两个字符。在字体中选“宋体”、字号中选“小四号字”。这一步骤是设置字体、字号和进行排版

7.在悬浮的“停止录”工具条上按“停止”钮，到此宏录制的工作结束

（二）让Ｗord开口说话

1.建立窗体

①启动Word，单击菜单“工具→宏→Visual Basic编辑器”，也可以按快捷键[Alt+F11]切换到Visual Basic编辑器窗口;

②单击菜单“插入→用户窗体”，系统建立一个默认样式的用户窗体。对窗体可拖动其右、下边的小方框来可改变大小，本例中根据功能需要将窗体拖为扁长形状。

③单击菜单“视图→属性窗口”，在属性窗口中修改窗体的几个主要属性值。在属性列表中选定“名称”属性，输入“Xiaohua”，然后选定“Caption”属性，输入“开心一刻”。现在，我们便能看到一个标题为“开心一刻”的窗体了。

2.建立控件

①创建文本框：在“工具箱”中选择“AB|”样式的按钮，在窗体上拖动建立一个文本框，并用鼠标调整其位置、大小，若需精确调整，也可在属性窗口中调整“Height”、“Width”等属性值。很关键的一点是要将“MultiLine”属性值设为“True”，它的作用是使文本框能显示多行文本。 

②创建命令按钮：在“工具箱”中选择命令按钮（鼠标悬停会显示“命令按钮”字样），在窗体上的文本框右边拖动建立一个命令按钮，调整好大小并修改其“Caption”属性值为“下一条”，接着依次建立“关闭”、“关于”

③创建复选框：在“工具箱”中选择复选框按钮，在窗体上的文本框下方单击鼠标左键，便创建了一个复选框，修改其“Caption”属性值为“下次启动时不显示”。 

④创建标签：可在窗体的空余部分以“标签”的形式显示作者等信息。

3.编写代码

1单击菜单“视图→代码”或按F7键，即切换到代码窗口，可在代码窗口的声明部    分（顶端空白区域）开始录入代码。

②接下来要编写进入、离开窗体时、单击“下一条”、“关闭”等按钮时的事件过程，当发生事件时将调用公用的Sub过程来执行功能。

4.完善功能

①创建宏的方法是：单击菜单“工具→宏”，在“宏名”文本框中输入宏名“Autoexec”，接着单击“创建”，录入完成以下代码：

Sub Autoexec()

    '

    ' autoexec Macro

    ' 宏在 2006-9-24 由 宋庆军 录制

    'On Error GoTo err '出错处理

    '

    Open “d:\\xiaohua.d1" For Input As #1

    Input #1, Ask$ '读取判断因子

    Close #1

    If Ask$ = "yes" Then Xiaohua.Show   '若判断因子为yes则运行xiaohua窗体

err:

 End Sub

Sub 笑话()

    Xiaohua.Show 'xiaohua为第一步中建立的窗体名称

End Sub

②单击“工具→自定义”，选择“命令”选项卡，在“类别”框中找到“宏”，将右边的“命令”框中“Normal.NewMacros.笑话”拖入菜单“工具”中，并对拖入的命令点右键，在“命名”文本框中重命名为“开心一刻”。

5. 至此，全部工作完成。当Word启动时就能看到笑话了，平时要阅读笑话时，单击菜单“工具→开心一刻”即可。若选中了“下次启动时不显示”复选框，以后也可随时使用它的菜单命令来恢复显示。

1.老师说让word开口讲笑话，我当时特别奇怪，word怎么会讲笑话呢？通过这次实验课，在老师的指导下，我真的让word开口讲笑话了，很有成就感；

2.以前看到标注不标注符号觉得很神奇，从未想过自己也可以做出来，而且还可以做出各种形式的图片转换，通过自己的手做出来的东西才真的属于自己。