Hjælp til run time error 4605 og 91

Hej alle,

Jeg har lavet en Macro der kopiere en range af celler med formatering ind i en mail den opretter.
Men jeg får, nogen gange, en af 2 fejl. Disse fejl vil jeg gerne have elimineret.

Den ene fejl hedder
"Run-time error '4605' - Denne metode eller egenskab er ikke tilgængelig, da dokumentet er låst mod redigering"

Når jeg trykker debug, highlighter den, denne linje:
pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)

Den anden fejl hedder:
"Run-time error '91' - Object variable or With block variable not set

Når jeg trykker debug, highlighter den, denne linje:
pageEditor.Application.Selection.Start = Len(.Body)


Makroen kommer her:
Sub Sendmailkl14()

response = MsgBox("KL. 14:00    Er du sikker på at du vil oprette mailen?", vbYesNo)

If response = vbNo Then
    MsgBox ("Mail ej sendt")
    Exit Sub
End If

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 = Worksheets("Data ark - KODE").Range("C29").Text
    .Subject = "Forventet salg kl. 14"
    .Body = "I nedenstående finder i det forventet salg, til produktion " & Worksheets("Mail Forsøg").Range("A2") & vbCrLf & "Aarhus og Odense er udelukkende det nuværende salg" & vbCrLf & vbCrLf & "Ved spørgsmål, kontakt venligst afsender"
    .Display


    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

Application.Wait (Now + TimeValue("00:00:02"))


    Worksheets("Mail Forsøg").Range("A2:G6").Copy

    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
    .Display
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub