Progress - plantilla en word

 
Vista:

plantilla en word

Publicado por mike (4 intervenciones) el 06/09/2006 19:01:44
saludos a todos, me inicio en esto de progrees y no se como tener acceso a un plantilla de word y mandarle informacion, alguien me puede ayudar???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:plantilla en word

Publicado por yoselin (1 intervención) el 16/10/2006 20:34:57
Debes darle a una variable la ruta de la ubicación de la plantilla y luego realizar lo siguiente:

CREATE "Word.Application" Word_App CONNECT NO-ERROR.
IF ERROR-STATUS:ERROR THEN DO:
CREATE "Word.Application" Word_App.
l_cerrar_word = YES.
END.
ELSE l_cerrar_word = NO.

WORD:
DO ON ERROR UNDO WORD, LEAVE:

Word_Doc = Word_App:Documents:ADD(variable con la ruta de la plantilla, NO, , /*NO*/).
Word_Range = Word_Doc:Range.

Word_Range:Tables:ITEM(1):Cell(1,2):Range = TODAY./*esto es si tienes una tabla en tu plantilla*/
Word_Range:Tables:ITEM(1):Cell(2,2):Range = "".
Word_Range:Tables:ITEM(2):Rows:Borders:ENABLE = YES.
/*y estos los items que definiste previamente en tu plantilla*/
Word_Range:FormFields:ITEM("TituloNomLargo"):RESULT = c_TituloNomLargo.
Word_Range:FormFields:ITEM("NroTomo"):RESULT = c_NroTomo.

Word_App:VISIBLE = YES. /*pone word visible*/
Word_Doc:Activate.
Word_Doc:PrintOut().

RELEASE OBJECT Word_Range.
RELEASE OBJECT Word_Doc.
RELEASE OBJECT Word_App.

ASSIGN Word_Range = ?
Word_Doc = ?
Word_App = ?.

espero todavia estes a tiempo y te sirva la respuesta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar