' This example requires MS WORD
' If you're using a localized version with a foreign language,
' you'll have to adjust the parameter names to match.
' Comments in italics indicate the old style syntax before
' type checking was disabled.  You can choose either approach.

$ESCAPECHARS ON

DIM Object AS QOLEOBJECT

Object.CreateObject("vba")
Object.AppShow
Object.fileOpen "t.doc"
Object.EditSelectAll
Object.AppMaximize("", 1)
'Object.FileNew
Object.SaveAs ("TEST.doc")

'retText$ = Object.Selection.text$()
'print  retText$ 

'PRINT Object.Bold  '-- is bold enabled?

'Object.Insert("Hello world!\n")
'Object.Bold

'PRINT Object.Bold  '-- Bold should be enabled

'Object.Insert("Rapid-Q is awesome!\n")
'Object.Bold(0)     '-- Turn Bold off

'SLEEP 5

'Object.Free