编写该代码的目的：
 
初衷
 
该代码最初用于我自己弄得一个用于批量化写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 Sub


Sub getwd()
'获取当前打开的word文档
    Set wdApp = GetObject(, "Word.Application")
    Set WrdDoc = wdApp.Documents(1)
End Sub


Sub StReplace()
Application.ScreenUpdating = False
Dim wt, urow1 As Long, lrow1 As Long
Dim i1 As Long
Dim chaz1 As String, tih1 As String, lsa

Set wt = ThisWorkbook.ActiveSheet

lrow1 = 2
urow1 = wt.Cells(2000, 1).End(xlUp).Row
For i1 = lrow1 To urow1
    chaz1 = wt.Cells(i1, 1).Value
    tih1 = wt.Cells(i1, 2).Value
    If chaz1 = "" Then
    Else
        lsa = czth1(chaz1, tih1)
    End If
Next
Application.ScreenUpdating = False

'MsgBox "转换完成", vbOKOnly, ""
End Sub
 
 
使用方法
 
把上述代码放在Excel的宏模块中，然后在当前活动的工作表中，A列填须在word中查找的目标（从第二行开始），B列中填对应的替换的值，之后打开需要查找替换的word，然后运行“批量查找替换()”过程即可完成自动的查找替换。

 
Word查找替换不仅可以帮助我们快速的定位到想要的内容，还可以让我们批量修改文章中相应的内容。有很多人只知道“查找替换”功能可以批量修改文字，不仅仅是这样，今天Word联盟所要讲的是查找替换所有的使用功能大全，各种各样的用法，为的就是能在以后的处理文档时更加方便，希望大家可以灵活运用，即学即用。
 
一、最基本的用法“查找替换”功能之查找文档中想要的内容。
 
在长篇文档中想找到某个字、词、句子或者段落，如果单靠眼睛一个一个去搜寻那简直是大海捞针。利用Word中查找替换功能可以轻松帮助我们找到想要的内容。
 
在文档中单击菜单栏的“编辑”中的“查找”，或直接用Word快捷键 “Ctrl+F” 打开“查找和替换”，然后再“查找内容”中输入想要找到的内容，例如，我这里想找到文章中的“一”字，然后单击“查找下一处”，它就会自动的找到并选择文中的“一”，再单击“查找下一处”就会再次找到并选择下一处的“一”，直到找到最后一个时就会自动提示“Word 已完成对文档的搜索。”
 

 
还有一种方法，可以让文档中选中显示所有想要查找的内容。将“查找和替换”里面的“突出显示所有在该范围找到的项目”前面钩上，然后单击“查找全部”按钮，此时，文章中所有想查找的内容全部被突出显示出来。如下图;
 

 
二、替换所有的相匹配的字、词、句、段落方法。
 
讲完查找，我们接着讲替换，替换功能可以单击菜单栏的“编辑”中的“替换”打开，也可以用组合键 “Ctrl+H” 来打开。
 
在“查找内容”中输入需要替换掉的字，然后在“替换为”中输入需要替换成的某个字，最后单击“替换”按钮，就可以替换掉一个一个的替换掉;建议点击“全部替换”可以一次性替换文中所有的词(比较节省时间)。替换完毕后会出现提示：“Word 已完成对所选内容的搜索，共替换 “多少”处。是否搜索文档其余部分?”。
 

**
 
word高级查找替换应用
 
**
 实例1：在一篇长文档中，如果要在很多地方添加同一个公式或图片。
 首先在需要输入公式的地方输入“gongshi”。再在另一文档中输入该公式并选中，“ctrl+C”一下，在替换为框输入：^c。
 二、特殊格式的功能
 由于查找功能中的特殊格式功能选项更多一些，小编本次以替换功能中的【查找】部分为示例：
 1。段落标记【^p】：实现文档中段落标记的快速查找，可实现不连续段落的删除。
 2。制表符【^t】：制表符可以帮助对齐方式（→），最常用的就是我们段落首行的右缩进。
 3。任意字符【?】:代表任意单个字符，也可以连续输入，代表几个位置字符，可以结合文字使用，比如【?国】，可以查找到例如中国、美国、英国等。
 4。任意数字【^#】: 实现文档中全部数字的快速查找。
 5。任意字母【^$】：实现文档中全部英文字母的快速查找。
 6。脱字号【^】：符号。
 7。分节符【^%】：实现文档中全部分节符的快速查找。
 8。段落符号【^v】: 实现文档中全部段落符号（）的快速查找
 9。分栏符【^n】：实现文档中全部分栏符的快速查找。
 10。省略号【^i】：实现文档中全部省略号（…）的快速查找。
 11。全角省略号【^j】：实现文档中全部全角省略号（……）的快速查找。
 12。长划线【^+】：实现文档中全部长划线（—）的快速查找。
 13。1/4全角空格【^q】：实现文档中全部分节符的快速查找。
 14。短划线【^=】：实现文档中全部短划线（–）的快速查找。
 15。无宽可选分隔符【^x】：实现文档中全部短划线（）的快速查找。
 16。无宽非分隔符【^z】：实现文档中全部短划线（）的快速查找。
 17。尾注标记【^e】：实现文档中全部尾注标记的快速查找。
 18。域【^d】：实现文档中全部所有域的快速查找。
 19。脚注标记【^f】：实现文档中脚注标记的快速查找。
 20。图形【^g】：实现文档中图片的快速查找。
 21：手动换行符【^l】：实现文档中全部短划线（↓）的快速查找，尤其适用快速删除由网页复制到WORD中的文本中手动换行符的删除。
 22：手动分页符【^m】：实现文档中手动分页符的快速查找，即为我们使用组合键【Ctrl+回车键】实现的文档分页。
 23：不间断连字符【^~】：实现文档中不间断连字符（）的快速查找。
 24：不间断空格【^s】：实现文档中不间断空格（ ）的快速查找。
 25：可选连字符【^-】：实现文档中可选连字符的快速查找。
 26：分节符【^b】：实现文档中分节符的快速查找。
 27：空白区域【^w】：主要包含常规空格、不间断空格以及制表符的任意组合，实现空白区域的快速删除。
 28：给图片批量加题注：查找框输入g，替换框为……&pc。
 
欢迎使用Markdown编辑器
 
你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。
 
新的改变
 
我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：
 
全新的界面设计 ，将会带来全新的写作体验；
在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；
增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；
全新的 KaTeX数学公式 语法；
增加了支持甘特图的mermaid语法 功能；
增加了 多屏幕编辑 Markdown文章功能；
增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
增加了 检查列表 功能。
 
功能快捷键
 
撤销：Ctrl/Command + Z
 重做：Ctrl/Command + Y
 加粗：Ctrl/Command + B
 斜体：Ctrl/Command + I
 标题：Ctrl/Command + Shift + H
 无序列表：Ctrl/Command + Shift + U
 有序列表：Ctrl/Command + Shift + O
 检查列表：Ctrl/Command + Shift + C
 插入代码：Ctrl/Command + Shift + K
 插入链接：Ctrl/Command + Shift + L
 插入图片：Ctrl/Command + Shift + G
 
合理的创建标题，有助于目录的生成
 
直接输入1次#，并按下space后，将生成1级标题。
 输入2次#，并按下space后，将生成2级标题。
 以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。
 
如何改变文本的样式
 
强调文本 强调文本
 
加粗文本 加粗文本
 
标记文本
 
删除文本
 
 
 
引用文本
 
 
H2O is是液体。
 
210 运算结果是 1024.
 
插入链接与图片
 
链接: link.
 
图片: 
 
带尺寸的图片: 
 
居中的图片: 
 
居中并且带尺寸的图片: 
 
当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。
 
如何插入一段漂亮的代码片
 
去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.
 
// An highlighted block
var foo = 'bar';
 
生成一个适合你的列表
 
项目 
  
项目 
    
项目
 
 
 
项目1
项目2
项目3
 
 计划任务
 完成任务
 
创建一个表格
 
一个简单的表格是这么创建的：
 
项目
Value
电脑
$1600
手机
$12
导管
$1
设定内容居中、居左、居右
 
使用:---------:居中
 使用:----------居左
 使用----------:居右
 
第一列
第二列
第三列
第一列文本居中
第二列文本居右
第三列文本居左
SmartyPants
 
SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：
 
TYPE
ASCII
HTML
Single backticks
'Isn't this fun?'
‘Isn’t this fun?’
Quotes
"Isn't this fun?"
“Isn’t this fun?”
Dashes
-- is en-dash, --- is em-dash
– is en-dash, — is em-dash
创建一个自定义列表
 
 
 
  Markdown
  
 

  Text-to-
  HTML conversion tool
 
 
 
  Authors
  
 

  John
 
 
 

  Luke
 
 
 
如何创建一个注脚
 
一个具有注脚的文本。
 
注释也是必不可少的
 
Markdown将文本转换为 HTML。
 
KaTeX数学公式
 
您可以使用渲染LaTeX数学表达式 KaTeX:
 
Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分
 
$$\Gamma (z)={\int }_0^{\infty }{t}^{z-1}{e}^{-t}dt.$$
 
 
 
你可以找到更多关于的信息 LaTeX 数学表达式here.
 
 
新的甘特图功能，丰富你的文章
 

 
 
关于 甘特图 语法，参考 这儿,
 
UML 图表
 
可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:
 

 
 
这将产生一个流程图。:
 

 
 
关于 Mermaid 语法，参考 这儿,
 
FLowchart流程图
 
我们依旧会支持flowchart的流程图：
 

 
 
关于 Flowchart流程图 语法，参考 这儿.
 
导出与导入
 
导出
 
如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ，生成一个.md文件或者.html文件进行本地保存。
 
导入
 
如果你想加载一篇你写过的.md文件或者.html文件，在上方工具栏可以选择导入功能进行对应扩展名的文件导入，
 继续你的创作。
 
 
 
 
mermaid语法说明 ↩︎
 
注脚的解释 ↩︎
 
 

            XWPFDocument fileWord = null;
             fileWord = new XWPFDocument("要打开的word文件");
             foreach (var search in fileWord.Paragraphs)
             {
                 string searchText = search.Text;
                 if (searchText == "你要查找的段落")
                 {
                     string newText = text.Replace("你要查找的段落", "你要替换的段落");
                     search.ReplaceText(searchText, newText);
                 }
             }