- 1、本文档共9页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
WORD·VBA入门教程(第二课)
第二课:录制宏、编辑宏与优化宏上一课中,我们初步认识了VBA是什么,怎么进入VBE编辑器,以及VBE的环境设置等。本课中,我们来录制宏、编辑宏与优化宏。录制宏有两种方式,一是双击状态栏中的录制命令,或者鼠标单击工具\宏\录制新宏命令,WORD将记录下您的操作并转换为VB语言.在XP以下版本中,录制宏操作不支持鼠标操作,您可以使用键盘操作,请结合键盘加速键、键盘快捷键等进行操作,此处不再解释加速键和快捷键的含义。另外,在XP版本中,对部分右键菜单不支持的情况下,可以使用SHIFT+F1进行调用右键快捷菜单等。OK,我们选择上述方法之一,来录个一个宏,我们的操作是这样的,对全文档中的字体设置为:华文细黑,粗体,12号,行距1.5,段前12磅,段后12磅,录制结束,千万别忘了停止录制宏哟,点“停止”而非关闭“停止录制宏”工具栏,否则,要绕些小圈子了。如图:在上图的录制宏对话框中, 我们可以自定义宏名, 将宏提定到工具栏或者键盘上, 保存宏的位置(作用范围), 如果是“所有文档(Normal.dot)”, 则它是全局的宏, 可以为所有文档所调用, 是公共的宏; 如果是本文档, 则是私有的, 仅作用于当前文档。 同理, 如果我们指定在工具栏或者键盘中, 如果是“所有文档(Normal.dot)”, 则该工具栏作用于所有WORD 文档, 反之则仅作用于当前文档, 其它文档中将不会出现此宏、 工具栏或者键盘快捷键。 好, 我们进入 VBE, 你可以使用 ALT+F8, 在宏位置中为当前文档, 找到该宏名, 点右侧的“编辑” 命令, 或者直接 ALT+F11 , 找到该文档的工程资源管理器, 双击“NewMacros模块, 则在右侧的代码窗口中, 会看到以下代码, 守柔把它注释一下(如果在 VBE 代码窗口中, 我们将光标位于代码中或者选定某个关键字, 按下 F1 , 会出现详细的 VBA 帮助),以使大家更快地明白它的意思: Sub OurExample()
这部分说明来自录制宏对话框 OurExample Macro
宏在 2005-7-20 由 I Love You_Word! 录制 chr(10)WORD-VBA专题讲座之二 Selection.WholeStory全选文档,CTRL+A With Selection.Font 对选定文字 .NameFarEast = 华文细黑 东亚字体 .NameAscii = Tahoma 设置拉丁文(字符代码从 0(零) 到 127 的字符)所用的字体 .NameOther = Tahoma 设置字符代码从 128 到 255 的字符的字体 .Name = 华文细黑 字体名称 .Size = 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 不设置着重号 End With
With Selection.ParagraphFormat对于选定内容的段落格式 .LeftIndent = CentimetersToPoints(0)左缩进为 0,即无 .RightIndent = CentimetersToPoints(0)右缩进为 0,即无 .SpaceBefore = 12段前 12 磅 .SpaceBeforeAuto = False不自动设置指定段落的段前间距 .SpaceAfter = 12段后为 12
您可能关注的文档
最近下载
- 五年级劳动教学计划.docx VIP
- GJB9001C-2017管理手册、程序文件及表格汇编.doc
- 部编版语文三年级上册第1课《大青树下的小学》PPT课件.pptx
- 第10课《爬山虎的脚》第二课时(教学设计)四年级语文上册(统编版五四制).docx
- 39-风湿病科--浊瘀痹(痛风性关节炎)中医诊疗方案(2017年版)(1).pdf
- 中建集团一手册一方案六意见宣讲会测试题.doc VIP
- DB32_T 2948-2016水利工程卷扬式启闭机检修技术规程.docx
- 2022年北京市门头沟区2022届初三二模英语试题卷(附答案).docx
- SNT 4233-2021 进境牛羊指定隔离检疫场建设规范.pdf
- 重庆中医药学院招聘考试真题2024.docx
文档评论(0)