求助：selection.paste出现4605错误

宏代码选手的通病！
先百度 关闭自动计算 和 屏幕刷新 看看
不行的话 就试着 舍弃 select selection 这类的代码
复制的话 cells.copy cells

问题以一种奇怪的方式解决了：
0. 如果增加on error resume next，4605错误出现的for周期后的循环也同样会报错。
1. 首先，由于我需要移动的段落可能包含图片和表格，无法使用range.text或range.formattedtext的方法代替range.copy/cut-paste实现段落的移动。
2. 其次，由于错误的随机性，将程序逻辑从cut→paste改成了copy→paste→if not err→delete。防止因为剪切段落未成功粘贴从而从文档消失。
3. 最后，解决方案如下：在模块开头声明kernel32.dll的Sleep函数，并在4605错误发生时用Sleep函数使程序待机一段时间后，重新尝试复制粘贴。代码后附。
----------------------------------------------------------------
出于不为人知的原因，我设置的等待时间越长，发生4605错误的for周期越少。最后当把Sleep时间设定为40000毫秒时，第一次错误仍会出现错误，但在Sleep后，重新尝试复制粘贴成功，且后面的循环不再报错。
猜测sub过程在执行时，剪贴板有时候会出错/崩溃。需要（一次性地）等待一段时间，使剪贴板修复/重启。这个时间不确定，在我电脑上大约是25~40秒之间。
----------------------------------------------------------------
附1：Sleep函数的声明代码
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
附2：修改后的sub过程代码
vArr(i).tAnsRng.Copy
vTmpRng.Paste
If Err.Number = 4605 Then
Debug.Print vArr(i).tQueInd & "出现错误4605"
Sleep 40000 ' 等待时间越少，错误且无法修复的次数越多
Err.Clear
vArr(i).tAnsRng.Copy
vTmpRng.Paste
If Err.Number = 4605 Then ' 等待后二次尝试
Err.Clear
Debug.Print "错误未修复"
Else
vArr(i).tAnsRng.Delete
End If
Else
vArr(i).tAnsRng.Delete
End If
----------------------------------------------------------------
感想1：吐了，以后从业务层面尽量避免复制粘贴吧。
感想2：跑复杂的宏好慢啊，是电脑配置跟不上了吗...？

遇到了同样的问题，换了一种方法。把复制的文本保存到变量中，然后打出变量：
Dim TX As String
'………
Selection.Copy
TX = Selection.Text
Selection.TypeText Text:=TX

只想问问，出错时，selection是什么内容?

我是打开word文件第一次运行到新建word文件，粘贴用selection.paste会报4605错误，然后点调试，再运行就成功了。
此时不关闭这个word文件，再继续运行都不会报错了，但是每次新打开就会报错，在selection.paste之前加一个MsgBox就不报错了，但是这样会有个弹窗也很不爽

我这边也遇到这个问题，试了楼上说的msgbox弹窗，确实可以。我尝试了另一个办法也可以实现，doevents可以强势刷新系统。用法加上on error resume next，粘贴指令后面加一个判断，如果err.number<>0，则进入循环执行三行的doevents，然后再次粘贴，并执行err.clear，亲测有效。