Option Explicit

Dim wordApp
Dim doc

On Error Resume Next

Set wordApp = CreateObject("Word.Application")

If Err.Number <> 0 Then
    MsgBox "FAILED to create Word.Application" & vbCrLf & vbCrLf & _
           "Error: " & Err.Number & vbCrLf & _
           Err.Description, vbCritical, "Word ActiveX Test"
    WScript.Quit
End If

On Error GoTo 0

MsgBox "Word automation started successfully." & vbCrLf & _
       "Word version: " & wordApp.Version, _
       vbInformation, "Word ActiveX Test"

wordApp.Visible = True

Set doc = wordApp.Documents.Add()

doc.Content.Text = _
    "Microsoft Word ActiveX / COM automation is working." & vbCrLf & vbCrLf & _
    "This document was created from a VBScript using:" & vbCrLf & _
    "CreateObject(""Word.Application"")"

wordApp.Activate

MsgBox "Test complete." & vbCrLf & _
       "If you can see the Word document, COM automation is working.", _
       vbInformation, "Word ActiveX Test"

' Leave Word open so you can inspect it.
Set doc = Nothing
Set wordApp = Nothing