VBA进阶撑杆跳——应用案例集锦.doc

VBA 进阶撑杆跳——应用案例集锦 文/安平 一、VBA 入门热身 2004 年《电脑爱好者》 22 期——24 期连续为泛博读者介绍了 VBA 的相关知识和比较 经典的实例，由于版面的限制，而且 VBA 开辟涉及的内容又非常宽泛，在此，我们把更多 的精彩实例奉献给大家。此外，在此期间我们也收到不少读者的投稿， 一并奉上。 关于 Office VBA 的入门知识请参考 2004 年下半年《电脑爱好者合订本》的正文分册。 二、实例之 Word 批量替换 众所周知， Word 提供了强大的替换功能，可方便地满足多种替换需求，但细心的读者 会发现，在 Word 中每次仅能操作一对文字内容（即“替换 ”和“替换为”的内容），当需 对文字资料进行多内容的批量替换时，则需逐个操作，比较烦琐。 那末略有 VBA 知识的读者兴许会通过录制宏的方法来获取替换操作的代码，然后反复 复制、修改这些代码，实现连续替换的需求， 但该方法缺乏灵便性，如需修改批量替换的内 容， 将非常烦琐。 通过 VBA 和 Word 加载模板的方法，笔者为 Word 开辟了一个“超级替换 ”的工具， 该工具不仅可批量替换，且可方便地修改替换内容。 2.1 实例效果 本文程序通过工具栏的按钮触发运行，工具栏的按钮如图 2-1-1 所示： 图 2-1-1 图 2-1-1 单击该按钮后，将进行批量替换的操作， 即连续替换一系列指定的内容， 大大提高了工 作效率。 2.2 实例知识点 笔者在每一个实例中均会对本实例 VBA 程序代码中将使用的 VBA 开辟对象、 VBA 常用 函数和语法等知识先行介绍，读者可在实例操作中参考，下同。 2.2.1 相关对象 1 、Paragraphs 对象集合 该对象集合代表指定文档、区域或者选择内容的所有段落。 2 、Selection 对象 该对象代表当前选择的内容，即文档中被选择（高亮度显示）的区域，如无选择内容， 则代表插入点。 Word 应用程序中仅存在一个当前的 Selection 对象。 3 、Find 对象 该对象代表查找操作的执行条件，其属性、方法和“替换”对话框中选项一致，具体如 下所述： （1）Font 属性 该属性由于返回或者设置 Font 对象，代表指定对象的字符格式。 （2）Wrap 属性 该属性用于设置在搜索时进行的相关操作，可通过常量进行赋值，具体如下所述： A 、wdFindAsk 常量：搜索完毕后，显示是否搜索文档的其他部份的消息框。 B 、wdFindContinue 常量：搜索完毕后，继续执行。 C 、wdFindStop 常量：搜索完毕后，住手执行。 （3）Format 属性 该属性用于设置是否在查找操作中包含格式。 （4）MatchCase 属性 该属性用于设置在查找时是否区分大、小写。 （5）MatchWholeWord 属性 该属性用于设置是否在查找时仅对完整单词进行匹配。 （6）MatchByte 属性 该属性用于设置是否在查找时区分全角和半角的字符。 （7）MatchWildcards 属性 该属性用于设置是否在查找时允许使用查找通配符。 （8）MatchSoundsLike 属性 该属性用于设置是否在查找时返回与待查文字发音相近的单词。 （9）Execute 方法 该方法用于执行替换或者查找操作。 （10）ClearFormatting 方法 该方法用于清除替换或者查找的内容。 4 、Replacement 对象 该对象代表查找和替换操作的替换条件，其属性、 方法和“查找和替换”对话框中的选 项一致，具体如下所述： （1）Text 属性 该属性用于设置选择内容中需查找或者替换的文本。 2.2.2 相关函数 1 、Split 函数 该函数用于按指定分隔符拆分字符串，并返回下标从零开始的一维数组。 其语法如下所示： Split(expression[, delimiter[, limit[, compare]]]) 其常用参数作用如下所述： （1）expression 参数：该参数用于设置需拆分的字符串。 （2）delimiter 参数：该参数用于设置分隔符字符串。 2 、Replace 函数 该函数返回指定子字符串被替换后的字符串。 其语法如下所示： Replace(expression, find, replace[, start[, count[, compare]]]) 其常用参数作用如下所述： （1）expression 参数：该参数用于设置需替换的字符串。 （2）find 参数：该参数用于设置需查找的子字符串。 （3）replace 参数：该参数用于设置需替换的子字符串。 （4）start 参数：该参数用于设置查找的开始位置。 2.3 实例编制步骤 2.3.1 程序设计思路 由程