SAP OLE to Word Usage of Text Boxes & Arrow Diagrams

Question

hi this my Macro recording in MS word How to use this as sap Code using SAP OLE
' Macro recorded 3/30/2009 by Nirmala
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 216#, _
        72#, 108#, 54#).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.TypeText Text:="Hma"
    Selection.ShapeRange.Select
    ActiveDocument.Shapes.AddLine(207#, 135#, 261#, 207#).Select
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
    Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
    Selection.ShapeRange.Flip msoFlipHorizontal
    ActiveDocument.Shapes.AddLine(261#, 135#, 306#, 198#).Select
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
    Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 153#, _
        216#, 90#, 54#).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.TypeText Text:="xys"
    Selection.ShapeRange.Select
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 297#, _
        207#, 81#, 63#).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.TypeText Text:="lop"

Answer 1

hi
Hthis is my sap program.. where to use this coding concept what are the data s to be declared
*DATA declarations
*--Include for OLE-enabling definitions
INCLUDE ole2incl .
*--Global variables *--Variables to hold OLE object and entity handles
DATA:   word TYPE ole2_object , "OLE object handle
    documents TYPE ole2_object  , "Documents
  doc TYPE ole2_object  , "Documents
    actdoc TYPE ole2_object  , "Active document
    application TYPE ole2_object  , "Application D
    options TYPE ole2_object  , "Application options
    actwin TYPE ole2_object  , "Active window
    actpan TYPE ole2_object  , "Active pane
    view TYPE ole2_object  , "View
    selection TYPE ole2_object  , "Selection
    font TYPE ole2_object  , "Font
    parformat TYPE ole2_object  , "Paragraph format
    tables TYPE ole2_object  , "Tables
    range TYPE ole2_object  , "Range handle for various ranges
    table TYPE ole2_object  , "One table
    table_border TYPE ole2_object  , "Table border
    cell TYPE ole2_object  , "One cell of a table
    paragraph TYPE ole2_object  , "Paragraph
    shapes  TYPE ole2_object  ,
    logo TYPE ole2_object  ,
    textbox  TYPE ole2_object,
    find TYPE ole2_object,
picture(128) ,
  gv_pos(5) TYPE n . "Position information for table
START-OF-SELECTION .
  picture = 'D:\BMP\test.bmp'.
*-Creating OLE object handle variable
  CREATE OBJECT   word 'WORD.APPLICATION' .
  IF sy-subrc NE 0 .
    MESSAGE s000(su) WITH 'Error while creating OLE object!'.
    LEAVE PROGRAM .
  ENDIF .
*-Setting object's visibility property
  SET PROPERTY OF   word 'Visible' = '1' .
* Adding documents
  CALL METHOD OF word 'DOCUMENTS' = documents.
* Adding New page
  CALL METHOD OF documents 'Add' = doc.
* Retrieving thre Property of Word for Alignment Changes
  GET PROPERTY OF   word      'Selection' =   selection.
  GET PROPERTY OF   selection 'Font' =   font .
  GET PROPERTY OF   selection 'ParagraphFormat' =   parformat.
* Changes in Our Requirement
  SET PROPERTY OF   font 'Name' = 'Arial' .
  SET PROPERTY OF   font 'Size' = '20' .
  SET PROPERTY OF   font 'Bold' = '1' . "Not bold
  SET PROPERTY OF   font 'Italic' = '1' . "Italic
  SET PROPERTY OF   font 'Underline' = '1' . "Not underlined
* Paragraph Format 1 - Center 2 - Right  3 - Left
  SET PROPERTY OF parformat 'Alignment' = '1'.
* Text to be displayed
  CALL METHOD OF selection 'TypeText'
    EXPORTING
    #1 = 'Organisational Structure'.
*--Getting active document handle
  GET PROPERTY OF word 'activedocument' = actdoc .
*  To Save the document
  CALL METHOD OF doc 'SaveAs'
    EXPORTING
    #1 = 'D:\TEMP\WordFormatOLE.doc'.
**  To Quit the Document
CALL METHOD OF word 'Quit' .