Open Word Document: Excel VBA

[Makpo]

I am trying to open a word document and paste a report from an excel sheet using vba but i keep getting the error message "compile error: user-defined type not defined"

What am I doing wrong? Please help

Sub OpenWord()

Dim appWD As Word.Application
On Error Resume Next
Set appWD = CreateObject("Word.Application")
appWD.Documents.Add

End Sub

 

[AlphaFrog]

With your original code above, you first need to set a reference to the Microsoft Word x.0 Object Library.
Setting References In VBA

Or you can use code like this to implicitly reference the Microsoft Word x.0 Object Library

Sub OpenWord2()
    ' Implicit reference MSWord
    Dim appWD As [COLOR="Red"]Object[/COLOR]
    Set appWD = CreateObject("Word.Application")
    appWD.Documents.Add
    appWD.Visible = True
End Sub

 

[Makpo]

Ah I slept off. Thanks a million it worked.