Get Ole2 object from SOI document object

Method GET_DOCUMENT_HANDLE of  I_OI_DOCUMENT_PROXY
return exporting parameter: HANDLE (structure type CNTL_HANDLE )

CNTL_HANDLE-OBJ has type OBJ_RECORD, same as OLE2_OBJECT in Type group  OLE2.

 OLE2_OBJECT can be used by statement CALL METHOD OF, SET PROPERTY OF, SET PROPERTY OF, Function Module CONTROL_GET_PROPERTY, or Function Module CONTROL_SET_PROPERTY. 

(like in https://scn.sap.com/thread/74462)

PRT for operation

Case 1 :
   AFKO-AUFPL = AFFH-AUFPL

Case 2 : Table
  MAPL , PLPO , PLAS , PLFH

VB For Application - Object Browser

1. Open Excel or Word.
2. Hold Alt + F11 for open Microsoft Visual Basic for Applications

3. Click button Object Browser.

ABAP OLE Programming for Excel

DATA: h_excel TYPE ole2_object,        " Excel object
        h_mapl TYPE ole2_object,         " list of workbooks
        h_map TYPE ole2_object,          " workbook
        v_filename TYPE string VALUE 'C:\Users\phoonookan\Desktop\1111.xlsx'.

  CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
  SET PROPERTY OF h_excel  'Visible' = 1.
  CALL METHOD OF h_excel 'Workbooks' = h_mapl.
  CALL METHOD OF h_mapl 'Open' = h_map
    EXPORTING
    #1 = v_filename.

*CALL METHOD OF h_map 'PrintOut'.
  CALL METHOD OF h_map 'PrintPreview'.
  CALL METHOD OF h_mapl 'Close'.

MS word editor in Smartforms

Go to se38

Run RSCPSETEDITOR

     Check is SAPscript and Smart Form boxes Active.

     Uncheck is SAPscript and Smart Form boxes Inactive.

And click in Activate button.

Emphasize in ALV

Emphasize is a 4-char field where :

     - 1st char = C (color property)

     - 2nd char = color code (from 0 to 7)

          0 = background color

          1 = blue

          2 = gray

          3 = yellow

          4 = blue/gray

          5 = green

          6 = red

          7 = orange

     - 3rd char = intensified (0=off, 1=on)

     - 4th char = inverse display (0=off, 1=on)

ABAP performance tuning for Nested Loop

SORT itab1 BY F1.

SORT itab2 BY F1.

LOOP AT itab1.
    READ TABLE itab2 TRANSPORTING NO FIELDS 

    WITH KEY matnr = itab1-F1 BINARY SEARCH.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.
    v_indx = sy-tabix.
    LOOP AT itab2 FROM v_indx.
      IF itab1-F1 <> itab2-F1.
        EXIT.
      ENDIF.

          …

    ENDLOOP.

ENDLOOP.