VBA word自动排版（10）-结合SQL数据库批量替换WORD文本

笔者的使用环境是SQL-SERVER2014 和VS2017

首先在SQL-server中建立如下表格
序号列名1 列名2
001 aa bb
002 bb cc
003 cc aa

以下是word中的VBA代码：
'——————————————————————————————声明公共变量

Public rs As New ADODB.Recordset
Public cnn As New ADODB.Connection
Public SQL As StringSub test()Dim arr_ori()
Dim arr_rep()'——————————————————————————————打开数据库
rs.open("Provider=SQLOLEDB;server=服务器名称;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库")'——————————————————————————————读取数据库并为数组1赋值
SQL = "SELECT 列名1 FROM 表名 "
Set rs = cnn.Execute(SQL)
arr_ori() = rs.GetRows'——————————————————————————————读取数据库并为数组2赋值
SQL = "SELECT 列名2 FROM 表名"
Set rs = cnn.Execute(SQL)
arr_rep() = rs.GetRows'——————————————————————————————将数组1的内容替换为数组2
For i = 1 To UBound(arr_ori, 2)With Selection.find.text = Trim(arr_ori(0, i)).Replacement.text = Trim(arr_rep(0, i)).Forward = True.Wrap = wdFindContinue.Format = False            .MatchCase = False        .MatchWholeWord = False    .MatchByte = False          .MatchWildcards = False    .MatchSoundsLike = False   .MatchAllWordForms = False  End WithSelection.find.Execute Replace:=wdReplaceAll
Next irs.closeEnd Sub

注：由于getrows获取的数组为二维数组，因此在使用时，应当注意维度设置，否则会报错。如果需要批量删除数组1的内容，则 .Replacement.text = Trim(arr_rep(0, i))改为 .Replacement.text =""即可。

上述代码的其他用法：翻译词组的批量替换，亲测效果还可以。

VBA word自动排版（10）-结合SQL数据库批量替换WORD文本相关推荐

sql取字段前4位_4千左右预算，2020年Word/Excel/用友/ 金蝶/SQL数据库-财务会计轻薄笔记本推荐...
计算机已成为财会岗位必备工具,不仅要懂财务知识,也要会使用各种办公.财务软件. 大学学习会计专业,也要经常处理大量的数据.表格和图表,要装配数据分析软件,首先,需要CPU的运算能力很强,至少4核以上C ...
用友数据库最新会计期间_6千左右预算，2021年Word/Excel/用友/ 金蝶/SQL数据库-财务会计轻薄笔记本推荐...
用Word/Excel/PPT做文档,表格,运行用友/ 金蝶/SQL数据库用不到6千这么高的配置,但如果除了办公,做财务,还要兼顾PS修图,PR剪辑,那么就需要这么高的配置. PR视频软件不同于办公软 ...
python如何自动缩进_python word 自动排版写码时应该缩进使用 tab 还是空格?
对于程序员来说,其实Tab和空格远远不只是"立场"问题那么简单. 在不同的编辑器里tab的长度可能不一致,所以在一个编辑器里用tab设置缩进后,在其它编辑器里看可能缩进就乱了.空格 ...
WordPress使用SQL语句批量替换失效的蓝奏云下载地址
现在很多站长都用蓝奏盘作为网盘存储下载的资源,但是蓝奏盘链接很不稳定经常失效需要替换,如果量小一个一个替换还好,而本站所分享的资源,几乎都是蓝奏云分享的下载链接,文章一个个编辑替换工作量非常巨大,站长 ...
zblog mysql修改_zblog数据库批量替换https的方法
最近准备把博客换上https,所以开始搜集一些Z-Blog迁移到https的资料,预防到时候遇到一些问题影响到自己的迁移过程,对于环境的设置之类的我是比较熟悉的,今天在网上搜索到一篇文章,是关于在数据 ...
批量替换 Word 文档最后几页
概要:Word 文档当中的页面非常的多,我们可以对某一个页面进行删除也可以对某个页面进行修改,同时也可以在某一个页面后面插入一个新的页面,这些操作都是对基本的,相信大家处理起来都非常的得心应手了.假如 ...
EasyUI-DataGrid下数据库数字替换成文本信息显示以及不同状态显示不同颜色
EasyUI-DataGrid下数据库数字替换成文本信息显示在使用easyui作为开发框架的时候,经常遇到一些常见的问题,比如某项数据名,在数据库里存的是0和1等,然后显示在页面上的时候,需要显示成 ...
python批量替换word文字
这里写自定义目录标题 python批量替换word文字代码 Gitee地址微信赞赏 python批量替换word文字代码 """本项目特点:1.获取word中数据, ...
wps word文档生成目录的时候显示断裂会生成大纲怎么办_自从学会了Word自动排版，我的秀发浓密多了...
文/金金首发于一周进步每到期末,都是大作业和报告的高发季,一个"死线"刚过,另一堆"死线"接踵而至. 作为一名在报告的海洋里中挣扎,妄图顺利存活的同学,我自 ...

VBA word自动排版（10）-结合SQL数据库批量替换WORD文本

VBA word自动排版（10）-结合SQL数据库批量替换WORD文本相关推荐

最新文章

热门文章