WORD宏简单应用.doc

WORD宏简单应用 一、了解宏 2 二、创建空白宏 3 三、编写宏代码 6 四、创建快捷按钮 8 五、代码实例（以题库一段文字为例） 14 一、了解宏 word中执行的每一步按键操作，背后都会执行一串代码，正是这串代码实现了我们达到的效果。而则跳过复杂的按键操作，直接执行VBA代码，因此我们可以将一连串复杂一个宏里，用一个快捷按键一键完成如图）。 PS：叙述通俗，介绍了部分常用功能深入学习或官方释义请搜索相关资料手册也初学者，如有错误 二、创建宏 的方式两种一种是宏VBA代码）是录制宏录制后将你要执行的操作执行一遍录制，下次点击宏按钮就可顺序执行）录制宏，但精确度不如代码宏，本文代码宏。 ——宏——查看——输入宏名——创建 得一个空白宏。 1）点击视图 2）点击宏 3）查看宏 4）输入宏名 5）点击创建 6）空白宏创建成功 三、编写宏代码 1、设置格式模板（以宋体小四1.5行距为例） Selection.WholeStory ‘Selection.ClearFormatting ‘清除全文格式 ’设置字体Selection.Font.Size = 12 ‘设置字号（表） ‘ 为设置行距Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly ’ 以宋体小四行距为例，字号（）则的值为*1.5=18 Selection.ParagraphFormat.LineSpacing = 18 Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify ‘设置文本两端对齐Application.ScreenUpdating = True ’刷新 初号 42 小初 36 一号 26 小一 24 二号 22 小二 18 三号 16 小三 15 四号 14 小四 12 五号 10.5 小五 9 六号 7.5 小六 6.5 七号 5.5 八号 1.76 表1 字体与字号对应表 PS：想要不同的对齐方式用以下任一代码替换模板中红色文本即可。 wdAlignParagraphCenter 居中 wdAlignParagraphDistribute 分散对齐 wdAlignParagraphJustify 两端对齐 wdAlignParagraphLeft 左对齐 wdAlignParagraphRight 右对齐 表2 对齐方式库 2、替换模板（以去除空格为例） 双引号之间输入一个空格 .Replacement.Text = ’替换为空即删掉空格 替换全部 End With 任意单个字符 ^? 1/4长划线 ^+ 任意数字 ^# 长划线 ^j 任意英文字母 ^$ 短划线 ^q 段落标记（硬回车） ^p 制表符 ^t 手动换行符(软回车) ^l 脱字号 ^ 图形 ^g或^1 分栏符 ^v 表3 word特殊字符代码库（标记为常用代码） 注：编写的宏代码插入到Sub与End Sub之间。 四、创建快捷按钮 为写好代码的宏创建快捷按钮可以一键调用宏命令，快速方便。创建方式如下： 文件——选项——快速访问工具栏——点击常用命令——宏——选择要制作按钮的宏——添加——修改——选择一个图标——确定 过程图解如下： 1）点击文件 2）点击选项 3）点击快速访问工具栏 4）点击常用命令 5）点击宏 6）选中你所创建的宏 7）点击添加 8）选中刚刚添加的宏 9）点击修改 10）选择一个图标并确定 11）快捷按钮创建成功 五、代码实例（以题库一段文字为例） 原格式如图5.1所示： 图5.1 示例文字 需实现：宋体小四1.5倍行距，去除多余空行及空格，去掉制表符（此窗口中不可见），半角圆点改为全角圆点，括号内固定四个空格，最后将此段文本复制到剪切板并清空当前word。 实例代码： Selection.WholeStory Selection.ClearFormatting Selection.Font.Size = 12 Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly Selection.ParagraphFormat.LineSpacing = 18 Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify Application.ScreenUpdating = True 替换空格 With ActiveDocument.Content.Find 在当前文档中进行查找 .Text = 被替换的字符 .Replac