作者：iamlaosong

日常工作中可能会碰到这样的情况，就是需要批量替换一些文件的内容，如合同、产品说明、ISO认证标准化文档（质量手册、程序文件、管理手册）、项目推广方案等，先做批量替换，再进行修改，可以节省大量时间。

本工具可以实现一键完成批量替换，只需按键前将要替换的内容输入表格当中。工具用VBA实现，主要是针对ISO认证标准化文档做的，即对多个文件做同样的替换。界面如下：

功能简单，实现起来也容易。也就是读取表格内容到数组，选择要替换的文件，然后逐个替换即可。

1、文件夹替换：点击按钮选择一个文件夹，工具对文件夹下所有Word文档进行替换，替换后的文件保留在当前文件夹下新建的new文件夹下，文件名和源文件相同。

2、文件替换：点击按钮后选择一个或多个Word文档，工具对对选中的文档进行替换，替换后的文件保留在当前文件夹下新建的new文件夹下，文件名和源文件相同。

本来想用Excel VBA做的（毕竟这个我比较熟），可是Excel VBA代码写完后，打开Word文档没问题，其他代码执行没问题，就是替换功能那部分代码执行了完不成替换，而同样的代码在Word VBA中却可以实现所需的功能，不知道问题出在哪儿。

核心代码如下：

1、读取表格内容：

    '读取替换内容
    For k = 2 To 100
       tmp = ActiveDocument.Tables(1).Cell(k, 1)
       sFind(k) = Left(tmp, Len(tmp) - 2)
       tmp = ActiveDocument.Tables(1).Cell(k, 2)
       sRepl(k) = Left(tmp, Len(tmp) - 2)
       If sFind(k) = "" Then Exit For
    Next k
    WordNo = k - 1

2、批量替换

    If Dir(sPath & "\new", vbDirectory) = "" Then MkDir sPath & "\new"
    '开始替换
    For kk = 1 To FileNo
        Target = sPath & "\" & myFile(kk)
        Debug.Print Target
        Documents.Open Target
            
        For k = 2 To WordNo
            Selection.Find.ClearFormatting
            Selection.Find.Replacement.ClearFormatting
            With Selection.Find
                .Text = sFind(k)
                .Replacement.Text = sRepl(k)
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchByte = True
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                '执行替换
                .Execute Replace:=wdReplaceAll
            End With
        Next k
        ActiveDocument.SaveAs2 FileName:=sPath & "\new\" & myFile(kk)
        'ActiveDocument.Save
        ActiveDocument.Close
    Next kk
    
    MsgBox "共有" & FileNo & "个文件替换完毕！"

感兴趣朋友可以下载试试：Word文档批量替换工具.doc

补记：

后来发现，Excel之所以不行，是因为Excel环境下wdReplaceAll、wdFindContinue都是空值。而这些参数为空值，是因为我们没有引用Word对象，引用一下就不是空值了（如果把wdReplaceAll、wdFindContinue等常量换成其值2、1，不引用也可以），如下图：

Excel下面的关键代码如下：

        '查找并替换
        For k = 1 To Strno
            With docApp.Selection.Find
                .ClearFormatting
                .Text = arrStr(k, 1)
                .Replacement.Text = arrStr(k, 2)
                .Forward = True
                .Wrap = wdFindContinue
                .MatchWildcards = False
            End With
            docApp.Selection.Find.Execute Replace:=wdReplaceAll
        Next k

注意：docApp是Word应用对象，即：Set docApp = CreateObject("Word.Application")

====================================================

补充强调一下：工具可以用于docx类型，如果选择文件夹替换的话，会包括docx文件；如果选择文件替换的话，可以把选择类型改成所有文件（*.*）就行了。文件替换时可以按Ctrl键多选。

最近项目中需要在word文档中指定位置动态添加文字，记录下项目中的实现方式

1. 添加依赖的lib

<dependency>
            <groupId>org.apache.poi</groupId>
            <artifactId>poi-excelant</artifactId>
            <version>3.12</version>
        </dependency>
        <dependency>
            <groupId>org.apache.poi</groupId>
            <artifactId>poi-scratchpad</artifactId>
            <version>3.12</version>
        </dependency>
        <dependency>
            <groupId>org.apache.poi</groupId>
            <artifactId>poi-ooxml</artifactId>
            <version>3.8</version>
        </dependency>
        <dependency>
            <groupId>org.apache.poi</groupId>
            <artifactId>poi-ooxml-schemas</artifactId>
            <version>3.8</version>
        </dependency>

2. 在word文档中添加标识位
   
3. 代码

public class WordTest {

    public static void main(String[] args) throws Exception {
        Map<String, String> map = new HashMap<>();
        map.put("$name", "1231");
        XWPFDocument document = new XWPFDocument(POIXMLDocument.openPackage("E:\\新建文件夹\\demo.docx"));
        Iterator<XWPFParagraph> itPara = document.getParagraphsIterator();
        while (itPara.hasNext()) {
            XWPFParagraph paragraph = (XWPFParagraph) itPara.next();
            List<XWPFRun> runs = paragraph.getRuns();
            for (int i = 0; i < runs.size(); i++) {
                String oneparaString = runs.get(i).getText(runs.get(i).getTextPosition()).trim();
                for (Map.Entry<String, String> entry : map.entrySet()) {
                    if (oneparaString.equals(entry.getKey())) {
                        oneparaString = oneparaString.replace(entry.getKey(), entry.getValue());
                    }

                }
                runs.get(i).setText(oneparaString, 0);
            }
        }
        FileOutputStream outStream = null;
        outStream = new FileOutputStream("E:\\新建文件夹\\test1.docx");
        document.write(outStream);
        outStream.close();

    }
}

4. 效果
   
   

WORD文档替换功能如果使用好的话，会给我们日常工作带来很大帮助，所以今天这篇文章主要讲解Word文档替换功能怎么使用，替换作用就是将查找一个内容可以使用别外一个内容进行替换。替换对话框快捷键是“CTRL+H”；

【文本快速替换】

文章中已有的文本可以使用另外的文本替换掉，如“读书屋”使用“读书屋OFFICE网”进行快速替换

操作方法：打开替换对话框，在查找内容下填写“读书屋”，在替换为输入“读书屋OFFICE网”后单击“全部替换”按钮，这时WORD程序就会把文档中所有是读书屋文本进行替换。

小技巧：如果文章某个词多处出现，而又想快速将其删除，那么可以使用替换命令快速完成。只输入查找内容，而替换为的文本框什么也不填写。

【文本替换格式】

替换命令可以将文档中只替换其格式，而对文本没有任何影响，通过一个示例，将文档中加粗的文本替换成加粗倾斜字号加大并且改变文字颜色

操作方法：打开“替换对话框”然后先单击“更多按钮”，把光标定位在查找内容对应的文本框里，然后再单击下方“格式”按钮在列表命令框选择“字体”命令，如下图

在弹出的字体对话框，选择加粗后确定，把鼠标光标定位在替换为文本框中，再次单击【格式】—【字体】然后根据需要设置格式即可，设置后效果如下图。

最后去掉“使用通配符”选项，然后单击全部替换即可完成该替换效果。如下图

小技巧：使用这个方法给文本添加格式，也是通过替换实现的，查找内容与替换为内容是一样的，不同的是先单击“更多按钮”然后定位光标在替换为后，再单击【格式】—【字体】设置即可。

转载请注明出处：读书屋office教程网;作者陈飞;

来源链接：http://www.dushuwu.net/xqkan.aspx?newsid=531