嘿，我来帮你搞定这个批量替换Word文档字符还保留格式的问题！

你之前的代码应该是把docx转成纯文本处理了，所以才会丢失格式。推荐用officer包——它能直接操作Word文档的内部结构，替换文本的同时完全保留原有字体、字号、颜色等格式。

具体步骤&代码： #

1. 先安装并加载officer包：

if (!require("officer")) install.packages("officer")
library(officer)

2. 编写批量处理脚本：

# 配置参数，替换成你的实际信息
folder_path <- "C:/你的文件夹路径"  # 注意Windows路径用正斜杠或者双反斜杠
old_text <- "需要替换的旧内容"
new_text <- "替换后的新内容"

# 获取文件夹里所有docx文件
docx_files <- list.files(path = folder_path, pattern = "\\.docx$", full.names = TRUE)

# 逐个处理文件
for (file in docx_files) {
  # 读取Word文档
  doc <- read_docx(file)
  
  # 获取文档里的所有段落
  all_paragraphs <- doc$body$content
  
  # 遍历段落，替换目标文本
  for (i in seq_along(all_paragraphs)) {
    # 只处理普通段落和标题（可根据需要添加其他样式）
    if (all_paragraphs[[i]]$style %in% c("Normal", "Heading1", "Heading2", "Heading3")) {
      # 提取段落文本并替换
      original_text <- all_paragraphs[[i]]$children[[1]]$text
      updated_text <- gsub(old_text, new_text, original_text)
      # 更新段落内容
      all_paragraphs[[i]]$children[[1]]$text <- updated_text
    }
  }
  
  # 把修改后的段落放回文档
  doc$body$content <- all_paragraphs
  
  # 保存文件（直接覆盖原文件，也可以改成新文件名避免覆盖）
  print(doc, target = file)
  cat("已完成处理：", basename(file), "\n")
}

如果你的文档里有表格需要替换文本，可以在循环里加一段处理表格的逻辑：

# 处理表格里的文本（可选）
for (tbl in doc$body$content[grepl("table", names(doc$body$content))]) {
  for (row in tbl$children) {
    for (cell in row$children) {
      cell_text <- cell$children[[1]]$children[[1]]$text
      cell$children[[1]]$children[[1]]$text <- gsub(old_text, new_text, cell_text)
    }
  }
}

如果不想用R，这两个方法也能完美保留格式：

1. Word内置宏（最省心的图形化操作） #

• 打开Word，按Alt+F11打开VBA编辑器
• 右键点击左侧的Normal项目 → 插入 → 模块
• 粘贴下面的宏代码：

Sub BatchReplaceInDocs()
    Dim fd As FileDialog
    Dim docPath As String
    Dim doc As Document
    Dim searchText As String
    Dim replaceText As String
    
    ' 输入要替换的内容
    searchText = InputBox("请输入要替换的旧文本：")
    replaceText = InputBox("请输入替换后的新文本：")
    
    ' 选择目标文件夹
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        docPath = fd.SelectedItems(1) & "\"
        docPath = Dir(docPath & "*.docx")
        
        ' 逐个处理文件
        Do While docPath <> ""
            Set doc = Documents.Open(FileName:=fd.SelectedItems(1) & "\" & docPath)
            With doc.Content.Find
                .Text = searchText
                .Replacement.Text = replaceText
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .Execute Replace:=wdReplaceAll
            End With
            doc.Save
            doc.Close
            docPath = Dir
        Loop
    End If
    MsgBox "批量替换完成！"
End Sub

• 按F5运行宏，跟着提示选文件夹、输入替换内容就行，完全保留原格式。

2. PowerShell脚本（适合习惯命令行的用户） #

Windows自带的PowerShell也能实现，原理和Word宏一样，调用Word COM对象：

# 配置参数
$folderPath = "C:/你的文件夹路径"
$oldText = "需要替换的旧内容"
$newText = "替换后的新内容"

# 启动Word进程
$word = New-Object -ComObject Word.Application
$word.Visible = $false

# 遍历并处理所有docx文件
Get-ChildItem -Path $folderPath -Filter *.docx | ForEach-Object {
    $doc = $word.Documents.Open($_.FullName)
    $find = $doc.Content.Find
    $find.Text = $oldText
    $find.Replacement.Text = $newText
    $find.Execute([Microsoft.Office.Interop.Word.WdReplace]::wdReplaceAll)
    $doc.Save()
    $doc.Close()
}

# 关闭Word并释放资源
$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null

运行前记得关闭所有打开的Word窗口，避免冲突。

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