|
Código fuente -
Ejemplos
|
|
Viernes, 12 de Septiembre de 2003 11:28 |
Generar documento de word
REPORT zbda_word .
INCLUDE ole2incl.
INCLUDE docsincl.
DATA: objeto(100),
object_word TYPE ole2_object,
solicitud LIKE thead-tdname,
w_prog(10),
w_cons(10),
fec_ent(10),
p_fich(14) VALUE 'Incidencia_'.
*Abrir la plantilla Word
CREATE OBJECT object_word 'WORD.BASIC'.
IF sy-subrc <> 0.
MESSAGE s208(00) WITH 'Error al abrir Word'.
LEAVE LIST-PROCESSING.
ENDIF.
CALL METHOD OF object_word 'FILEOPEN' EXPORTING #1 = p_plant.
IF sy-subrc NE 0.
MESSAGE s208(00) WITH 'Error al abrir la plantilla'.
LEAVE LIST-PROCESSING.
ENDIF.
* Sustituir campos de la plantilla por los datos recuperados de tu propio problema
* Módulo
CALL METHOD OF object_word 'WW2_EDITREPLACE'
EXPORTING #1 = 'W_MODULO'
#2 = t_incidencia-modulo.
* Título
CALL METHOD OF object_word 'WW2_EDITREPLACE'
EXPORTING #1 = 'W_TITULO'
#2 = t_incidencia-titulo.
*Es decir reemplazo los marcadores que me he creado en la plantilla.
* Salvar incidencia
CALL METHOD OF object_word 'FILESAVEAS' EXPORTING #1 = objeto.
IF sy-subrc = 0.
CALL METHOD OF object_word 'APPCLOSE'.
IF sy-subrc <> 0.
MESSAGE s208(00) WITH 'Error al cerrar Word'.
ENDIF.
ENDIF.
|
