如何批量处理.doc/.docx文档 查找替换指定文本为空段落

示例环境 #

初始需求的逻辑框架存在几处语法问题：遍历目录文件需要调用os.listdir、重复判断了.doc后缀、字典变量名与遍历逻辑冲突，修正后的参考框架：

replace_map = {"camel":"create-para","donkey":"monkey","cat":"dog"}

cwd = os.getcwd(".")
for file in os.listdir(cwd):
    if file.endswith(".doc") or file.endswith(".docx"):
        for old_str, new_str in replace_map.items():
            # 对当前文件执行对应替换操作
            pass

核心规则说明 #

• 替换映射中值为create-para时，对应操作是：删除匹配到的原字符串，在原位置插入一个空段落。
• 如果使用VBA宏实现，不需要自定义段落插入逻辑，直接用Word原生查找替换的段落标记^p对应create-para即可，规则写法参考：

replace_map = {"camel":"^p","donkey":"monkey","cat":"dog"}

实现方式 #

1. Python批量处理（可批量处理目录下所有文档） #

推荐使用python-docx库处理.docx格式文档，旧版.doc格式建议先统一转换为.docx再处理，避免兼容问题。
以需求中“删除文档内materials单词，替换为空段落”为例，替换前后效果对比如下：

替换前效果	替换后效果

可直接运行的参考代码：

import os
from docx import Document

# 配置替换规则
replace_map = {
    "camel": "create-para",
    "donkey": "monkey",
    "cat": "dog",
    "materials": "create-para"
}

def process_single_docx(file_path):
    doc = Document(file_path)
    for para in doc.paragraphs:
        for old_text, new_text in replace_map.items():
            if old_text not in para.text:
                continue
            if new_text == "create-para":
                # 替换为段落标记，实现空段落效果
                para.text = para.text.replace(old_text, "\n\n")
            else:
                # 普通文本直接替换
                para.text = para.text.replace(old_text, new_text)
    doc.save(file_path)

if __name__ == "__main__":
    current_dir = os.getcwd()
    for file_name in os.listdir(current_dir):
        if file_name.endswith(".docx"):
            full_path = os.path.join(current_dir, file_name)
            process_single_docx(full_path)

2. VBA宏实现（适合Word内直接操作） #

直接调用Word原生的查找替换能力即可，不需要额外处理段落拆分，^p会自动被识别为段落分隔，参考代码：

Sub BatchTextReplace()
    Dim replaceDict As Object
    Set replaceDict = CreateObject("Scripting.Dictionary")
    
    ' 配置替换规则
    replaceDict.Add "camel", "^p"
    replaceDict.Add "donkey", "monkey"
    replaceDict.Add "cat", "dog"
    replaceDict.Add "materials", "^p"
    
    ' 执行全文档替换
    For Each key In replaceDict.Keys
        ActiveDocument.Content.Find.Execute _
            FindText:=key, _
            ReplaceWith:=replaceDict(key), _
            Replace:=wdReplaceAll, _
            MatchWholeWord:=True
    Next
End Sub

内容的提问来源于stack exchange，提问作者cphysicixt