WORD·VBA入门教程(第二课)

《WORD·VBA入门教程(第二课)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、守柔WORDVBA入门教程第9页共9页第二课：录制宏、编辑宏与优化宏上一课中，我们初步认识了VBA是什么，怎么进入VBE编辑器，以及VBE的环境设置等。本课中，我们来录制宏、编辑宏与优化宏。录制宏有两种方式，一是双击状态栏中的"录制"命令,或者鼠标单击工具宏录制新宏命令,WORD将记录下您的操作并转换为VB语言.在XP以下版本中，录制宏操作不支持鼠标操作，您可以使用键盘操作，请结合键盘加速键、键盘快捷键等进行操作，此处不再解释加速键和快捷键的含义。另外，在XP版本中，对部分右键菜单不支持的情况下，可以使用SHIFT+F10进行调用右键快捷菜单等。OK，我们选择上述方法之一，来录个一个宏，

2、我们的操作是这样的，对全文档中的字体设置为：华文细黑，粗体，12号，行距1.5,段前12磅,段后12磅，录制结束，千万别忘了停止录制宏哟，点“停止”而非关闭“停止录制宏”工具栏，否则，要绕些小圈子了。如图：在上图的录制宏对话框中，我们可以自定义宏名，将宏提定到工具栏或者键盘上，保存宏的位置（作用范围），如果是“所有文档（Normal.dot）”，则它是全局的宏，可以为所有文档所调用，是公共的宏；如果是本文档，则是私有的，仅作用于当前文档。同理，如果我们指定在工具栏或者键盘中，如果是“所有文档（Normal.dot）”，则该工具栏作用于所有WORD文档，反之则仅作用于当前文档，其它文档中将不会

3、出现此宏、工具栏或者键盘快捷键。好，我们进入VBE，你可以使用ALT+F8，在宏位置中为当前文档，找到该宏名，点右侧的“编辑”命令，或者直接ALT+F11，找到该文档的工程资源管理器，双击“NewMacros"模块，则在右侧的代码窗口中，会看到以下代码，守柔把它注释一下（如果在VBE代码窗口中，我们将光标位于代码中或者选定某个关键字，按下F1，会出现详细的VBA帮助），以使大家更快地明白它的意思：SubOurExample()'这部分说明来自录制宏对话框'OurExampleMacro'宏在2005-7-20由ILoveYou_Word!录制'"&chr(10)&"WORD-VBA专题讲座之

4、二'Selection.WholeStory'全选文档,CTRL+AWithSelection.Font'对选定文字.NameFarEast="华文细黑"'东亚字体.NameAscii="Tahoma"'设置拉丁文（字符代码从0（零）到127的字符）所用的字体.NameOther="Tahoma"'设置字符代码从128到255的字符的字体守柔WORDVBA入门教程第9页共9页.Name="华文细黑"'字体名称.Size=12'字号.Bold=True'粗体.Italic=False'非斜体.Underline=wdUnderlineNone'无下划线.UnderlineColor=wdCol

5、orAutomatic'下划线颜色自动.StrikeThrough=False‘无删除线格式.DoubleStrikeThrough=False'无双删除线格式.Outline=False'无镂空格式.Emboss=False'无阳文格式.Shadow=False'无阴影格式.Hidden=False'不隐藏文字.SmallCaps=False'不小型大写字母.AllCaps=False'不全部字母大写.Color=wdColorAutomatic'自动字体颜色.Engrave=False'不阴文.Superscript=False'不上标.Subscript=False'不下标.Spaci

6、ng=0'字符间距.Scaling=100'不缩放.Position=0'正常位置.Kerning=1'最小字号.Animation=wdAnimationNone'无动态效果.DisableCharacterSpaceGrid=False'不忽略选定文本每行中的字符数.EmphasisMark=wdEmphasisMarkNone'不设置着重号EndWithWithSelection.ParagraphFormat'对于选定内容的段落格式.LeftIndent=CentimetersToPoints(0)'左缩进为0,即无.RightIndent=CentimetersToPoints(0

7、)'右缩进为0,即无.SpaceBefore=12'段前12磅.SpaceBeforeAuto=False'不自动设置指定段落的段前间距.SpaceAfter=12'段后为12磅.SpaceAfterAuto=False'不自动设置指定段落的段后间距.LineSpacingRule=wdLineSpace1pt5'行距为1.5倍.Alignment=wdAlignParagraphJustify'段落对齐方式