1、2018/4/12,1,一、Word的宏二、自动图文集三、综合应用实例,Word宏与自动图文集,2018/4/12,第04讲宏与自动图文集,2,一、Word的宏,在你使用Word编辑文档时，如果你希望让Word自动完成某些操作，可以使用Word提供的自动化工具Word宏。比如，在一段时间内，你可能需要使用Word多次编辑同一篇文章，你可能希望一经启动Word就自动打开该篇文档。而且再次打开该文档时，非常希望Word能够自动将插入点移动到上次关闭该文档时插入点所在的位置。这时，你尽管请Word自动宏来帮忙好了。,2018/4/12,第04讲宏与自动图文集,3,1.什么是Word宏,如果需要在Wo
2、rd中反复进行某项工作，就可以考虑利用宏来自动完成这项工作。Word中的宏是一系列组合在一起的Word命令和指令，它们形成了一个命令，以实现任务执行的自动化。你可以创建并执行宏(宏实际上就是若干条自定义的命令VBA)，以替代人工进行的一系列费时而单调的重复性Word操作，自动完成所需任务。,2018/4/12,第04讲宏与自动图文集,4,在默认情况下，Word将宏存储在Normal模板内，这样每个Word文档都可以使用它。如果需在单个文档中使用宏，则可以将宏存储在该文档中。,2018/4/12,第04讲宏与自动图文集,5,2.Word提供的自动宏,在创建宏时，通过为一个宏赋予某个特殊的名称，就
3、可以在执行某项操作(如启动Word或打开一个文档)时自动运行它，该类宏被称为自动宏( Word提供的自动宏及其运行条件见下表1)与其他宏一样，自动宏也可以保存于Normal模板、其他模板或文档之中。但是要让自动宏自动运行，则它必须位于活动文档的Normal模板中，或活动文档选用的模板中。,2018/4/12,第04讲宏与自动图文集,6,2018/4/12,第04讲宏与自动图文集,7,AutoExec宏是个例外，它只有存储于Normal模板、通过“模板和加载项”对话框全局加载的模板、或由“Startup”文件夹指定的文件夹中的全局模板中，才可自动运行。说明：在命名冲突的情况下(多个自动宏名相同)
4、，Word将运行上下文中最近的自动宏。,2018/4/12,第04讲宏与自动图文集,8,如果不希望运行自动宏，这时请按住Shift键就可以终止自动宏的运行。具体方法:单击“文件”“新建”，然后按住Shift键，单击“确定”按钮，并且在显示新文档之前一直按住Shift键。如果运行一个宏时有可能触发自动宏，可用下列指令终止自动宏的运行：WordBasic.DisableAutoMacros,2018/4/12,第04讲宏与自动图文集,9,3.创建需要的自动宏,在Word提供的五个自动宏中，AutoExec宏会在每次启动Word时被自动执行，所以我们只要赋予该宏打开上次编辑文档的功能，则可实现让Wo
5、rd启动后自动打开最近编辑过的文档了。创建该AutoExec宏的步骤如下：,2018/4/12,第04讲宏与自动图文集,10,1.单击“工具”“宏”“录制新宏”，在“宏名”框中键入宏的名称，在此我们键入“AutoExec”。在“将宏保存在”框中，单击要用来保存宏的模板或文档，自然我们应选择“所有文档(Normal.dot)”；在“说明”框中，键入对宏的简单说明(如图1)。,2018/4/12,第04讲宏与自动图文集,11,2018/4/12,第04讲宏与自动图文集,12,2.如果不想将宏指定到工具栏、选单或快捷键上，请单击“确定”按钮开始录制宏。如果要将宏指定到工具栏或选单上，请单击“工具”“
6、自定义”“命令”选项卡，再单击“命令”框中正在录制的宏，并将其拖动到所需的工具栏或选单中，单击“更改所选内容”按钮，在“命名”框中输入一个易于记忆的名字，按下回车键，按“关闭”按钮开始录制宏。,2018/4/12,第04讲宏与自动图文集,13,如果要给宏指定快捷键，请单击“键盘”按钮，然后单击“命令”框中正在录制的宏，在“请按新快捷键”框中键入所需快捷键，再单击“指定”按钮，按“关闭”按钮开始录制宏。,2018/4/12,第04讲宏与自动图文集,14,当然对于自动宏来说，加到工具栏或选单中，或者指定快捷键并不重要，但对于一般的宏而言却是提供简便运行方式的好方法。,2018/4/12,第04讲宏
7、与自动图文集,15,3.单击以打开“文件”下拉选单列表，然后在选单中列出的最近使用过的文件列表中，单击第一个文件(如图2)。如果“文件”选单中未列出最近使用过的文件，请单击“工具”“选项”“常规”“列出最近所用文件”复选框，然后在“个”框中输入需要在“文件”选单中显示最近用过的文档的个数，单击“确定”按钮。,2018/4/12,第04讲宏与自动图文集,16,2018/4/12,第04讲宏与自动图文集,17,4.指向“工具”“宏”，单击“停止录制”命令，或者单击录制宏工具栏中的“停止录制”按钮。,2018/4/12,第04讲宏与自动图文集,18,这之后，只要启动Word，则系统会自动打开上次退出
8、Word时最后编辑的文档，但插入点并没有移到上次关闭该文档时插入点所在的位置。,2018/4/12,第04讲宏与自动图文集,19,我们应再创建一个AutoOpen宏，并赋予该宏插入点移到上一编辑处的功能。宏的录制过程是：重复上述1、2步骤，不过需要把其中的“AutoExec”改为“AutoOpen”，然后按下Shfit+F5组合键，该组合键的作用就是把插入点移到上一编辑位。最后，单击录制宏工具栏中的“停止录制”按钮，以结束宏录制工作。,2018/4/12,第04讲宏与自动图文集,20,4.编辑宏,实际上，如果Word文档中已存在AutoExec或AutoOpen宏，在不想以新录制的宏替换原有宏
9、的情况下，我们只需对原有的这两个宏进行编辑，在宏中增加相应的指令即可。编辑AutoExec宏的方法是：单击“工具”“宏”，在“宏的位置”下拉列表框中，选择“所有的活动模板和文档”；在“宏名”列表框中，单击“AutoExec”宏，然后单击“编辑”按钮，打开“MicrosoftVisualBasic”编辑窗口。,2018/4/12,第04讲宏与自动图文集,21,在“代码窗口”，于Autonew宏中，加入如下指令：RecentFiles(1).Open同理，也可在AutoOpen宏中，加上如下一行指令：Application.GoBack单击“文件”“保存Normal”保存对该宏的修改。,2018/
10、4/12,第04讲宏与自动图文集,22,5.删除宏,单击“工具”“宏”，在“宏的位置”下拉列表框中，选择要删除的宏所在的位置，在“宏名”列表框中，单击要删除的宏，然后单击“删除”按钮。系统弹出一个对话框，询问“是否删除宏？”，单击“是”按钮，则选中的宏被删除。,2018/4/12,第04讲宏与自动图文集,23,例一：利用宏自动删除回车符和空行,对于网上的一些资料，直接通过复制、粘贴到Word文档中，这时会发现有很多空格和人工分行符，手工删除十分麻烦。那么可以通过在Word中录制宏，通过宏操作，删除所有空格和人工分行符，并进行重新排版。,2018/4/12,第04讲宏与自动图文集,24,1）录制
11、你自己的宏,(1)运行Word，并新建一个文件。打开“工具”菜单栏，选择“宏”，在二级菜单中选择“录制新宏”。(2)出现“录制宏”对话框，随便为宏取个名按“确定”即可，这时会出现一个悬浮的“停止录”工具，宏录制就已经开始了。(3)打开“编辑”菜单栏，选择“替换”，出现“查找和替换”对话框。,2018/4/12,第04讲宏与自动图文集,25,(4)用鼠标在“查找内容”栏内点一下，再点击“高级”，再按“特殊字符”，选择两次“手动换行符”，在“替换为”栏内选“特殊字符”的“段落标志”，再选全部替换，点击“确定”。在“查找内容”栏内，选“高级”，再按“特殊字符”，选择一次“手动换行符”，用鼠标在“替换
12、为”栏内点一下。删除里面的全部内容，什么都不输入，再点“全部替换”，点击“确定”。(先保留段落标志，再将段内的人工分行符清除),2018/4/12,第04讲宏与自动图文集,26,(5)紧接着，用鼠标在“查找内容”栏内点一下，输入一个空格。用鼠标在“替换为”栏中点一下，删除里面的全部内容，什么都不输入。再点击“全部替换”，点击“确定”。(删除所有的空格),2018/4/12,第04讲宏与自动图文集,27,(6)关闭“替换”对话框，在“编辑”菜单栏中选“全选”，再在“格式”中选“段落”，打开“段落”对话框，在“缩进和间距”的“特殊格式”选“首行缩进”，“度量值”为两个字符。在字体中选“宋体”、字号
13、中选“小四号字”。这一步骤是设置字体、字号和进行排版。(7)在悬浮的“停止录”工具条上按“停止”钮，到此宏录制的工作结束。,2018/4/12,第04讲宏与自动图文集,28,2.制作自定义快捷按钮(1)打开“工具”菜单栏，选择“自定义”。出现“自定义”对话框，点击“命令”选项。在“类别”栏内找到“宏”，选中它，然后再选中“命令”栏中刚刚录制的宏。(2)按住鼠标左键，将它拖放到工具栏上可以放置的位置，松开左键。这时在工具栏上就增加了这一刚刚录制的宏按钮。,2018/4/12,第04讲宏与自动图文集,29,(3)不要关闭“自定义”对话框，在“更改所选内容”上选“更改按钮图标”，从出现的图标中选中一
14、个自己喜欢的图标。再在“更改所选内容”选“默认样式”，关闭“自定义”对话框，这样就形成一个和Word工具栏其他快捷按钮一样的自定义按钮。以后只要打开Word就能处理文本，把网上复制的内容粘贴到Word上，然后按下自定义的宏按钮，全部搞定。,2018/4/12,第04讲宏与自动图文集,30,例二：编写Word宏轻松将全角数字转换为半角,如果我们需要把Word文档中的全角数字全部改为半角数字，手头又没有合适的转换软件，应该怎么做呢？除了用第01讲中介绍的方法外，也可以编制一个“宏”来自动处理。1.执行“工具”“宏”“录制新宏.”，在“宏名”框中输入“数字全角转半角”，确定，将出现一个“录制宏”工具
15、栏，关闭。,2018/4/12,第04讲宏与自动图文集,31,2.执行“工具”“宏”“宏.”，选择“数字全角转半角”，单击“编辑”按钮，打开vba编辑窗口，录入代码结果如下: Sub 数字全角转半角() 使用前需先选中要替换的区域 Dim qjsz, bjsz As String, i As Integer 定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型 qjsz = ,2018/4/12,第04讲宏与自动图文集,32,bjsz = 0123456789 For i = 1 To 10 循环10次 With Selection.Find .Text = Mid(qjsz,
16、 i, 1) mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字 .Replacement.Text = Mid(bjsz, i, 1) 将用于替换的相应位置的半角数字 .Format = False 保留替换前的字符格式,2018/4/12,第04讲宏与自动图文集,33,.Execute Replace:=wdReplaceAll 用半角数字替换全角数字 End With Next i End Sub3.关闭vba编辑窗口，选中要改变数字格式的文字区域，执行“工具”“宏”“宏.”“数字全角转半角”。,2018/4/12,第04讲宏与自动图文集,34,例三:中英文标点互
17、换,目标:将文档中的英文标点一次性转换为对应的中文标点，或者将文档中的中文标点一次性转换为对应的英文标点。代码：Sub ToggleInterpunction()中英文标点互换 Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As String Dim msgResult As VbMsgBoxResult, N As Byte 定义一个中文标点的
18、数组对象,2018/4/12,第04讲宏与自动图文集,35,ChineseInterpunction = Array(。, ，, ；, ：, ？, ！, , -, , （, ）, , ) 定义一个英文标点的数组对象 EnglishInterpunction = Array(., , ;, :, ?, !, , -, , (, ), ) 提示用户交互的MSGBOX对话框msgResult = MsgBox(您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!, _ vbYesNoCancel) Select Case msgResult Case vbCancel Exi
19、t Sub 如果用户选择了“取消”按钮,则退出程序运行 Case vbYes 如果用户选择了“是”,则将中文标点转换为英文标点,2018/4/12,第04讲宏与自动图文集,36,myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = “(*)” strRep = 1“Case vbNo 如果用户选择了“否”,则将英文标点转换为中文标点 myArray1 = EnglishInterpunction myArray2 = ChineseInterpunction strFind = (*) strRep
20、= “1” End Select Application.ScreenUpdating = False 关闭屏幕更新 For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环 With ActiveDocument.Content.Find .ClearFormatting 不限定查找格式 .MatchWildcards = False 不使用通配符 查找相应的英文标点,替换为对应的中文标点 .Execute findtext:=myArray1(N),2018/4/12,第04讲宏与自动图文集,37,replacewith:=myAr
21、ray2(N), Replace:=wdReplaceAll End With Next With ActiveDocument.Content.Find .ClearFormatting 不限定查找格式 .MatchWildcards = True 使用通配符 .Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll End With Application.ScreenUpdating = True 恢复屏幕更新End Sub例题文件：中英标点互换.doc,2018/4/12,第04讲宏与自动图文集,38,
22、例四：让ord开口说话,目标：当每次启动Word时将自动弹出一窗口,随机地显示一条笑话。“Word讲笑话”的面板中一共有三个按钮，点击“下一条”可继续阅读其它笑话，点击“关于”可显示作者和帮助信息，点击“关闭”将关闭窗口。面板中还有一个复选框，可以让用户自由决定下次启动Word时是否显示笑话。,2018/4/12,第04讲宏与自动图文集,39,1.建立窗体,窗体是窗口和对话框的统称，它是Windows应用程序的用户界面的基础部分。窗体是控件的容器，用来放置文本框、命令按钮、复选框等各种控件。 （1）启动Word，单击菜单“工具宏Visual Basic编辑器”，也可以按快捷键Alt+F11，切
23、换到Visual Basic编辑器窗口。,2018/4/12,第04讲宏与自动图文集,40,（2）单击菜单“插入用户窗体”，系统建立一个默认样式的用户窗体。对窗体可拖动其右、下边的小方框来可改变大小，本例中根据功能需要将窗体拖为扁长形状。 （3）单击菜单“视图属性窗口”，在属性窗口中修改窗体的几个主要属性值。在属性列表中选定“名称”属性，输入“Xiaohua”，然后选定“Caption”属性，输入“开心一刻”。现在，我们便能看到一个标题为“开心一刻”的窗体了。,2018/4/12,第04讲宏与自动图文集,41,提示：窗体中的点状物称为“网格”，它能在建立控件时起位置参考和智能对齐的作用，单击菜
24、单“工具选项”，选择“通用”选项卡，可修改网格的选项和网格块的大小，建议使用较小的网格设置，这样能使控件更靠近窗体边缘的位置，以达到美观的效果。,2018/4/12,第04讲宏与自动图文集,42,1.建立控件,建立了窗体就相当于打好了地基，下一步的工作就是建立控件。常用控件包括文本框、命令按钮、标签、复选框、滚动条等。建立控件的方法很简单，单击菜单“视图工具箱”调出工具箱，在“工具箱”中选择控件类型，然后在窗体上单击或拖动即可。,2018/4/12,第04讲宏与自动图文集,43,2018/4/12,第04讲宏与自动图文集,44,1、创建文本框：在“工具箱”中选择“AB|”样式的按钮，在窗体上拖
25、动建立一个文本框，并用鼠标调整其位置、大小，若需精确调整，也可在属性窗口中调整“Height”、“Width”等属性值。很关键的一点是要将“MultiLine”属性值设为“True”，它的作用是使文本框能显示多行文本。 2、创建命令按钮：在“工具箱”中选择命令按钮（鼠标悬停会显示“命令按钮”字样），在窗体上的文本框右边拖动建立一个命令按钮，调整好大小并修改其“Caption”属性值为“下一条”，接着依次建立“关闭”、“关于”按钮。,2018/4/12,第04讲宏与自动图文集,45,3、创建复选框：在“工具箱”中选择复选框按钮，在窗体上的文本框下方单击鼠标左键，便创建了一个复选框，修改其“Cap
26、tion”属性值为“下次启动时不显示”。 4、创建标签：可在窗体的空余部分以“标签”的形式显示作者等信息。 提示：为了使窗体、控件看起来更美观、协调，可以使用“格式”菜单下的“统一尺寸”命令项使按钮大小相同，使用“对齐”、“水平间距”、“垂直间距”等命令项，使各控件均匀、合理的布置在窗体中。,2018/4/12,第04讲宏与自动图文集,46,3.编写代码,上面建立的窗体和控件还只是“徒有其表”，因为还没有为各个控件赋予具体的功能，接下来就需要编写VBA代码 ，通过代码告诉各控件在什么情况下该执行什么任务。编写代码的方法是：单击菜单“视图代码”或按F7键，即切换到代码窗口，可在代码窗口的声明部分
27、（顶端空白区域）开始录入代码。,2018/4/12,第04讲宏与自动图文集,47,2018/4/12,第04讲宏与自动图文集,48,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 Close #1 Randomize num = Int(N * Rnd + 1) 产生随机数 Do While line$(num) = 识别并忽略空行 num = num +
28、1 If num = N + 1 Then num = 1 Loop TextBox1.Text = & line$(num) 显示笑话内容End Sub,2018/4/12,第04讲宏与自动图文集,49,Sub 结束() Open “d:xiaohua.d1 For Output As #1 If CheckBox1.Value = True Then 结束前检查是否选中复选框 Print #1, no 若选中则写入判断因子“no” Else: Print #1, yes 未选中则写入判断因子“yes” End If Close #1 End 关闭窗体End Sub,2018/4/12,第0
29、4讲宏与自动图文集,50,提示： （1）上面的笑话文件d:xiaohua.d2是一个纯文本文件，需事先用记事本录入保存，在录入或维护时要求每条笑话独占一行（不回车换行），两条笑话之间可插入一个或多个空行，笑话文件的总行数不能超过定义的最大行数。 （2）文件d:xiaohua.d1也是一个纯文本文件，其作用是被用来放置判断因子，后续步骤中的宏代码将根据此文件中的判断因子来决定是否在启动Word时显示笑话。此文件不需手工建立，由程序自动生成。,2018/4/12,第04讲宏与自动图文集,51,接下来要编写进入、离开窗体时、单击“下一条”、“关闭”等按钮时的事件过程，当发生事件时将调用公用的Sub过
30、程来执行功能。代码如下：,2018/4/12,第04讲宏与自动图文集,52,Private Sub CommandButton1_Click()显示笑话End SubPrivate Sub CommandButton2_Click()结束End SubPrivate Sub userform_activate() 激活窗体，使得初始运行时窗口中即显示内容显示笑话End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 通过其它途径关闭窗体时结束结束End SubPrivate Sub Comm
31、andButton3_Click()MsgBox WORD讲笑话由徐州师范大学管理学院编 2006.10End Sub,2018/4/12,第04讲宏与自动图文集,53,提示：这一部分代码可以紧接第一部代分码连续录入，也可在代码窗口的“对象框”、“过程/事件框”中分别选择对象和事件，然后在自动给出的Private Sub与Sub之间输入要调用的Sub过程名，这样减轻了录入量，并减少了出错的可能性。,2018/4/12,第04讲宏与自动图文集,54,4.完善功能,完成上面三步便初具规模了，窗体已经能够运行，但复选框的作用还不能发挥出来。接下来通过创建宏来完善窗体功能。 创建宏的方法是：单击菜单“
32、工具宏”，在“宏名”文本框中输入宏名“Autoexec”，接着单击“创建”，录入完成以下代码：,2018/4/12,第04讲宏与自动图文集,55,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 SubSub 笑话() Xiaohua.Show
33、 xiaohua为第一步中建立的窗体名称End Sub,2018/4/12,第04讲宏与自动图文集,56,录入完毕后关闭Visual Basic窗口返回到Word。以上代码创建两个宏，Autoexec宏是一个自动宏，它在Word启动时自动运行，并根据读取的判断因子来决定是否运行窗体。名为“笑话”的宏则无条件运行xiaohua窗体，为了能方便的运行这个宏，我们可把它添加为菜单命令，方法是：单击“工具自定义”，选择“命令”选项卡，在“类别”框中找到“宏”，将右边的“命令”框中“Normal.NewMacros.笑话”拖入菜单“工具”中，并对拖入的命令点右键，在“命名”文本框中重命名为“开心一刻”。
34、,2018/4/12,第04讲宏与自动图文集,57,至此，全部工作完成。当Word启动时就能看到笑话了，平时要阅读笑话时，单击菜单“工具开心一刻”即可。若选中了“下次启动时不显示”复选框，以后也可随时使用它的菜单命令来恢复显示。,2018/4/12,第04讲宏与自动图文集,58,2018/4/12,第04讲宏与自动图文集,59,二、word自动图文集功能,自动图文集具有和自动更正相似的功能，但自动图文集需要得到用户的确定后才可执行某命令，这是与自动更正的不同之处，它们各有优缺点。下面将具体讨论自动图文集的使用。,2018/4/12,第04讲宏与自动图文集,60,1. 插入自动图文集词条,Wor
35、d 自动给用户创建了不少自动图文集词条。图文集词条有两种：一种是词条的内容和词条名相同，另一种是词条内容和词条名不同。下面首先介绍如何插入自动图文集词条。（1）在工具栏中单击右键，在弹出的快捷菜单中选择【自动图文集】，以显示【自动图文集】工具栏。（2）在工具栏中单击【所有词条】按钮，弹出一个菜单，菜单中列出了现有的自动图文集。,2018/4/12,第04讲宏与自动图文集,61,（3）可以根据需要从各组中选择需要的词条，如从【问候/复信用语】直接选择【分手多日，近况如何】，使书写的信件即方便快捷，又文雅秀丽。如果在文档中输入了已经存在于自动图文集中的词条的头两个字时，该单词的上方就出现整个词条的
36、内容，只需按Enter 键，即可把整个词条插入到文档中，如：要输入“纸短情长，再祈珍重”，只需输入“纸短”后按Enter 键即可，如图3 所示。,2018/4/12,第04讲宏与自动图文集,62,图3注意：这种问候语需要在句首输入才有提示。,2018/4/12,第04讲宏与自动图文集,63,还有一种办法插入自动图文集词条，就是把光标移到要插入词条的地方后单击【工具】菜单中的【自动更正】命令，在弹出的【自动更正】对话框中单击【自动图文集】选项卡，在【自动图文集】选项卡中选择要插入的词条，单击【插入】按钮即可，如图4所示。,2018/4/12,第04讲宏与自动图文集,64,图4注意：选中如图 中的
37、【自动图文集】选项卡的第一个复选框，在输入某个词条的头两个字时才会出现如上图 所示的提示。,2018/4/12,第04讲宏与自动图文集,65,2. 创建自动图文集词条,可以定义自己的自动图文集，创建图文集词条的步骤为：（1）在文档中选中需要创建自动图文集的词条，例如：选中“服务有价，信誉无价”。（2）单击【工具】菜单的【自动更正】命令，打开【自动更正】对话框，并选择【自动图文集】选项卡，如图5所示。,2018/4/12,第04讲宏与自动图文集,66,图5提示：如把名称取为“ fwyj ”,要在文档中插入“服务有价，信誉无价”，只需输入“ fwyj ”，然后按F3 键就可以把“fwyj”换为“服
38、务有价，信誉无价”。,2018/4/12,第04讲宏与自动图文集,67,（3）在【请在此键入“自动图文集”词条】文本框中输入自动图文集词条名，如输入“fwyj”。当然，也可以把词条名定为与内容相同。（4）单击【添加】按钮即可。,2018/4/12,第04讲宏与自动图文集,68,就像创建自动更正词条一样，也可以为图片创建自动图文集词条，步骤如下：（1）在文档中选择要创建图文集词条的图片。（2）单击“自动图文集”工具栏上的“新建(N)”，在如图6所示的文本框中输入该图片的词条名(如tp)后，单击【添加】即可。,2018/4/12,第04讲宏与自动图文集,69,图6,2018/4/12,第04讲宏与
39、自动图文集,70,3. 修改自动图文集词条,如果经常用到自动图文集，就有可能需要修改某个自动图文集词条，这里修改词条是指在词条名不变的情况下修改词条的内容。改变词条与创建新词条相似，不是直接编辑它，而是用新内容替代它。,2018/4/12,第04讲宏与自动图文集,71,例如,将刚才用“fwyj”定义的词条内容“服务有价，信誉无价” 改为“不变的贴心服务”，可以先选中“不变的贴心服务”词条，打开“自动更正”“自动图文集”对话框中，再从列表框中选择词条名“fwyj”。单击【添加】按钮，将打开一个消息框，该消息框询问是否重新定义自动图文集词条，单击【是】按钮后即可修改自动图文集词条的 内容。,201
40、8/4/12,第04讲宏与自动图文集,72,4. 删除自动图文集词条,删除某个自动图文集词条的步骤如下：（1）打开如图7所示的对话框。（2）从列表框中选择需要删除的自动图文集词条名。（3）单击【删除】按钮。,2018/4/12,第04讲宏与自动图文集,73,图7,2018/4/12,第04讲宏与自动图文集,74,5.重命名自动图文集词条,重命名自动图文集词条的步骤如下：（1）单击【工具】菜单中的【模板和加载项】命令，打开如图 8所示的【模板和加载项】对话框。（2）在图8 中单击【管理器】按钮，打开【管理器】对话框，并选择【自动图文集】选项卡，如图9所示。（3）从选项卡左边的列表框中选择要重命名
41、的自动图文集词条名，例如选择“创建日期”。,2018/4/12,第04讲宏与自动图文集,75,2018/4/12,第04讲宏与自动图文集,76,图9,2018/4/12,第04讲宏与自动图文集,77,（4）单击【重命名】按钮，打开【重命名】对话框。（5）在【重命名】对话框中输入新的名字，如day，单击【确定】按钮即可。,2018/4/12,第04讲宏与自动图文集,78,三、综合应用实例,目标：某公司的日常工作使用的传真文档中，包括公司的微标、名称以及传真标题等，请制作一模板，将固定的文字内容与固定的排版格式放入模板中，公司员工使用时，既提高了工作效率，以可以统一公司文档的格式，保持良好的公司形
42、象。如图10所示：,2018/4/12,第04讲宏与自动图文集,79,图10,2018/4/12,第04讲宏与自动图文集,80,制作关键点提示,关于按钮的制作1.建内容为和的两个自动图文集选择插入 符号，在“字体”列表中选择“Wingdings”在找到插入文档空白中将分别保存在“自动图文集”中：选择“”，按Alt+F3，为自动图文集的词条命名为“不标注”。用相同的方法为“”建立一个自动图文集，名字为“标注”在文档中删除上述二个符号,2018/4/12,第04讲宏与自动图文集,81,2.录制两个插入自动图文集的宏：选择“工具”“宏”“录制新宏”，输入“宏名”：“插入不标注符号”，保存在当前文件，
43、按确定。选择“插入”“自动图文集”“正文”，选“不标注”，停止录制宏。完成录制“插入不标注符号”的操作。按上述方法再录制一个“插入标注符号”的宏。,2018/4/12,第04讲宏与自动图文集,82,3.制作调用两个宏的按钮选择“插入”“域”，在“类别”中选“文档自动化”，在“域名”中选择“MacroButton”,在宏名中选“插入标注符号”，在显示文字中填入“不标注”，即域代码为“MacroButton 插入标注符号 不标注”。,2018/4/12,第04讲宏与自动图文集,83,用同样的方法制作一个“标注”的按钮，其域代码为 “MacroButton 插入不标注符号 标注”选择刚插入的第二个域
44、，按Alt+F9，选择择最后一项“不标注”，按F3，把“不标注”转换为，把“标注”转换为，再按一次Alt+F9,2018/4/12,第04讲宏与自动图文集,84,4.使二按钮合二为一，相互调用选域符号“”，按Alt+F3，输入“不标注”，然后选“是”。用同样的方法，选“”，按Alt+F3，输入“标注”，然后选“是”。,2018/4/12,第04讲宏与自动图文集,85,选择，剪切后分别复制到Urgent、For Review等前。,2018/4/12,第04讲宏与自动图文集,86,课后上机任务,1. 创建使用宏练习（模仿相应例题）2.模仿例四让ORD开口讲笑话，练习word功能的二次开发3.模仿按钮制作例题，制作按钮或三种状态的按钮。,2018/4/12,第04讲宏与自动图文集,87,思考题,1.什么是“宏”？自动宏有哪几种？各有什么作用？2.举例说明创建宏的过程。3.什么是自动图文集？有何作用 ？4.简述自动图文集的管理内容和操作方法。,
