{currenthelptext} {product} {helptype} {viewcore}

Sub Main()
   Dim MyObj As Object
   Set MyObj = CreateObject ("Word.Basic")
   MyObj.AppShow
   MyObj.FileNewDefault
   MyObj.Insert "Hello, world."
   MyObj.Bold 1
End Sub