Word中宏的基本应用

专题实训五

Word宏的基本应用

一、实验目的

1、了解Office宏的基础知识。

2、了解宏的创建方法。

3、了解宏的使用方法，包括运行宏、删除宏等基本操作。

二、实验内容

在文档编辑过程中，经常有某项工作要多次重复，这时可以利用Office的宏功能来使其自动执行，以提高效率。宏将一系列的Word 命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。用户可以创建并执行一个宏，以替代人工进行一系列费时而重复的操作。宏可以组合多个命令，加速日常编辑和格式设置，也使对话框中的选项更易于访问，并使一系列复杂的任务自动执行。本实验通过几个实例，了解Office宏的基本概念，练习在Word中使用宏的基本方法。

要创建宏，既可以使用宏记录器录制一系列操作，也可以在 Visual Basic 编辑器中输入Visual Basic for Applications代码来创建宏。

三、实验步骤

（一）在Word中使用宏记录器创建宏

在文档编辑时，经常需要输入符号“【】”，并在方括号中输入文字。以下我们使用宏记录器创建一个宏“cauM1”，其快捷键为“Ctrl+\”，其功能是输入符号“【】”,并将光标移至方括号中，等待用户输入其中的文字。

1.录制宏

(1)单击【工具】→【宏】→【录制新宏】命令项。打开如图5-1所示的“录制宏”对话框。

图5-1 “录制宏”对话框

(2)在“宏名”框中，键入宏的名称“cauM1”。

(3)在“将宏保存在”框中，单击将保存宏的模板或文档。在“说明”框中，键入对宏的说明。

(4)若要将要创建的宏命令，指定到工具栏或菜单，可单击“工具栏”。要给宏指定快捷键，

可单击“键盘”。如果不希望将宏指定到工具栏、菜单或快捷键，单击【确定】按钮就可以开始录制宏。本例中，我们要给创建的宏指定快捷键，故单击【键盘】按钮。打开如图5-2所示的“自定义键盘”对话框。

图5-2 “自定义键盘”对话框

(5)光标置于“请按新快捷键”文本框中，同时按下“Ctrl”和“\”键，如图5-2所示。

(6)单击【指定】按钮，快捷键“Ctrl+\”，被加至“当前快捷键”列表中。然后单击【关闭】按钮，开始录制宏。录制过程中若需要暂停录制，可以单击【停止录制】工具栏中的【暂停录制按钮】。

(7)单击【插入】→【符号】命令，打开如图5-3所示的“符号”对话框。

图5-3 “符号”对话框

(8)在【字体】下拉列表框中选择“宋体”。在对话框中选中符号“【”，单击【插入】按钮。再单击符号“】”后，单击【插入】按钮。然后单击【关闭】按钮，关闭“符号”对话框。

(9)此时光标在字符“】”后，单击向左的光标键，将光标移至符号“【”与符号“】”之间。

(10)单击【停止录制】工具栏中的【停止按钮】。至此宏“cauM1”的录制已完成。

2.运行宏

单击【工具】→【宏】→【宏】命令。在“宏名”【】框中，单击要运行的宏的名称“cauM1”。使用我们定义的快捷键“Ctrl+\”。

注意：宏可能包含病毒，因此在运行宏时要格外小心。

3、删除宏

(1)删除单个的宏

单击“工具”菜单中“宏”的“宏”项。在“宏名”框中单击要删除的宏的名称。如果该宏没有出现在列表中，可在“宏的位置”框中选择其他文档或模板。单击“删除”按钮。

(2)删除宏方案

单击在“工具”菜单中，“宏”中的“宏”。单击“管理器”按钮。在“宏方案项”选项卡上，单击要从任一列表中删除的宏方案，然后单击“删除”。

(二)使用VBA代码创建宏

本例在Word中使用VBA代码创建一个宏“cauM2”，并将其指定到【编辑】菜单中的菜单命令【查找文本次数】。该宏的功能是在一个Word文档中查找某个文本出现的总次数。

1. 使用VBA代码创建宏

(1)单击Word菜单【工具】→【宏】→【宏】，打开如图5-4所示的“宏”对话框。输入宏的名称“cauM2”，然后单击【创建】按钮。

图5-4 “宏”对话框

(2)在弹出的VisualBasic编辑器的代码窗口中完成以下内容：

Sub cauM2()'

' cauM2 Macro

' 宏在2010-8-4 由李辉创建'

Text = InputBox("请输入要查找的文本：", "查找文本次数")

With ActiveDocument.Content.Find

Do While .Execute(FindText:=Text) = True

tim = tim + 1

Loop

End With

MsgBox ("当前文档查找到" + Str(tim) + " 个" + Text), 48, "完成"

End Sub

代码窗口中显示了用户创建的所有的宏，如图5-5所示。

图5-5 Visual Basic代码窗口

(3)录入完毕后，单击【文件】→【关闭】按钮返回到Micrcsoft Word。

(4)单击菜单【工具】→【自定义】，单击“命令”选项卡，在“类别”中选择“宏”，如图5-6所示。

图5-6 “自定义”对话框

(5)将右边的“Normal.NewMacros.cauM2”命令拖入“编辑”菜单中。如图5-7所示。

图5-7 “编辑”菜单

(6)右击拖入的命令“Normal.NewMacros.cauM2”，在“命名”框中重命名为“查找文本次数”，如图5-8所示。

图5-8 重命名命令“Normal.NewMacros. cauM2”

2. 使用创建的宏统计文本数量

(1)单击【编辑】→【查找文本次数】。如图5-9所示。

图5-9 “编辑”菜单

(2)在打开的“查找文本次数”对话框中输入要查找的内容，如图5-10所示。

图5-10 输入要查找的内容

(3)单击【确定】按钮就得到统计结果。如图5-11所示。

图5-11 统计结果

（三）创建“计算器”宏

本实例使用宏将“计算器”添加到Word工具栏中，以加强Word的计算功能。

(1)单击【工具】→【宏】→【宏】命令，打开图5-4所示的“宏”对话框。

(2)在“宏名”文本框中，输入宏的名称“calc”，然后单击【创建】按钮。

(3)在打开VB代码编辑窗口中，系统会自动创建Sub Calc()过程，在过程中输入代码“Shell("Calc.exe")”。如图5-12所示。