Error code 4605 which seems random in appearance - Excel 2010

I have a macro which uses a data from an excel file and auto populates a Word document (template). The macro copies text from certain cells and pastes them in the Word document at bookmark locations. However, some times Error code 4605 'This method or property is not available because the Clipboard is empty or not valid'. It almost seems random in where the error appears in the code. In addition I am having trouble with the Word app staying 'live' when the macro runs into an error and I cant seem to close it. This may have something to do we me using objWord and not appWord. But when I substitute objWord for appWord in the code below, it cant seem to find the bookmarks.
Any help with why the error is showing and how to fix it and then how to fix this terminating appWord issue.

Sub LeaseIndividual()

Dim objWord As Object
Dim uname
Set objWord = CreateObject("Word.Application")

uname = Range("H4").Value

objWord.Documents.Open "C:\Users\LARKIN\Desktop\Lingley House\Templates\Lease_Individual.docx"

objWord.Selection.Goto What:=wdGoToBookmark, Name:="TENANT"
ActiveSheet.Select
Range("H5").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="TENANT1"
ActiveSheet.Select
Range("H5").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="RENT"
ActiveSheet.Select
Range("D7").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ROOM"
ActiveSheet.Select
Range("D4").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteTextl

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ROOM1"
ActiveSheet.Select
Range("D4").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="CARPARKING"
ActiveSheet.Select
Range("H15").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="START"
ActiveSheet.Select
Range("H16").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="END"
ActiveSheet.Select
Range("H17").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="COMPANY"
ActiveSheet.Select
Range("H4").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="COMPANY1"
ActiveSheet.Select
Range("H4").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="COMPANY2"
ActiveSheet.Select
Range("H4").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ADDRESS1"
ActiveSheet.Select
Range("H9").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ADDRESS2"
ActiveSheet.Select
Range("H10").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ADDRESS3"
ActiveSheet.Select
Range("H11").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.Goto What:=wdGoToBookmark, Name:="ADDRESS4"
ActiveSheet.Select
Range("H12").Copy
objWord.Selection.PasteSpecial DataType:=wdPasteText

objWord.Selection.WholeStory
objWord.Selection.Copy
objWord.ActiveDocument.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
objWord.Selection.Paste
objWord.Selection.Font.ColorIndex = wdAuto
objWord.Visible = True

objWord.ActiveDocument.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.pdf", FileFormat:= _
        wdFormatPDF

objWord.Quit

Set objWord = Nothing


End Sub

Thanks

You might try sprinkling the DoEvents statement throughout your code. This releases resources to allow other applications to process their own queues and sometimes helps in situations like this.

Hi -

You can avoid copy and paste like;

Sub LeaseIndividual()
Dim objWord As Object
Dim uname
Set objWord = CreateObject("Word.Application")
uname = Range("H4").Value
Set objWord = GetObject("C:\Users\LARKIN\Desktop\Lingley House\Templates\Lease_Individual.docx")
With objWord
    .bookmarks("TENANT").Range.Text = Range("H5").Value
    .bookmarks("TENANT1").Range.Text = Range("H5").Value
    .etc...
    .etc...
End With
end sub

event

event,

Your method certainly looks neater, however I get Run-time error '438': Object doesn't support this property or method. Any suggestions?

Storm85

mrice,
I shamelessly inserted half a dozen DoEvents, not really knowing how to use them properly (I assumed you simply put DoEvents interspersed with sections of code), but to no avail.... Same error immediately following a DoEvent.

Storm85

Hi -

Please post the codes where you get error '438'

event

Here you go:

Sub LeaseIndividual()

Dim objWord As Object
Dim uname
Set objWord = CreateObject("Word.Application")

uname = Range("H4").Value

objWord.Documents.Open "C:\Users\LARKIN\Desktop\Lingley House\Templates\Lease_Individual.docx"

With objWord
    .Bookmarks("TENANT").Range.Text = Range("H5").Value
    .Bookmarks("TENANT1").Range.Text = Range("H5").Value
    .Bookmarks("RENT").Range.Text = Range("D7").Value
    .Bookmarks("ROOM").Range.Text = Range("D4").Value
    .Bookmarks("ROOM1").Range.Text = Range("D4").Value
    .Bookmarks("CARPARKING").Range.Text = Range("H15").Value
    .Bookmarks("START").Range.Text = Range("H16").Value
    .Bookmarks("END").Range.Text = Range("H17").Value
    .Bookmarks("COMPANY").Range.Text = Range("H4").Value
    .Bookmarks("COMPANY1").Range.Text = Range("H4").Value
    .Bookmarks("COMPANY2").Range.Text = Range("H4").Value
    .Bookmarks("ADDRESS1").Range.Text = Range("H9").Value
    .Bookmarks("ADDRESS2").Range.Text = Range("H10").Value
    .Bookmarks("ADDRESS3").Range.Text = Range("H11").Value
    .Bookmarks("ADDRESS4").Range.Text = Range("H12").Value
End With
objWord.Selection.WholeStory
objWord.Selection.Copy
objWord.ActiveDocument.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
objWord.Selection.Paste
objWord.Selection.Font.ColorIndex = wdAuto
objWord.Visible = True

objWord.ActiveDocument.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.pdf", FileFormat:= _
        wdFormatPDF

objWord.Quit

Set objWord = Nothing


End Sub

Errors on the first .Bookmarks line.

Hi -

Post the word document as well.

event

event,

Sanitised document attached - thanks of the help.

Storm85

Hi -

this works for me;

Sub LeaseIndividual()
dim objW as object
Dim objWord As Object
Dim uname
Set objW = CreateObject("Word.Application")

uname = Range("H4").Value

set objWord=getobject("C:\Users\LARKIN\Desktop\Lingley House\Templates\Lease_Individual.docx")

With objWord
    .Bookmarks("TENANT").Range.Text = Range("H5").Value
    .Bookmarks("TENANT1").Range.Text = Range("H5").Value
    .Bookmarks("RENT").Range.Text = Range("D7").Value
    .Bookmarks("ROOM").Range.Text = Range("D4").Value
    .Bookmarks("ROOM1").Range.Text = Range("D4").Value
    .Bookmarks("CARPARKING").Range.Text = Range("H15").Value
    .Bookmarks("START").Range.Text = Range("H16").Value
    .Bookmarks("END").Range.Text = Range("H17").Value
    .Bookmarks("COMPANY").Range.Text = Range("H4").Value
    .Bookmarks("COMPANY1").Range.Text = Range("H4").Value
    .Bookmarks("COMPANY2").Range.Text = Range("H4").Value
    .Bookmarks("ADDRESS1").Range.Text = Range("H9").Value
    .Bookmarks("ADDRESS2").Range.Text = Range("H10").Value
    .Bookmarks("ADDRESS3").Range.Text = Range("H11").Value
    .Bookmarks("ADDRESS4").Range.Text = Range("H12").Value
End With
'objWord.Selection.WholeStory
'objWord.Selection.Copy
objWord.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
'objWord.Selection.Paste
'objWord.Selection.Font.ColorIndex = wdAuto
objW.Visible = True

objWord.SaveAs Filename:="C:\Users\LARKIN\Desktop\Lingley House\" & uname & "\Lease\ " & uname & " " & _
 Format(Date, "yyyy-mm-dd") & "-Lease.pdf", FileFormat:= _
        wdFormatPDF

objW.Quit

Set objWord = Nothing
Set objW = Nothing

End Sub

event

Event,

It works a treat - no more error! Thank you for your time and expertise!

Storm85

Event,

It works a treat - no more error! Thank you for your time and expertise!

Storm85

Application.CutCopyMode = False
to clear your clipboard