Microsoft Office Forums - View Single Post

matapagi2019 · 03-09-2019, 11:03 PM

I want the button on userformTombol in document "Agendaku.docm" activate after The Excel application Quit.
What is the mistakes in the following code: ? (error message : Object dosn't support this property or method)

Code:

Private Sub CommandButton1_Click()Dim ObjWord As Object
Dim ObjDoc As Object
Dim ObjForm As Object
    Set ObjWord = GetObject(, "Word.Application")
    Set ObjDoc = ObjWord.Documents("D:\Agendaku.docm")
    ObjWord.Visible = True
    Set ObjForm = ObjWord.ObjDoc.UserFormTombol
        ObjForm.CommandButton1.Enabled = True
        ObjForm.CommandButton3.Enabled = False
    ActiveWorkbook.Save
    Windows.Application.Quit
End Sub

Thank you all !