Microsoft Word Detection Script

Previous Top Next

'THINSTALL_RUNTIME_SCRIPT
Function OnExecuteStart
On Error Resume Next
objShell = CreateObject("Word.Document")
If Err.Number <> 0 Then
MsgBox "This application requires Microsoft Word to be installed", vbOKOnly, "Microsoft Word not installed"
ExitProcess 0
end if
end function