*&---------------------------------------------------------------------*
*& Report  ZREPORT_ALS_MS_WORD_DOK
*&
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------- 
* Stefanos Moschidis - SAP Certified Technical Consultant
*-----------------------------------------------------------------------

REPORT  ZREPORT_ALS_MS_WORD_DOK LINE-COUNT 60 LINE-SIZE 132
    NO STANDARD PAGE HEADING.


DATA : BEGIN OF IT_DATA OCCURS 0,
       DESCR(20) TYPE C,
       NUM(10) TYPE C,
       END OF IT_DATA.
DATA GV_NDX(4) TYPE N.

*===========================================================
TOP-OF-PAGE .
*===========================================================
  WRITE: / 'Report als MS-Word-Dokument' COLOR COL_HEADING,
           40 'Seite:' , SY-PAGNO.

*===========================================================
START-OF-SELECTION .
*===========================================================
* ..........................................................
* Schritt 1 - Daten-Selektion
* ..........................................................
  PERFORM PREPARE_DATA .

* ..........................................................
* Schritt 2 - Daten-Liste
* ..........................................................
  PERFORM LIST_DATA .

* ..........................................................
* Schritt 3 - Daten in RTF Daten speichern - Aufruf des MS-Words
* ..........................................................
  DATA  LV_DATEIENAME TYPE  LOCALFILE value 'LISTE_IN_MS_WORD'.
  CALL FUNCTION 'Z_LT_PC_APPL_EXECUTE'
    EXPORTING
      DATEIENAME = LV_DATEIENAME
    EXCEPTIONS
      FAILURE = 1
      OTHERS  = 2.

* ..........................................................
* Schritt 3 - Die Listen-Bearbeitung verlassen
* ..........................................................
  LEAVE LIST-PROCESSING .

*&---------------------------------------------------------------------*
*&      Form  list_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM LIST_DATA .
  CLEAR GV_NDX .
  LOOP AT IT_DATA .
    GV_NDX = GV_NDX + 1 .
    WRITE : /10 IT_DATA-DESCR , 25 IT_DATA-NUM .
    IF   GV_NDX  EQ 50.
      CLEAR GV_NDX .
      NEW-PAGE .
    ENDIF .
  ENDLOOP .


ENDFORM.                    "list_data
*&---------------------------------------------------------------------*
*&      Form  PREPARE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM PREPARE_DATA .
  CLEAR IT_DATA .  FREE IT_DATA . CLEAR GV_NDX .
  DO 200 TIMES .
    GV_NDX = GV_NDX + 1 .
    CLEAR IT_DATA .
    CONCATENATE 'Wort_' GV_NDX INTO IT_DATA-DESCR .
    WRITE GV_NDX TO IT_DATA-NUM .
    APPEND  IT_DATA .
  ENDDO .
ENDFORM.                    " PREPARE_DATA