muqiaoyun4

4.创建命令按钮：在“工具箱”中选择命令按钮（鼠标悬停会显示“命令按钮”字样），在窗体上的文本框右边拖动建立一个命令按钮，调整好大小并修改其“Caption”属性值为“下一条”，接着依次建立“关闭”、“关于”按钮。
5.创建复选框：在“工具箱”中选择复选框按钮，在窗体上的文本框下方单击鼠标左键，便创建了一个复选框，修改其“Caption”属性值为“下次启动时不显示”
' 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窗体
四、实验体会与建议
1.这次的实验课老师逐个检查的，看起来貌似工作量很少，实际上和以前的联系都不一样，根据老师上堂课的演示和幻灯片的指导，练了很久，好不容易能够实现笑脸和哭脸的转换
2.以前总以为这些不常用的功能高深莫测，只有专业人士才可以做，现在知道原来word功能就有这么多，了解了word的神通广大，我要多加学习，为以后无纸化办公奠定基础
Close #1
Randomize
num = Int(N * Rnd + 1) '产生随机数
Do While line$(num) = "" '识别并忽略空行
num = num + 1
If num = N + 1 Then num = 1
Loop
TextBox1.Text = " " & line$(num) '显示笑话内容
4.录制两个插入自动图文集的宏：选择“工具”→“宏”→“录制新宏”，输入“宏名”：“插入不标注符号”，保存在当前文件，按确定。选择“插入”→“自动图文集”→“正文”，选“不标注”，停止录制宏。完成录制“插入不标注符号”的操作。
5.按上述方法再录制一个“插入标注符号”的宏
6.录制两个插入自动图文集的宏：选择“工具”→“宏”→“录制新宏”，输入“宏名”：“插入不标注符号”，保存在当前文件，按确定。选择“插入”→“自动图文集”→“正文”，选“不标注”，停止录制宏。完成录制“插入不标注符号”的操作。
7.按上述方法再录制一个“插入标注பைடு நூலகம்号”的宏
8.录制两个插入自动图文集的宏：选择“工具”→“宏”→“录制新宏”，输入“宏名”：“插入不标注符号”，保存在当前文件，按确定。选择“插入”→“自动图文集”→“正文”，选“不标注”，停止录制宏。完成录制“插入不标注符号”的操作。
9.按上述方法再录制一个“插入标注符号”的宏
结束
End Sub
Private Sub CommandButton3_Click()
MsgBox "《WORD讲笑话》由徐州师范大学管理学院编2006.10"
End Sub
8.创建宏：单击菜单“工具→宏”，在“宏名”文本框中输入宏名“Autoexec”，接着单击“创建”，录入完成以下代码：
Sub Autoexec()
2.单击菜单“视图→属性窗口”。在属性列表中选定“名称”属性，输入“Xiaohua”，然后选定“Caption”属性，输入“开心一刻”
3.创建文本框：在“工具箱”中选择“AB|”样式的按钮，在窗体上拖动建立一个文本框，并用鼠标调整其位置、大小，若需精确调整，也可在属性窗口中调整“Height”、“Width”等属性值。很关键的一点是要将“MultiLine”属性值设为“True”
End Sub
Sub结束()
Open“d:\xiaohua.d1" For Output As #1
If CheckBox1.Value = True Then '结束前检查是否选中复选框
Print #1, "no" '若选中则写入判断因子“no”
Else: Print #1, "yes" '未选中则写入判断因子“yes”
续表二
10.用同样的方法制作一个“标注”的按钮，其域代码为“{MacroButton插入不标注符号标注}”，选择刚插入的第二个域，按Alt+F9，选择择最后一项“不标注”，按F3，把“不标注”转换为“”，把“标注”转换为“”，再按一次Alt+F9
11.使二按钮合二为一，相互调用，选域符号“”，按Alt+F3，输入“不标注”，然后选“是”。用同样的方法，选“”，按Alt+F3，输入“标注”，然后选“是”
Private Sub userform_activate() '激活窗体，使得初始运行时窗口中即显示内容
显示笑话
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '通过其它途径关闭窗体时结束
五、老师评语
老师签名：日期：成绩：
实
验
报
告
姓名：mumu
学号：09管11
专业：市场营销
班级：09管11
课程：高级办公软件
徐州师范大学管理学院
《高级办公软件》课程实验报告
实验序号
实验四
实验名称
Word宏与自动图文集
指导老师
实验地点
2#-324
实验日期时间
2011.11.4
一、实验目的及要求
1.当每次启动Word时将自动弹出一窗口,随机地显示一条笑话，让word讲笑话
（二）word自动图文集：生成与
1.建内容为和的两个自动图文集，选择〖插入〗→〖符号〗，在“字体”列表中选择“Wingdings”在找到插入文档空白中
2.将分别保存在“自动图文集”中：选择“”，按Alt+F3，为自动图文集的词条命名为“不标注”。用相同的方法为“”建立一个自动图文集，名字为“标注”
3.在文档中删除上述二个符号
End If
Close #1
End '关闭窗体
End Sub
7.编写进入、离开窗体时、单击“下一条”、“关闭”等按钮时的事件过程
Private Sub CommandButton1_Click()
显示笑话
End Sub
Private Sub CommandButton2_Click()
结束
End Sub
6.单击菜单“视图→代码”
Sub显示笑话()
Dim line$(500) '定义笑话文件的最大行数
Open“d:\xiaohua.d2" For Input As #1 '打开笑话文件
Do While Not EOF(1)
N = N + 1
Input #1, line$(N) '读入笑话内容到变量
Loop
err:
End Sub
Sub笑话()
Xiaohua.Show 'xiaohua为第一步中建立的窗体名称
End Sub
9.录入完毕后关闭Visual Basic窗口返回到Word。为了能方便的运行这个宏，把它添加为菜单命令，单击“工具→自定义”，选择“命令”选项卡，在“类别”框中找到“宏”，将右边的“命令”框中“Normal.NewMacros.笑话”拖入菜单“工具”中，并对拖入的命令点右键，在“命名”文本框中重命名为“开心一刻”。
2.word自动图文集：生成与
3,完成老师布置的任务，掌握当堂课的内容
二、实验环境
Windows xp、MS Office 2003
三、实验内容与步骤
（一）当每次启动Word时将自动弹出一窗口,随机地显示一条笑话
1.启动Word，单击菜单“工具→宏→Visual Basic编辑器”,切换到Visual Basic编辑器窗口，单击菜单“插入→用户窗体”，系统建立一个默认样式的用户窗体。