WODR宏与自动图文集.ppt

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