Page 1 of 1

Crear documento de Word con texto e imagen

Posted: Fri Apr 13, 2007 2:32 am
by Alvaro Urdaneta
Saludos al foro, estoy utilizando ole2 para crear un archivo DOC y funciona bien pero quiero agregar un BMP en el tope y otro en el pie de pagina. Alguien me podria indicar como se hace ?, Gracias anticipadas.

FUNCTION MAIN()
LOCAL oWord, oDoc, oTexto, cNombre := "c:\prueba"

oWord := TOleAuto():New( "Word.Application" )
oWord:Documents:Add()

oTexto := oWord:Selection()
oTexto:Text := "PRUEBA"
oTexto:Font:Name := 'ARIAL'
oTexto:Font:Size := 12
oTexto:Font:Bold := .T.
oTexto:Font:Italic := .T.
oTexto:Font:Underline := .T.
oTexto:Font:color := 32768
//oTexto:oPageSetup := 2
oTexto:Orientation := 0 //1
oTexto:ParagraphFormat:Alignment := 0 //0,1,2,3

oDoc := oWord:Get( "ActiveDocument" )

oWord:Visible := .T.
oWord:Set( "WindowState", 1 ) // Maximizado
oDoc:SaveAs( cNombre )
oTexto:End()
oWord:End()
RETURN NIL

Saludos