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程序设计思路 由程序功能需求和前述知识点可得设计思路，具体如下所述： 1、按特定格式输入替换和被替换的内容。 2、编制批量替换的代码，在代码中拆分替换和被替换的内容。 3、保存为模板并加载。 2.3.2输入替换和被替换的内容 新建Word文