VBA close down all open word docs

[Pinaceous]

Hi All,

I'm trying to find a vba code that will close down all open word documents.

Can anyone post?

Thank you!
pinaceous

 

[Skyybot]

Application.Documents.Close

 

[Pinaceous]

Hey *Skyybot!

I'm getting an error with that code.

I thought it was something with my Reverences?

But when I check off my Microsoft Office 16.0 Object Library, it still gives me an error.

Thanks,
pinaceous

 

[Peter_SSs]

Are you trying to do this from within Excel?

 

[Pinaceous]

Hi Peter_SSs,

Yes, I'm running an excel sub that requires that all open word documents close.

Do you have a code for this type of situation?? Because the one above did not work.

Kindly let me know.

Thank you!

Respectfully,
pinaceous

 

[Skyybot]

Hey *Skyybot!

I'm getting an error with that code.

I thought it was something with my Reverences?

But when I check off my Microsoft Office 16.0 Object Library, it still gives me an error.

Thanks,
pinaceous

What error are you getting?

 

[Peter_SSs]

Do you have a code for this type of situation??

No. I was only asking to ascertain that your thread was in the appropriate forum.

 

[Skyybot]

No. I was only asking to ascertain that your thread was in the appropriate forum.

Moderators.....Always gotta make sure things are done correctly. Ugh....

 

[Pinaceous]

I'm getting no error or nothing at all.

But I think this might work.

Sub CloseWord()

    Dim W As Object
    On Error Resume Next
    Set W = GetObject(, "Word.Application")
    If W Is Nothing Then Exit Sub
    W.ActiveDocument.Close SaveChanges:=False
    W.Quit
    Set W = Nothing
 
    
End Sub

 

[Peter_SSs]

I'm getting an error with that code.

I thought it was something with my Reverences?

But when I check off my Microsoft Office 16.0 Object Library, it still gives me an error.

I'm getting no error or nothing at all.

That is very confusing!!