FiveTech Support Forums

#include "fivewin.ch"

function Main()
LOCAL oWord, oText

TRY
oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
oWord := CreateObject( "Word.Application" )
CATCH
Alert( "ERROR! Word not avialable. [" + Ole2TxtError()+ "]" )
RETURN
END
END

oWord:Documents:Add()

oText := oWord:Selection()

oText:Size := 16

oText:Invoke( "TypeText", "Test 1" + CRLF + CRLF )

oText:Size := 8

oText:Invoke( "TypeText", "Test 2" + CRLF+ CRLF )

oText:Size := 12

oText:Invoke( "TypeText", "Test 3" + CRLF+ CRLF )



oWord:Visible := .T.
oWord:WindowState := 1 // Maximize

return nil

Change
oText:Invoke( "TypeText", "Test 1" + CRLF + CRLF )
with
oText:TypeText("Test 1" + CRLF + CRLF )

Regards

Hola Hasta Ahi creo un encabezado .. alguien sabe como hago para grabarlo sin entrar en word ?

Incidentally FWH provides builtin function WinWordObj().

We can write

oWord := WinWordObj()
if oWord == nil
// error
else
// proceed with using oWord
endif

Similar functions in FWH are ExcelObj() and SunCalcObj()