Opening Word from Excel.

[Rick2000]

Just started learning about VBA. Despite following the codes below from the tutorials, I still get the "Run-time error 91: Object variable or With block variable not set" error . Don't know where I am going wrong and I would appreciate your advice.

Many thanks in advance.

Rick.


My codes are:

Sub OpenWordDoc()
Dim wdapp As Word.Application
Dim wddoc As Word.Document

On Error Resume Next

Set wdapp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdapp = GetObject("Word.Application")
End If
On Error GoTo 0

wdapp.Documents.Open ("C:\Documents.docx")

Set wddoc = wdapp.ActiveDocument

wdapp.Visible = True


End Sub

 

[Michael M]

Hi Rick and welcome to the Board
A few little errors. Compare this one to yours.

Sub OpenWordDoc()
Dim wdapp As Object 'object not Application
Dim wddoc As Object 'object again

On Error Resume Next

Set wdapp = CreateObject("Word.Application") 'create NOT Get
    If Err.Number <> 0 Then 'Word isn't already running
    Set wdapp = GetObject("Word.Application") 'Create NOT Get
    End If
On Error GoTo 0
wdapp.documents.Open Filename:="C:\Documents.docx" 'Filename statement added ANDMake sure the path and filename are correct 
Set wddoc = wdapp.ActiveDocument

wdapp.Visible = True
End Sub

HTH

 

[Rick2000]

Hi Rick and welcome to the Board
A few little errors. Compare this one to yours.

Sub OpenWordDoc()
Dim wdapp As Object 'object not Application
Dim wddoc As Object 'object again

On Error Resume Next

Set wdapp = CreateObject("Word.Application") 'create NOT Get
    If Err.Number <> 0 Then 'Word isn't already running
    Set wdapp = GetObject("Word.Application") 'Create NOT Get
    End If
On Error GoTo 0
wdapp.documents.Open Filename:="C:\Documents.docx" 'Filename statement added ANDMake sure the path and filename are correct 
Set wddoc = wdapp.ActiveDocument

wdapp.Visible = True
End Sub

HTH

Thanks Michael. I tried you suggestions but didn't work.
For some reason, I only got it to work if I use:
Dim wdapp as Word.Application
Dim wddoc as Word.Document

Thanks again.