function main
abre_word()
return


*************************
PROCEDURE Abre_word(cARQ)
*************************
LOCAL oWord,oText
PRIVATE oDlgHabla:=NIL

oWord:=ToleAuto():New( "Word.Application" )
oWord:Documents:Open( "teste.doc" ) 

oWord:Visible := .T. 
oWord:WindowState := 1
return