将Excel范围复制到Outlook Mail:无法使用该方法或属性，因为该文档已锁定用于编辑

Question

我在复制excel范围从工作表通过用户形式和粘贴到Outlook时会出现错误。

错误4605出现，指出该文档已锁定用于编辑。

我第一次会出现此错误，但是第一次来来就去了。当我单击调试时，我将带我进入页面编辑器行项目之一。

Private Sub Quoteiso9001_Click() 
    Dim outlook As Object
    Dim newEmail As Object
    Dim xInspect As Object
    Dim pageEditor As Object
    
    Set outlook = CreateObject("Outlook.Application")
    Set newEmail = outlook.CreateItem(0)
    
    With newEmail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = Sheet1.Range("C6").Text
        .Body = "Dear Valued Client" & vbCrLf & vbCrLf & "On behalf of SGS, we are delighted to provide you with an Estimate of Investment for ISO 9001:2015 Third Party Certification." & vbCrLf & "To meet your certification needs, I have enclosed an estimate of investment and timing for your review and consideration."
        .display
        
        Sheet1.Range("A8:G30").Copy
        
        Set xInspect = newEmail.GetInspector
        Set pageEditor = xInspect.WordEditor
               
        pageEditor.Application.Selection.Start = Len(.Body)
        pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
        pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
        .display
        
        
        Set pageEditor = Nothing
        Set xInspect = Nothing
    End With
    
    Set newEmail = Nothing
    Set outlook = Nothing
End Sub

Answer 1

尝试用下面的代码替换 pageEditor节

pageEditor.Application.Selection.Start = Len(.body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
.display
Application.Wait (Now + TimeValue("0:00:02"))
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.Send