VBA Error Code Type Mismatch

[cvincent]

The following runs fine, however my Excel file is displaying Run-time error 13: Type mismatch. Not sure what that means. Can someone please tell me how to correct this? Thank you.


Sub OpenWordDoc()

Application.DisplayAlerts = False
Dim wordApp As Object
Dim wordDoc As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.documents.Open("F:\EMERGENCY CONTACT MERGE DOC (6-2013).docm", ReadOnly:=True)

Application.DisplayAlerts = True
End Sub

 

[Snakehips]

cvincent,

You have different strings declaring the object variables compared to when you are setting them!!

Hope that helps.

 

[cvincent]

cvincent,

You have different strings declaring the object variables compared to when you are setting them!!

Hope that helps.

Thank you for taking the time to look at this. I am not very familiar with object variables, and no on-site support. Thank goodness for Mr. Excel! This will help me correct it.

 

[devlynsyde]

Did you get it corrected cvincent? He's referring to you having declared the variables as WordApp and WordDoc but set them as wrdApp and wrdDoc.

 

[cvincent]

Did you get it corrected cvincent? He's referring to you having declared the variables as WordApp and WordDoc but set them as wrdApp and wrdDoc.

Yes, thank you devlynsyde, I did. I saw the differences corrected it, then changed it up a bit.