[Anas Mahmoud]

كود :

Private Sub Command1_Click()
On Error Resume Next

oWord = CreateObject("Word.Application")

If Err.Number <> 0 Then
    If Err.Number = 429 Then
        'Cannot create object
        MsgBox "Word is not available"
    End If
    'Failed
    Unload Me
Else
     MsgBox "Word is available"
End If
End Sub

https://www.experts-exchange.com/questio...#succeeded