我写了一个VBA程序来复制一个Excel表格并粘贴到Word中，大约一个月前它还在工作。
现在我收到一个错误：

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

错误为：
运行时错误'4198'命令失败

我的代码的简化版本。

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

代替我尝试的PasteExcelTable行

appword.Selection.PasteSpecial

这给了我同样的'4198'错误。
我的引用上次是有效的，包括Microsoft Word 16.0对象库，并且没有更改。

我怀疑微软改变了参考文献或更新了库。
我在远程桌面上试过这个，它确实起作用了。我需要它在我的电脑上工作。