Excel生成Word文档时遇Automation Error：远程过程调用失败求助

一、先搞定“一旦报错就次次触发”的核心问题 #

这个问题90%是残留的Word进程搞的鬼——报错后Word进程没正常退出，后续代码还会连接到这个损坏的进程，必然重复报错。

• 代码启动前先清残留进程：

  ' 开头加这段，强制杀掉所有Word进程
  On Error Resume Next
  Shell "taskkill /f /im WINWORD.EXE", vbHide
  On Error GoTo 0
  ' 给系统留200ms处理时间再启动Word
  Sleep 200 ' 需在模块顶部声明：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Set objWord = CreateObject("Word.Application")
  

• 调试时如果触发错误，必须手动打开任务管理器结束所有WINWORD.EXE进程，再重新运行代码，别直接点继续。

二、修复.typeParagraph和剪贴板相关报错 #

这类随机报错大多是Office对象资源占用冲突，尤其是剪贴板和Selection对象不稳定导致的：

1. 替换Selection为Range操作
   Selection对象对系统状态太敏感，改用Range对象更稳定，把objWord.Selection.TypeParagraph换成：

Dim objRange As Object
Set objRange = objWord.Selection.Range
objRange.Collapse Direction:=0 ' 对应wdCollapseEnd，晚绑定用数值0
objRange.Text = vbCrLf ' 等价于换行/新建段落
Set objRange = Nothing

2. 优化剪贴板操作流程
   粘贴后立即清空剪贴板，并且给系统留处理时间，避免剪贴板被占用：

' 复制DTStudy区域后执行粘贴
DTStudyRange.Copy
objWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile ' 根据内容调整类型
' 强制清空剪贴板
Dim objClipboard As Object
Set objClipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objClipboard.SetText ""
objClipboard.PutInClipboard
Set objClipboard = Nothing
' 延迟100ms让系统处理完剪贴板操作
Sleep 100
' 再执行段落操作

3. 避免跨工作簿直接引用区域
   如果DTStudy和DTStudy2来自不同的Excel工作簿，直接跨簿复制容易触发RPC调用冲突，先把内容复制到当前工作簿的临时表中转：

' 把外部工作簿的DTStudy区域复制到当前表的临时工作表
Workbooks("外部工作簿名.xlsx").Sheets("DTStudy").Range("A1:Z100").Copy ThisWorkbook.Sheets("TempSheet").Range("A1")
' 再从临时表复制到Word
ThisWorkbook.Sheets("TempSheet").Range("A1:Z100").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
' 清空临时表
ThisWorkbook.Sheets("TempSheet").Cells.Clear

三、解决DTStudy2的PasteSpecial随机错误 #

• 检查DTStudy2区域是否有合并单元格、嵌入图片/控件这类特殊内容，这些会增加剪贴板处理的复杂度，尽量先统一格式再复制。
• 明确指定PasteSpecial的类型，不要用默认值：

  DTStudy2Range.Copy
  ' 如果是表格就用wdPasteTable，文本用wdPasteText，按需调整
  objWord.Selection.PasteSpecial DataType:=wdPasteTable
  

四、最后别忘了正确释放对象 #

操作完成后按层级释放所有Office对象，避免残留：

' 先释放子对象
Set objRange = Nothing
Set objWordDoc = Nothing
' 退出Word再释放主对象
objWord.Quit SaveChanges:=False
Set objWord = Nothing

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