Data in report to word doc

Question

Hi all,
I get only one field data(ie frm MANDT) from report to Word doc.
How can i get the record of a table.
REPORT  ZMGC_INT.
INCLUDE OLE2INCL.
DATA P_FWOR LIKE RLGRAP-FILENAME.
DATA I_BUFFER TYPE .
PERFORM LANZA_WORD.
FORM LANZA_WORD.
DATA: WORDAPP TYPE OLE2_OBJECT,
DOCUMENT TYPE OLE2_OBJECT,
SELECTION TYPE OLE2_OBJECT.
Copia el contenido del buffer en el portapeles
               CALL FUNCTION 'ZCLPB_EXPORT'
                 TABLES
                   DATA_TAB         = I_BUFFER
                 EXCEPTIONS
                   CLPB_ERROR       = 1
                   OTHERS           = 2.
               IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
               ENDIF.
Abre Word
CREATE OBJECT WORDAPP 'word.application'.
IF SY-SUBRC NE 0.
MESSAGE E398(00) WITH 'No se ha podido abrir el Word'.
ENDIF.
Lo pone en visible
SET PROPERTY OF WORDAPP 'Visible' = 1.
Cogemes el objeto documento
CALL METHOD OF WORDAPP 'Documents' = DOCUMENT.
Abrimos el fichero plantilla
IF P_FWOR IS INITIAL.
CALL METHOD OF DOCUMENT 'Add'.
ELSE.
CALL METHOD OF DOCUMENT 'Open' EXPORTING #1 = P_FWOR.
IF SY-SUBRC NE 0.
MESSAGE E398(00) WITH 'Error al leer el fichero plantilla'.
ENDIF.
ENDIF.
Coge el objeto selección
CALL METHOD OF WORDAPP 'Selection' = SELECTION.
Pega el contenido del portapapeles
CALL METHOD OF SELECTION 'Paste'.
IF SY-SUBRC NE 0.
WRITE 'PASTE'.
ENDIF.
Graba el fichero
CALL METHOD OF WORDAPP 'ActiveDocument' = DOCUMENT.
*CALL METHOD OF DOCUMENT 'SaveAs' EXPORTING #1 = P_FWOR.
*IF SY-SUBRC NE 0.
*MESSAGE E398(00) WITH 'Error al grabar el nuevo documento'.
*ENDIF.
Cierra Word
CALL METHOD OF WORDAPP 'Quit'.
IF SY-SUBRC NE 0.
MESSAGE E398(00) WITH 'Error al cerrar Word'.
ENDIF.
ENDFORM. " LANZA_WORD

Answer 1

Ranjith,
  Go to tcode SE83 -
>CONTROLS---->BASICS----->Desktop Office Integration.
Right side  examples .You will find the required code.
Pls. Mark if useful