代码“paste作用selection对象失败怎么解决”

zhgj007

网上找了段代码，修改了一下，执行把所有答案复制到文件末尾，有时操作能成功，有时提示“paste作用selection对象失败”。

哪位高人帮忙看看什么原因？我用的wps。
代码如下：

Sub 把带【答案】内容的段落复制到文件末尾()
    Dim doc As Document
    Dim para As Paragraph
    Dim lastPara As Paragraph
   
    ' 获取当前活动文档
    Set doc = ActiveDocument
   
    ' 遍历文档中的所有段落
    For Each para In doc.Paragraphs
        ' 检查段落文本是否包含“答案”
        If InStr(1, para.Range.Text, "【答案】", vbTextCompare) > 0 Then
            ' 复制该段落
            para.Range.Copy
            ' 获取文档的最后一个段落
            Set lastPara = doc.Paragraphs(doc.Paragraphs.count)
            ' 将光标移动到最后一个段落的末尾
            lastPara.Range.Collapse Direction:=wdCollapseEnd
            lastPara.Range.Select
            ' 粘贴复制的段落
            Selection.Paste
            ' 在粘贴的段落后面添加一个空段落
            doc.Paragraphs.Add lastPara.Range
        End If
    Next para
End Sub

vbee

Sub 把带【答案】内容的段落复制到文件末尾()
    Dim doc As Document
    Dim para As Paragraph
    Dim lastPara As Paragraph
   
    ' 获取当前活动文档
    Set doc = ActiveDocument
    PC = 0: PCount = doc.Paragraphs.Count
   
    ' 遍历文档中的所有段落
    For Each para In doc.Paragraphs
    PC = PC + 1
    If PC > PCount Then Exit For
        ' 检查段落文本是否包含“答案”
        If InStr(1, para.Range.Text, "【答案】", vbTextCompare) > 0 Then
            ' 复制该段落
            para.Range.Copy
            ' 获取文档的最后一个段落
            Set lastPara = doc.Paragraphs(doc.Paragraphs.Count)
            ' 将光标移动到最后一个段落的末尾
            lastPara.Range.Collapse Direction:=wdCollapseEnd
            lastPara.Range.Select
            ' 粘贴复制的段落
            Selection.Paste
            ' 在粘贴的段落后面添加一个空段落
            doc.Paragraphs.Add lastPara.Range
        End If
    Next para
End Sub

batmanbbs

这个是老问题了，凡是使用.copy或者.cut方法，都会涉及到写入剪贴板，需要使用延时。延时的长短根据自己的电脑速度来定，一般可以控制在50ms-100ms。

zhgj007

batmanbbs 发表于 2025-3-28 15:51
这个是老问题了，凡是使用.copy或者.cut方法，都会涉及到写入剪贴板，需要使用延时。延时的长短根据自己的 ...

谢谢老师，非常感谢！！！！！！