VBA执行PasteExcelTable触发Run-time error '4198'命令失败求助

原本正常运行的Excel VBA程序，现在执行粘贴到Word的代码时触发运行时错误'4198'：Command Failed，涉及代码如下：

newdoc.Selection.PasteExcelTable LinkedToExcel:=False, Wordformatting:=False, RTF:=False

简化后的完整测试代码：

Sub CopyRangeToWord()
    ' Copies the range "A1:B2" from the active Excel worksheet
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:B2")
    rng.Copy

    ' Opens a new Word document
    Dim appWord As Word.Application
    Set appWord = New Word.Application
    appWord.Visible = True
    appWord.Activate

    ' Pastes the copied range into the new Word document
    Dim doc As Word.Document
    Set doc = appWord.Documents.Add
    doc.Activate

    appWord.Selection.PasteExcelTable LinkedtoExcel:=False, WordFormatting:=False, RTF:=True
End Sub

尝试替换为appword.Selection.PasteSpecial仍触发相同错误，已引用Microsoft Word 16.0 Object Library且未修改，怀疑是微软更新导致本地环境异常，该程序在远程桌面可正常运行。

方法1：添加延迟确保剪贴板就绪 #

微软更新后剪贴板同步可能存在延迟，添加DoEvents和短暂延时规避：

Sub CopyRangeToWord()
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:B2")
    rng.Copy
    ' 等待剪贴板就绪
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")

    Dim appWord As Word.Application
    Set appWord = New Word.Application
    appWord.Visible = True

    Dim doc As Word.Document
    Set doc = appWord.Documents.Add

    ' 直接操作文档内容，避免Selection焦点问题
    doc.Content.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True
End Sub

方法2：绕过Selection，直接操作文档对象 #

Selection对象易受窗口焦点影响，改用直接操作文档范围的方式粘贴：

' 替换原粘贴代码为以下任意一种：
doc.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True
' 或指定粘贴到文档开头
doc.Range(0, 0).PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True

方法3：修复Office组件注册 #

本地Office组件可能因更新损坏，执行以下命令修复（以Office 2016/365为例）：

1. 打开管理员权限的命令提示符
2. 执行对应位数的命令：
   • 32位Office："%ProgramFiles(x86)%\Microsoft Office\Office16\WINWORD.EXE" /r
   • 64位Office："%ProgramFiles%\Microsoft Office\Office16\WINWORD.EXE" /r
3. 重启电脑后重新测试程序

方法4：卸载近期Office更新 #

若确认是微软更新引发的问题，可卸载最新Office更新：

1. 打开控制面板>程序>程序和功能>查看已安装的更新
2. 按安装日期排序，找到Microsoft Office相关的最新更新
3. 卸载该更新，重启后测试程序

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