vba进阶撑杆跳应用案例集锦

《vba进阶撑杆跳应用案例集锦》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA进阶撑杆跳应用案例集锦文/安平121324233454353535一、VBA入门热身2004年《电脑爱好者》22期——24期连续为广大读者介绍了VBA的相关知识和比较经典的实例，由于版面的限制，而且VBA开发涉及的内容又非常宽泛，在此，我们把更多的精彩实例奉献给大家。另外，在此期间我们也收到很多读者的投稿，一并奉上。关于Office VBA的入门知识请参考2004年下半年《电脑爱好者合订本》的正文分册。二、实例之Word批量替换众所周知，Word提供了强大的替换功能，可方便地满足多种替换需求，但细心的读者会发现，在Word中每次仅能操作一对文字内容（即“替换”和“替

2、换为”的内容），当需对文字资料进行多内容的批量替换时，则需逐个操作，比较烦琐。那么略有VBA知识的读者或许会通过录制宏的方法来获取替换操作的代码，然后反复复制、修改这些代码，实现连续替换的需求，但该方法缺乏灵活性，如需修改批量替换的内容，将非常烦琐。通过VBA和Word加载模板的方法，笔者为Word开发了一个“超级替换”的工具，该工具不仅可批量替换，且可方便地修改替换内容。2.1实例效果本文程序通过工具栏的按钮触发运行，工具栏的按钮如图2-1-1所示：图2-1-1图2-1-1单击该按钮后，将进行批量替换的操作，即连续替换一系列指定的内容，大大提高了工作效率。2.2实例知识

3、点笔者在每个实例中均会对本实例VBA程序代码中将使用的VBA开发对象、VBA常用函数和语法等知识先行介绍，读者可在实例操作中参考，下同。2.2.1相关对象1、Paragraphs对象集合该对象集合代表指定文档、区域或选择内容的所有段落。2、Selection对象该对象代表当前选择的内容，即文档中被选择（高亮度显示）的区域，如无选择内容，则代表插入点。Word应用程序中仅存在一个当前的Selection对象。3、Find对象该对象代表查找操作的执行条件，其属性、方法和“替换”对话框中选项一致，具体如下所述：（1）Font属性该属性由于返回或设置Font对象，代表指定对象的字

4、符格式。（2）Wrap属性该属性用于设置在搜索时进行的相关操作，可通过常量进行赋值，具体如下所述：A、wdFindAsk常量：搜索完毕后，显示是否搜索文档的其他部分的消息框。B、wdFindContinue常量：搜索完毕后，继续执行。C、wdFindStop常量：搜索完毕后，停止执行。（3）Format属性该属性用于设置是否在查找操作中包含格式。（4）MatchCase属性该属性用于设置在查找时是否区分大、小写。（5）MatchWholeWord属性该属性用于设置是否在查找时仅对完整单词进行匹配。（6）MatchByte属性该属性用于设置是否在查找时区分全角和半角的字符。

5、（7）MatchWildcards属性该属性用于设置是否在查找时允许使用查找通配符。（8）MatchSoundsLike属性该属性用于设置是否在查找时返回与待查文字发音相近的单词。（9）Execute方法该方法用于执行替换或查找操作。（10）ClearFormatting方法该方法用于清除替换或查找的内容。4、Replacement对象该对象代表查找和替换操作的替换条件，其属性、方法和“查找和替换”对话框中的选项一致，具体如下所述：（1）Text属性该属性用于设置选择内容中需查找或替换的文本。2.2.2相关函数1、Split函数该函数用于按指定分隔符拆分字符串，并返回下标

6、从零开始的一维数组。其语法如下所示：Split(expression[,delimiter[,limit[,compare]]])其常用参数作用如下所述：（1）expression参数：该参数用于设置需拆分的字符串。（2）delimiter参数：该参数用于设置分隔符字符串。2、Replace函数该函数返回指定子字符串被替换后的字符串。其语法如下所示：Replace(expression,find,replace[,start[,count[,compare]]])其常用参数作用如下所述：（1）expression参数：该参数用于设置需替换的字符串。（2）find参数：该参

7、数用于设置需查找的子字符串。（3）replace参数：该参数用于设置需替换的子字符串。（4）start参数：该参数用于设置查找的开始位置。2.3实例编制步骤2.3.1程序设计思路由程序功能需求和前述知识点可得设计思路，具体如下所述：1、按特定格式输入替换和被替换的内容。2、编制批量替换的代码，在代码中拆分替换和被替换的内容。3、保存为模板并加载。2.3.2输入替换和被替换的内容新建Word文件，按特定的格式输入替换和被替换的内容。本文实例程序使用“===”（即三个等号）做为分隔符。在输入内容时，分隔符的左面为需替换的内容，右面