Word VBA自动排版（4）- 通过For循环批量替换

代码比较简单，只是在替换的基础上增加了最基础的For循环，有效节省了批量替换文本的时间。
废话不多说，直接上代码，

Ori = Array("a","b","c")    '被替换文本
Rep = Array("a","b","c")    '替换后的文本
For i = 0 To UBound(Ori)With Selection.find.Text = Ori(i).Replacement.Text = Rep(i).Forward = True.Wrap = wdFindContinue.Format = False             '不查找格式.MatchCase = False          '不区分大小写.MatchWholeWord = False     '不采用全字匹配.MatchByte = False          '不区分全半角.MatchWildcards = False     '不使用通配符.MatchSoundsLike = False    '不查找同音.MatchAllWordForms = False  '不查找单词的所有形式End With

注，ori()，与rep()的各元素之间应当相互对应

Word VBA自动排版（4）- 通过For循环批量替换相关推荐

Word VBA自动排版（5）- 专利具体实施方式批量增加附图标记
专利说明书在撰写时,如遇到附图标记过多时,往往需要手动替换各部件以增加附图标记,较为耗时,通过下述代码可对文中的所有部件快速标记,通常只需几秒. Sub 自动增加附图标记()Dim fea(0 To ...
Word VBA自动排版（1）-新建窗口，并且设置并列分布
就是一个通过VBA实现的word宏,代码虽然比较LOW,但是很好用. 该宏可以同时实现新建窗口.并排查看和取消同步滚动,如果需要保留同步滚动,只需在相应处进行修改即可. 兼容了doc和docx格式代 ...
Word VBA自动排版（6）- 专利撰写生成权利要求模板
下述代码功能: 1.判断当前权利要求,如果为独权1则生成独权模板,如果为从权则生成从权模板,点一次宏,生成一条权利要求 2.笔者习惯显示文件的扩展名,所以在获取当前文件名称时会保留doc或docx,需 ...
Word VBA自动排版（2）-通过自动查找替换去除叠字
叠字主要包括以下几种: 1型aabbcc 2型ababab 3型abcabcabc 4型abcdabcdabcdabcd(这个算思考题,自己根据原理增加吧) 代码原理为通过自建数组和通配符替换逐一替换 ...
VBA宏实现Word论文自动排版
一.灵感与动机作为一名即将毕业的大四学生,不仅经历了设计.编写系统的痛苦,还经历了撰写论文的烦恼,尤其是最后论文排版阶段,非常的繁琐和费时.所以我就希望可以有一个自动排版的"脚本" ...
word vba高效排版范例应用_收藏 | 原来word里面也有函数！
Word里面的rand"函数" 可以在文档中快速生成文本,小伙伴在Word中练习排版时,可以用虚拟文本来练习排版.在任意位置输入=rand()必须为英文半角,按[Enter]键,就 ...
word vba高效排版范例应用_Word 排版指北丨高效律师
1 前言前几天看到同事还在以敲回车的方式对word进行分页,我不禁感叹:虽然 Word 是很多律师必备的工具,但是很多人并不会用 word 排版.于是总结下自己平时使用Word排版的相关经验,希望能 ...
word公式自动排版最简单
如果我们在word是insert equation插入的公式的话,只要在公式后面输入#(number)然后回车,就会直接居中,并且自动更新编号. 效果:
使用python-docx实现对word文档里的字符串、图片批量替换
python-docx 是用于创建和更新Microsoft Word(.docx)文件的Python库.它的API文档也非常简单,看完之后,只能简单理解一些基础用法.最近碰到一个需求,需要对word模 ...
word中将一种颜色的突出显示批量替换为另一种
要实现的效果:https://www.zhihu.com/question/38955258 就是红色的全换成黄色的做法,首先创建宏,录制宏(这一步好像可以不用).参考链接 https://supp ...

Word VBA自动排版（4）- 通过For循环批量替换

Word VBA自动排版（4）- 通过For循环批量替换相关推荐

最新文章

热门文章