Word afsluiten met vba excel

[bloemenman]

ik heb in excel een programmaatje gemaakt met hyperlinks naar word.
Met vba heb ik een knop gemaakt om het (excel)programma te sluiten. Nu is mijn vraag kan ik via deze code ook het word document afsluiten.

Private Sub CommandButton2_Click()
MsgBox "De dagplanning wordt nu AFGESLOTEN en NIET verzonden!"

Application.DisplayAlerts = False
Application.Quit


End Sub

wie kan mij helpen?

 

[HSV]

Test het eens.

Dim Wnword As Object
Set Wnword = CreateObject("Word.Document")
Wnword.Application.Quit

 

[bloemenman]

Het werkt! Super.
Veel dank:thumb:

groeten de bloemenman

 

[bloemenman]

Ik heb nog een vraagje (weet niet of dit als een nieuwe vraag moet worden gemaakt, maar probeer t zo even)
de code om word te sluiten werkt prima. Ik zoek nu ook nog een code om word te minimaliseren.

 

[Warme bakkertje]

  On Error Resume Next
  With GetObject(, "Word.Application")
    .ActiveWindow.WindowState = 2
  End With