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.