WORD2016 VBA录制宏、编辑宏与优化宏--手把手教程之三

--手把手教程之三

目录

1. 录制宏 (2)

2. 如何运行宏 (10)

3. 修改录制的宏代码 (11)

4. 优化宏代码 (12)

5. 深入了解VBA (14)

1、代码窗口 (14)

2、如何打开代码窗口 (14)

3、窗口部件 (15)

4、关于通用声明部分 (15)

5、对程序代码的解说 (17)

6、WORD DOCUMNT 对象的三个重要事件 (17)

--手把手教程之三

1. 录制宏

本节重点：

1、熟悉录制宏的基本操作方法；

2、了解字体格式设置的VBA程序代码；

3、了解段落格式设置的VBA程序代码。

编写程序代码，对于初入VBA的新手来说，往往是感到无从下手，那么多语句、语法及名目繁多的各种参数，秆头万绪，一团乱麻，无法理清。但你不用担心，WORD VBA给我们提供了一个极其方便的工具—录制宏。录制宏的作用就是把我们对WORD的操作自动转换成VBA程序代码，这样不仅省去了我们编写代码的时间，更主要的是使我们知道每一个操作所对应的程序代码和应该设置那些参数，从而使我们的学习效率大大提高。下面我们就来开始学习怎样录制宏的打操作。

如果无法确定要使用的 Visual Basic 方法或属性，可打开宏录制器并进行手动操作。宏录制器会将操作译成 Visual Basic 代码。录制操作完成后，可根据需要修改代码。

实例1、我们的要求是这样的，对全文档中的字体设置为：华文细黑，粗体，12号（小四号）；段落设置为：首行缩进2字符，行距1.5，段前12磅，段后12磅。操作步骤如下：

1、在“开发工具”菜单上，指向“录制宏”，然后单击“录制宏”，打开录制宏面板，如图1-1、图1-2所示。

图1-1 录制宏按钮

图1-2

2、默认宏的名称是：宏1、宏2、宏3……，如果需要，可更改默认的宏名称，在本例中我们把宏的名称改为“Ourexample ”然后单击“确定”启动录制器。

3、回到开始菜单，同时按下Ctrl+A 键，全选择文档

4、在“字体”工具栏上，点击右下角的小箭头，打开字体设置面板，把字体设置为：华文细黑，粗体，12号（小四号），然后单击“确定”。

5、在“段落”菜单上，工具栏上，点击右下角的小箭头，打开段落设置面板，把段落设置为：首行缩进2字符，行距1.5，段前12磅，段后12磅，然后单击“确定”。

录制宏按钮

6、录制结束，千万别忘了在工具栏上点击“停止录制”按钮。停止录制宏哟，点“停止录制”而非关闭“停止录制宏”工具栏，如图1-4所示，否则，要绕些小圈子了。

图1-3

图1-4 字体格式设置面板

图1-5 段落格式设置面板

停止录制宏按钮

图1-6 停止录制宏按钮

在上图的录制宏对话框中，我们可以自定义宏名，将宏指定到工具栏或者键盘上，保存宏的位置（作用范围），如果是“所有文档（Normal.dot）”，则它是全局的宏，可以为所有文档所调用，是公共的宏；如果是本文档，则是私有的，仅作用于当前文档。同理，如果我们指定在工具栏或者键盘中，如果是“所有文档（Normal.dot）”，则该工具栏作用于所有WORD 文档，反之则仅作用于当前文档，其它文档中将不会出现此宏、工具栏或者键盘快捷键。

好，我们进入 VBE，你可以使用 ALT+F8，在宏位置中为当前文档，找到该宏名，点右侧的“编辑”命令，或者直接 ALT+F11 ，找到该文档的工程资源管理器，双击“NewMacros"模块，则在右侧的代码窗口中，会看到以下代码，如图1-7所示。

点这里可以查看宏代码

村夫把它注释一下（如果在 VBE 代码窗口中，我们将光标位于代码中或者选定某个关键字，按下 F1 ，会出现详细的 VBA 帮助），以使大家更快地明白它的意思：

Sub Ourexample()

' Ourexample 宏

' 该宏由黄山村夫于2020年2月26日录制

Selection.WholeStory ' 全选文档，相当于按下Ctrl+A

With Selection.Font '对选定文字

.NameFarEast = "华文细黑" '东亚字体

.NameAscii = "华文细黑" '设置拉丁文（字符代码从 0（零）到127 的字符）所用的字体

.NameOther = "Tahoma" '设置字符代码从 128 到 255 的字符的字体

.Name = "华文细黑" '字体名称

.Size = 12 '字号 12就是"小四"号字

.Bold = True '粗体

.Italic = False '非斜体

.Underline = wdUnderlineNone '无下划线

.UnderlineColor = wdColorAutomatic '下划线颜色自动

.StrikeThrough = False '无删除线格式

.DoubleStrikeThrough = False '无双删除线格式

.Outline = False '无镂空格式

.Emboss = False '无阳文格式

.Shadow = False '无阴影格式

.Hidden = False '不隐藏文字

.SmallCaps = False '不小型大写字母

.AllCaps = False '不全部字母大写

.Color = wdColorAutomatic '自动字体颜色

.Engrave = False '不阴文

.Superscript = False '不上标

.Subscript = False '不下标

.Spacing = 0 '字符间距

.Scaling = 100 '不缩放

.Position = 0 '正常位置

.Kerning = 1 '最小字号

.Animation = wdAnimationNone '无动态效果

.DisableCharacterSpaceGrid = False '不忽略选定文本每行中的字符数

.EmphasisMark = wdEmphasisMarkNone '不设置着重号