vba - MS365 Word VBA Selection.Paste Word Table Run-time error: 4605, but not debug

Question

MS 365 Word VBA 宏

复制宏开头的表格供以后使用，然后更改原始表格以获得所需的输出。几个子例程之后，它从剪贴板粘贴表格。在 MS365 之前，这可以正常工作。

现在，我们得到运行时错误 4605，此方法或属性不可用，因为剪贴板为空或无效。

当我们调试错误并按F8键时，剪贴板中的内容粘贴没有问题。如果我们在错误上单击运行按钮，宏会粘贴内容并继续操作，直到再次需要复制的表，此时会发生相同的错误。结果相同。F8 和运行都继续复制内容并继续操作。

• 尝试更改为 Selection.PasteSpecial。结果相同。

• 尝试清除剪贴板。结果相同。

• 尝试关闭剪贴板历史记录。结果相同。

• 尝试关闭智能复制粘贴选项。结果相同。

• 使用各种 DataTypes 尝试了 Selection.PasteSpecial 的各种选项。没有工作，或者我们得到了相同的结果。

我们可以手动将剪贴板中的内容粘贴到代码中的同一位置（结束代码后）。

奇怪的是调试模式会粘贴内容，但运行时不会。

这是复制表格的内容：

 DOCNAME1.Tables(1).Select
 DOCNAME1.Tables(1).AutoFitBehavior wdAutoFitFixed
 Selection.HomeKey Unit:=wdStory, Extend:=wdMove
 Selection.WholeStory
 Selection.Copy

也试过

DOCNAME1.Tables(1).Copy

而且，还使用了范围方法......能够让所有三个将表格复制到剪贴板，但没有人改变它的粘贴方式。

粘贴代码很简单：

Selection.PasteSpecial

或原件：

Selection.Paste

有什么想法吗？想法？请帮忙。

标签： vbams-wordoffice365paste