vba word 查找_Word批量查找替换VBA代码
编写该代码的目的:
初衷
该代码最初用于我自己弄得一个用于批量化写word报告的东西,因为我原来需要写一堆格式化的报告,不同报告间除了数据发生了变化,其他几乎一模一样,我想偷懒(主要是我容易写错),就使用VBA写了一段代码用于实现自动化,
将已有的word文档报告改造成模板,
在一个Excel表格中定义一些变量,包括变量名与变量的值(也有一些数组变量)
使用VBA代码批量的将word中的变量名替换为变量的值
然后就可以开心的仅更新Excel表格,批量的生成报告了~
这个理想很美丽,但实际执行过程中,只有简单点的报告可以这样弄,复杂点的报告因为需要可知化的地方很多,实现起来很痛苦,(特别是一些word中语句需要注意单复数的变换,有些参数缺失时需要完全移除语句),所以该工具旨在我这里用于部分报告的生成。
现在
现在我已经不用写报告了 :)
所以再次想到该代码是最近在翻译一些资料时,机翻总是将一些词汇翻译为一些特定的不合时宜的词,然后需要手动改,改多了我有懒了,再次想到了我之前的代码,修修改改一下又能接着使用了~
正文
代码
'替换word
Public wdApp, WrdDoc '定义公共变量类,wdapp, WrdDoc代表文档Sub 批量查找替换()
Application.ScreenUpdating = False'获取目标word文档
Call getwd
'wdapp.Visible = False'开始替换Call StReplace'清空变量
Set WrdDoc = Nothing
Set wdApp = Nothing
Application.ScreenUpdating = True
MsgBox "转换完成", vbOKOnly, ""
'Application.ScreenUpdating = False
End SubSub getwd()
'获取当前打开的word文档Set wdApp = GetObject(, "Word.Application")Set WrdDoc = wdApp.Documents(1)
End SubSub StReplace()
Application.ScreenUpdating = False
Dim wt, urow1 As Long, lrow1 As Long
Dim i1 As Long
Dim chaz1 As String, tih1 As String, lsaSet wt = ThisWorkbook.ActiveSheetlrow1 = 2
urow1 = wt.Cells(2000, 1).End(xlUp).Row
For i1 = lrow1 To urow1chaz1 = wt.Cells(i1, 1).Valuetih1 = wt.Cells(i1, 2).ValueIf chaz1 = "" ThenElselsa = czth1(chaz1, tih1)End If
Next
Application.ScreenUpdating = False'MsgBox "转换完成", vbOKOnly, ""
End Sub
使用方法
把上述代码放在Excel的宏模块中,然后在当前活动的工作表中,A列填须在word中查找的目标(从第二行开始),B列中填对应的替换的值,之后打开需要查找替换的word,然后运行“批量查找替换()”过程即可完成自动的查找替换。
vba word 查找_Word批量查找替换VBA代码相关推荐
- WordSR 在多个Word文件中批量查找替换
这阵子在看一些技术文档,都是 word 格式的,需要在多个Word文件中批量查找指定的内容,找不到免费的合适的软件,顺手开发了这个工具软件,下载地址 WordSR v0.2,下面是一些版权信息和软件介 ...
- (VBA)Word中对选中的行(代码行)自动编号并修改注释的颜色
说实话,CSDN的这个插入代码的控件很好用,特别是自动添加行号的功能. 下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对"//"以后的注释部分加上颜色. 用法:选中你 ...
- word 文档批量查找和批量替换
1.只能处理 docx, doc得先转换成docx2.可以处理子目录下的文件,3.修改关键词后必须重新运行本程序4.本程序采用的线程池运行的,所以占 CPU 略高. 后期可能升级成多进程.5.当关键词 ...
- word文档批量选中图片宏代码怎么写?
以下是 Word 文档中批量选中图片的 VBA 宏代码: Sub SelectAllPictures()Dim oShape As ShapeFor Each oShape In ActiveDocu ...
- dataframe保存为txt_如何批量查找并修改替换 Word、PPT、Excel、PDF、TXT等文件的内容...
概要 平时的工作中,我们避免不了与众多 Word 文件.PPT 文件.PDF 文件.TXT 等文件打交道,有时候我们需要对这些文件进行批量修改与替换内容.这里我们介绍了这样的一款工具,它可以很方便快速 ...
- 如何在ppt下面加入讲解内容_如何批量查找并修改替换 Word、PPT、Excel、PDF、TXT等文件的内容——我的ABC...
概要:平时的工作中,我们避免不了与众多 Word 文件.PPT 文件.PDF 文件.TXT 等文件打交道,有时候我们需要对这些文件进行批量修改与替换内容.这里我们介绍了这样的一款工具,它可以很方便快速 ...
- excel查找功能_如何使用VBA代码实现Excel的查找和替换功能?
每天一篇Excel技术图文微信公众号:Excel星球NO.145-I Find You作者:看见星光微博:EXCELers / 知识星球:Excel HI,大家好,我是星光.这章继续给大家分享VBA常 ...
- Office WORD EXCEL批量查找和替换技巧实例
1 删除多余的空行 如果是在WORD中,则查找^p^p替换为^p. 如果是在EXCEL里,则为全部选中,然后点击编辑,定位,定位条件,空值. 将全部选中空白的行,如图所示 再次点击编辑,删除,删除整行 ...
- Excel批量替换,多个excel文件批量查找和替换的绿色工具,Excel多个Sheet批量替换
多个EXCEL怎么进行快速批量替换 如果我们有多个Excel文件,多个Sheet,需要进行多个文件多个关键字的批量替换,将每个关键字替换成对应的文字. 有一个在线免费工具,不需熟悉vba或者公式函数, ...
最新文章
- Angry Grammar Nazi
- 数据分析师必看:5大概率分布,你了解多少?
- 20155335 俞昆 第十周作业
- 数据中心(机房)施工方案
- django中序列化器字段参数、关联字段
- acquisition calculation
- Lucene搜索引擎例子demo
- iReport序号自增列
- 一文弄懂什么是RPC
- 原子变量的原理与应用
- jquery跨域调用webService
- 安装HP P1008打印机经历
- 我的世界java版如何加披风_我的世界正版披风怎么换
- 加入在线服务--在线多人共享屏幕
- Cmake编译时无法打开包括文件: “pthread.h”
- 什么是gzip?为什么要用gzip?使用gzip的优势和劣势是什么?需要哪些岗位进行配合才能够实现gzip内容的应用?
- 扩展Redux——Store Enhancer
- 随机存取存储器与只读存储器
- Macbook Tools
- 天琊 V1.0(测试 1125版)
热门文章
- 用计算机制作演示文稿教案博客,《制作幻灯片》教学设计
- Win7环境64win操作系统,安装microsoft office2010 时MSXML版本6.10.1129.0,无法安装的解决办法
- 软件测试保姆级攻略(第一期 软件的结构组成和网络基础)
- 知乎被爆大裁员,我的心情像是过山车
- 【图像评价】基于matlab GUI图像评价系统【含Matlab源码 2185期】
- CARSIM悬架轮胎特性
- 万维网(WWW)简介
- 团队激励语、职场标语、行动口号激励语
- Mysql的新增数据
- 【其他】如何注册谷歌账号,遇到“此电话号码无法用于进行验证”怎么办?