Runtime errror opening Word from Excel

[CNorth]

Hi

I can no longer open Word from Excel. I have been using a macro for some time with no issues but all of a sudden the procedure generates a runtime error/server execution failed (80080005) on the following line Set wrd = New word.Application

The Microsoft Word Object Library is selected under References. I have tried the code with and without Word open, I have have also tried late binding but the problem persists. Oddly, I can open Excel from Word. The code I am using to open Word from Excel is

Sub openWord()

Dim wrd As word.Application
Set wrd = New word.Application
wrd.Documents.Add
wrd.Visible = True

End Sub

Any ideas would be really appreciated.

Thanks

Caroline

 

[NdNoviceHlp]

Hi Caroline. Seems like your missing setting the doc to a variable. HTH. Dave

Dim wrd As word.Application, objDoc as object
Set wrd = New word.Application
Set objDoc = wrd.Documents.Add
wrd.Visible = True

 

[CNorth]

Thank you for responding. I’ve since realised a system upgrade has changed the security settings; when I run the code a pop up (non excel based) appears stating there could be a risk and to disable the macro. When I close it, the macro runs as normal.

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Be safe. Dave