Crear documento de Word con texto e imagen

Post Reply
Alvaro Urdaneta
Posts: 67
Joined: Wed Mar 29, 2006 10:54 pm
Location: Venezuela

Crear documento de Word con texto e imagen

Post 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
Saludos

Alvaro Urdaneta

Fwh 10.8, xharbour1.2.1, bcc582, Brw45
Post Reply