Ole - writing to word document

Hi,
I have created a new word document with a table of 1 row and 3 columns using the ole concept. The text in all the 3 columns should be of different font and size. Please let me know if this can be done ?
Attached below is the code which i have used. But with this everything is getting printed with same font and size. Please let me know if there is anything wrong in it?
get property of gs_word 'documents' = gs_documents.
call method of gs_documents 'add'.
get property of gs_word 'activedocument' = gs_actdoc.
get property of gs_actdoc 'application' = gs_application.
get property of gs_application 'options' = gs_options.
set property of gs_options 'measurementunit' = '1'. "cm
get property of gs_application 'selection' = gs_selection.
get property of gs_selection 'font' = gs_font.
get property of gs_selection 'paragraphformat' = gs_parformat.
perform font_style using 'arial' '12' '1' '0' '0' '1'.
call method of gs_selection 'typeparagraph'.
perform create_table using '1' '3'.
perform fill_cell using '1' '2' 'abc'.
perform font_style using 'arial' '10' '0' '0' '0' '1'.
perform fill_cell using '1' '3' 'di-03
version 2.00'.
form font_style using    value(p_0383)
                          value(p_0384)
                          value(p_0385)
                          value(p_0386)
                          value(p_0387)
                          value(p_0388).
set property of gs_font 'name' = p_0383.
set property of gs_font 'size' = p_0384.
set property of gs_font 'bold' = p_0385.
set property of gs_font 'italic' = p_0386.
set property of gs_font 'underline' = p_0387 .
set property of gs_parformat 'alignment' = p_0388.
endform.
form create_table using    value(p_0262)
                            value(p_0263).
get property of gs_actdoc 'tables' = gs_tables.
get property of gs_selection 'range' = gs_range.
call method of gs_tables 'add' = gs_table
    exporting
      #1 = gs_range "handle for range entity
      #2 = p_0262 "number of rows
      #3 = p_0263. "number of columns
get property of gs_table 'borders' = gs_table_border.
set property of gs_table_border 'enable' = '1'. "with border
endform.                    " create_table
form fill_cell using    value(p_0185)
                         value(p_0186)
                         value(p_0187).
call method of gs_table 'cell' = gs_cell
    exporting
      #1 = p_0185
      #2 = p_0186.
get property of gs_cell 'range' = gs_range.
set property of gs_range 'text' = p_0187.
endform.
Thanks
Aruna

Hi Aruna,
Check this link.
An easy reference for ole automation.
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/c1d54348-0601-0010-3e98-bd2a2dcd9e6c
This may help you.
Thanks,
Bhaskar

Similar Messages

Ole, attaching a word document in forms6i

Hi everyone,
I am planning to attach a word document using an ole container in a blob database item in oracle 6i forms environment.
I was able to do it but when a word document is opened i was not able to restrict few users from editing the word.(Allow all user to add notes(insert) via word document, allow all users to double click and read the notes but restrict few users from updating the notes in the word document)
I can control on preupdate of the block but I not able to do any validation when the word document is opened.
I wanted to check if anyone has done this before.Are there any tips, suggestion, pros and cons on using ole.
Thanks in Advance.
Vin.

Hi everyone,
I am planning to attach a word document using an ole container in a blob database item in oracle 6i forms environment.
I was able to do it but when a word document is opened i was not able to restrict few users from editing the word.(Allow all user to add notes(insert) via word document, allow all users to double click and read the notes but restrict few users from updating the notes in the word document)
I can control on preupdate of the block but I not able to do any validation when the word document is opened.
I wanted to check if anyone has done this before.Are there any tips, suggestion, pros and cons on using ole.
Thanks in Advance.
Vin.

Writing to word document using java

hi,
i want to retrieve the values from database and then write to .doc file. how can i write to a word document using java?
thanks in advance

Google for "java write to word file"
and behold the magic results

Writing MS Word Document from PL/SQL

Hi,
I have an application which writes the data into EXCEL from PL/SQL. I am using follwong code to write the data.
Owa_Util.Mime_Header ( 'application/vnd.ms-excel', False);
htp.print('Content-Disposition:attachment;filename="'||v_report_title||'.xls"');
owa_Util.Http_Header_Close;
I want to know if there is any option to write the data into MS Word. If i am changing the Mime type to ms-word its generating a word document with the HTML equivalent of data. Looking forward for a quicked response.
Regards,
Dhirendra

I am not sure if you ever got your problem resolved, but I just wanted to share my experience that is is possible to have "server" side code which will get document in Oracle or another Doc. management syste, stream it back to the client and open it (I am talking about MS Office documents) in Office application or actually inside the browser (there is a little trick with the client Windows Explorer settings to enable this, otherwise it will open as an application).
It works perfectly also for TXT files, .TIFF, .jpg , .PDF etc.
You have to be correctly setting the MIME type depending on type of the application the files was created by (I can see you are doing that);
BUT your following line :
htp.print('Content-Disposition:attachment;filename="'||v_report_title||'.doc"');
==> is telling the client's browser that the file is coming over as attachment and therefore it will always prompt the user with OPEN, SAVE, CANCEL.
Here is a snippet of my code example [ writting the file into local temp dir]:
Response.AppendHeader("ContentEncoding", ctype);
// set the final Content Type
Response.ContentType = ctype;
// stream and write the file out
Response.BinaryWrite(bytBytes);
Response.End();

OLE: Why placeholders of MS Word document are not replaced?

Hi Experts, I am using OLE to create Word Documents within a LOOP. The problem I have is that the Word Documents are created and seved well but the placeholders (&nom_prov') and (&ncod_prov') are not replaces by the values (in the example: test1 and test2).
Anybody can help me in with that issue?
LOOP AT lt_partner1 INTO ls_partner1.
AT FIRST.
    CREATE OBJECT zword 'WORD.BASIC'.
    CALL METHOD OF zword 'FILEOPEN' EXPORTING #1 = 'C:\DOCS\PRUEBA_1.DOC'.
ENDAT.
CALL METHOD OF zword 'EDITSELECTALL'.
CALL METHOD OF zword 'EDITCOPY'.
CALL METHOD OF zword 'FILENEW'.
CALL METHOD OF zword 'EDITPASTE'.
CALL METHOD OF zword 'STARTOFDOCUMENT'.
CALL METHOD OF zword 'WW2_EDITREPLACE' EXPORTING #1 = '&cod_prov'
    #2 = 'test 1'. "ls_partner1-nif.
CALL METHOD OF zword 'WW2_EDITREPLACE' EXPORTING #1 = '&nom_prov'
    #2 = 'test 2'. "ls_partner1-name_org1.
CALL METHOD OF zword 'STARTOFDOCUMENT'.
CALL METHOD OF zword 'EDITSELECTALL'.
CALL METHOD OF zword 'EDITCLEAR'.
CALL METHOD OF zword 'EDITPASTE'.
lv_contador = lv_contador + 1.
CONCATENATE 'C:\DOCS\' 'PRUEBA' lv_contador '_' sy-datum '.DOC' INTO lv_file_save_as.
CALL METHOD OF zword 'FILESAVEAS' EXPORTING #1 = lv_file_save_as.
CALL METHOD OF zword 'DOCCLOSE' EXPORTING #1 = 2.
AT LAST.
   CALL METHOD OF zword 'APPCLOSE'.
   FREE OBJECT zword.
ENDAT.
ENDLOOP.

Hello, I have found out what was the problem. In the end I have used method EDITREPLACE and not WW2_EDITREPLACE and I put the method EDITREPLACE more to the end of my ABAP Code:
REPORT z_prueba_oliver.
TYPES: BEGIN OF ty_partner,
             nif            TYPE bu_partner,
             name_org1      TYPE bu_nameor1,
             conting_com    TYPE c LENGTH 2,
             fecha_efecto   TYPE zbufecha_ef,
             END OF ty_partner.
DATA: lt_partner1     TYPE TABLE OF ty_partner,
             ls_partner1     TYPE ty_partner,
             lv_file_save_as TYPE c LENGTH 40,
             lv_contador     TYPE n LENGTH 3.
* Include necesario para la declaracion de objetos OLE2
INCLUDE ole2incl.
* Declaraciones para la llamada a WORD.
DATA zword TYPE ole2_object.
CLEAR zword.
ls_partner1-nif = 'X7510034M'.
ls_partner1-name_org1 = 'Razon Social 1'.
APPEND ls_partner1 TO lt_partner1.
ls_partner1-nif = 'X7510034M'.
ls_partner1-name_org1 = 'Razon Social 2'.
APPEND ls_partner1 TO lt_partner1.
ls_partner1-nif = 'X7510034M'.
ls_partner1-name_org1 = 'Razon Social 3'.
APPEND ls_partner1 TO lt_partner1.
ls_partner1-nif = 'X7510035M'.
ls_partner1-name_org1 = 'Razon Social 4'.
APPEND ls_partner1 TO lt_partner1.
ls_partner1-nif = 'X7510035M'.
ls_partner1-name_org1 = 'Razon Social 5'.
APPEND ls_partner1 TO lt_partner1.
LOOP AT lt_partner1 INTO ls_partner1.
AT FIRST.
    CREATE OBJECT zword 'WORD.BASIC'.
* Se abre el fichero que contiene la plantilla de la carta
    CALL METHOD OF zword 'FILEOPEN'
      EXPORTING
      #1 = 'C:DOCSPRUEBA_1.DOC'.
ENDAT.
* Se selecciona todo el texto del archivo PRUEBA_1.DOC
CALL METHOD OF zword 'EDITSELECTALL'.
* Se copia el texto seleccionado al portapapeles
CALL METHOD OF zword 'EDITCOPY'.
* Se crea un documento nuevo, al que WORD llama documento1
CALL METHOD OF zword 'FILENEW'.
* Se pega el texto del portapapeles a documento1
CALL METHOD OF zword 'EDITPASTE'.
* Posicionar al principio del documento
CALL METHOD OF zword 'STARTOFDOCUMENT'.
* Posicionar al principio del documento
CALL METHOD OF zword 'STARTOFDOCUMENT'.
* Se selecciona todo
CALL METHOD OF zword 'EDITSELECTALL'.
* Se borra la selección
CALL METHOD OF zword 'EDITCLEAR'.
* Se incorpora el texto original de PRUEBA_1.DOC
CALL METHOD OF zword 'EDITPASTE'.
*IF ls_partner1-conting_com is initial.*
   *CALL METHOD OF zword 'EDITREPLACE'*
    *EXPORTING*
    *#01 = '#linea2y3#'*
    *#02 = 'texttexttexttext'*
    *#03 = 0*
    *#04 = 0*
    *#05 = 0*
    *#06 = 0*
    *#07 = 0*
    *#08 = 0*
    *#09 = 0*
    *#10 = 1*
    *#11 = 0*
    *#12 = 1.*
*else.*
     *CALL METHOD OF zword 'EDITREPLACE'*
    *EXPORTING*
    *#01 = '#linea2y3#'*
    *#02 = 'texttexttexttext'*
    *#03 = 0*
    *#04 = 0*
    *#05 = 0*
    *#06 = 0*
    *#07 = 0*
    *#08 = 0*
    *#09 = 0*
    *#10 = 1*
    *#11 = 0*
    *#12 = 1.*
*ENDIF.*
*CALL METHOD OF zword 'EDITREPLACE'*
    *EXPORTING*
    *#01 = '#codprov#'*
    *#02 = ls_partner1-nif*
    *#03 = 0*
    *#04 = 0*
    *#05 = 0*
    *#06 = 0*
    *#07 = 0*
    *#08 = 0*
    *#09 = 0*
    *#10 = 1*
    *#11 = 0*
    *#12 = 1.*
CALL METHOD OF zword 'EDITREPLACE'
    EXPORTING
    #01 = '#nomprov#'
    #02 = ls_partner1-name_org1
    #03 = 0
    #04 = 0
    #05 = 0
    #06 = 0
    #07 = 0
    #08 = 0
    #09 = 0
    #10 = 1
    #11 = 0
    #12 = 1.
* Se reemplaza el campo #nomprov# con el valor de la tabla interna.
CALL METHOD OF zword 'EDITREPLACE'
    EXPORTING
    #01 = '#FECHA_EFECTO#'
    #02 = '10 de Junio de 2010'
    #03 = 0
    #04 = 0
    #05 = 0
    #06 = 0
    #07 = 0
    #08 = 0
    #09 = 0
    #10 = 1
    #11 = 0
    #12 = 1.
lv_contador = lv_contador + 1.
CONCATENATE 'C:DOCS' 'PRUEBA' lv_contador '_' sy-datum '.DOC' INTO lv_file_save_as.
* Se cierra el documento activo, documento1 con opción de salir sin salvar
CALL METHOD OF zword 'FILESAVEAS' EXPORTING #1 = lv_file_save_as.
* Se cierra el documento activo PRUEBA.DOC con opción salir sin salvar
CALL METHOD OF zword 'DOCCLOSE' EXPORTING #1 = 2.
AT LAST.
*   Se cierra WORD
    CALL METHOD OF zword 'APPCLOSE'.
*   Se libera el objeto ZWORD
    FREE OBJECT zword.
ENDAT.
ENDLOOP.

Extract the content of word document

Hi Experts,
I need to extract the content of word document in to an internal table using OLE automation.
Suggest us with a sample code or any FM.
Regards
Paul

One way or probably Only way I can think off is using HWPF for reading/writing MS Word documents. It is a Jakartha project which is still under development though. I was able to read and Write WORD documents pretty nicely. Like I said, HWPF is still under development . You can still try using it, it is quite simple. Let me know if need help with coding using HWPF, I used it before. Check out the following link.
http://jakarta.apache.org/poi/hwpf/index.html.
Hope that helps. Thanks.

Having a problem saving word documents...any ideas?

I'm hoping someone can help me out with this..
Lately when I've been writing a word document a message will pop up from the Auto Recovery Save. It says, "Word cannot save or create this file. The disk may be full or write-protected. Try one of more of the following: free more memory, make sure that the disk you want to save the file on is not full, write-protected, or damaged."
I'm using Word 2004 (version 11.3.5) on Mac OS X 10.4.11
I've tried deleting some word files to free up some space but I'm still getting this message. I haven't had any other problems using my macbook. I write a lot of word documents (I'm a student) but this is the first time I've ever had this message pop up.
Any ideas what the problem is or what I can do to fix it?
Thanks!
Stacy

How much free space is on your hard drive?
Have you emptied the trash?
Disk space is not 'freed' for re-use by deleting files until the trash is emptied.
Have you tried using Disk Utility to check the disk for errors and to verify/repair disk permissions?
Have you tried saving your documents to a flash drive plugged into the USB port?
An empty 4Gb or 8Gb Flash drive has plenty of space to store lots of documents as an inexpensive and a temporary solution if you're almost out of hard disk space.
Even with a flash drive, you might get the same error message, because the temporary files are probably defaulting to being stored on your hard disk. There's likely a place somewhere in Word preferences to view and change where the temporary files are stored. (Sorry, I haven't used OS X 10.4 or Word 2004 in about 4 years, and I don't have either one immediately available to check.)
It's also possible that your hard drive is beginning to fail. If Disk Utility cannot verify the hard disk, I would recommend making a backup of important files immediately to CD or DVD. (I use Time Machine, but that didn't become available until OS X 10.5)

OLE - Creating header and footer in Word document using abap

Hi All,
I'm using OLE to create a WORD document from abap.
I need to insert a logo in the header and a footer text.
Does any one know how to insert a header/footer with abap ole ?
I tried to insert the logo as picture with:
call method of o_inlineshapes 'AddPicture' = o_logo
exporting
#1 = 'C:\logo3.jpg'.
but I can't put it in the place I want..
thanks,
Michal

call method of LOBJ_MS_WORD 'ActiveWindow' = w_activewindow.
call method of lobj_activewindow 'ActivePane' = w_activepane.
call method of lobj_activepane 'View' = w_activeview.
SET PROPERTY OF w_activeview 'SeekView' = '9'.   " header view.
" This will set the view to the header view. Whatever you write here
will go to the header.
Get PROPERTY OF lobj_ms_word 'Selection' = w_selection.
CALL METHOD OF w_selection 'TypeText'exporting
#1 = 'Rahul Anand'.
"Now set the view again to the main doc view.
   SET PROPERTY OF w_activeview 'SeekView' = '0'.
" Now write your main doc code .
" For footer the view is '10'.
call method of LOBJ_MS_WORD 'ActiveWindow' = w_activewindow.
call method of lobj_activewindow 'ActivePane' = w_activepane.
call method of lobj_activepane 'View' = w_activeview.
SET PROPERTY OF w_activeview 'SeekView' = '9'.   " header view.
" This will set the view to the header view. Whatever you write here
will go to the header.
Get PROPERTY OF lobj_ms_word 'Selection' = w_selection.
CALL METHOD OF w_selection 'TypeText'exporting
#1 = 'Rahul Anand'.
"Now set the view again to the main doc view.
   SET PROPERTY OF w_activeview 'SeekView' = '0'.
" Now write your main doc code .
" For footer the view is '10'.

How to get the number of page by creating OLE microsoft word document

Hihi Experts,
I have generated a word document using ole in sap abap report.
May i know which command can i use to call the word object to get the number of page before closing the word document?
eg. call method of wordobj 'insertpagefield' ? and i need to require the page number in a variable eg. gv_pagenumber for other filtering purposes.
Thanks and Regards,
li Hui
Edited by: lihui lil on Aug 11, 2009 9:35 AM
Edited by: lihui lil on Aug 11, 2009 12:36 PM

hi,
use the following code:
CALL METHOD OF gv_selection 'Information' = gv_curpage
    EXPORTING
    #1 = 3. " get current page number
CALL METHOD OF gv_selection 'TypeText'
    EXPORTING
    #1 = gv_curpage. "show current page number
CALL METHOD OF gv_selection 'TypeText'
    EXPORTING
    #1 = ' of '.
CLEAR gv_endpage.
CALL METHOD OF gv_selection 'Information' = gv_endpage
    EXPORTING
    #1 = 4. "get total page number
CALL METHOD OF gv_selection 'TypeText'
    EXPORTING
    #1 = gv_endpage. " show total page number
Edited by: VoonHan on Oct 13, 2009 7:35 AM

Using OLE add Header to MS Word Document in ABAP Program

Dear Friends,
I have a requirement where I want to add Header and Footer to MS Word through OLE in ABAP Program
I am able to open the word document, through OLE,
I am stuck @ the following step.
CALL METHOD OF LO_APPLICATION 'ActiveDocument' = LO_DOCUMENT.
IF SY-SUBRC <> 0.     EXIT.   ENDIF.
CALL METHOD OF LO_DOCUMENT 'Sections' = LO_SECTIONS.
IF SY-SUBRC <> 0.     EXIT.   ENDIF.
Please let me know.
Thanks
Rajesh

Hi Rajesh,
You have to use GET PROPERTY & SET PROPERTY attributes of OLE2_OBJECT to use headers.
Just a sample code snippet for your reference :-
DATA : GS_TABLE TYPE OLE2_OBJECT ,
      GS_RANGE TYPE OLE2_OBJECT,
     GS_CELLTYPE OLE2_OBJECT,
CALL METHOD OF GS_TABLE 'Cell' = gs_cell
   EXPORTING #1 = '1'
                     #2 = '1'.
   GET PROPERTY OF gs_cell 'Range' = gs_range.
   SET PROPERTY OF gs_range 'Text' = 'VGUID'.
   CALL METHOD OF gs_table 'Cell' = gs_cell
   EXPORTING #1 = '1'
                     #2 = '2'.
For more details search on SCN for code on creating MS word document using OLE automation.
Regards
Abhii

How do I get a MS Word document on a Memory stick over to my IPad to edit and continue writing?

I am looking to transfer my book that I am writing, with photos, from a USB memory stick written in Microsoft Word document format across to my IPad 3 to continue working on, editing it and adding more text and photos.
Thanks for any help.
Michael D

You can't directly - the camera connection kit which has a USB connection only supports the copying of photos and videos to the Photos app. You will need to copy the document onto a computer and then, depending on what the app that you want to edit it in on the iPad supports, either copy it via the file sharing section at the bottom of the device's apps tab when connected to iTunes, via wifi, email, dropbox etc

After i export a pdf file (written in Hebrew) to a Word document, the Word document is written in a Mirror-writing, how can i fix it?

after i export a pdf file (written in Hebrew) to a Word document, the Word document is written in a Mirror-writing, how can i fix it?

Hi,
thank you for your help.
I am using an Adobe Acrobat XI Pro.
It is not a specific file that causes trouble, it is happening with all the documents with Hebrew fonts.
I tried the "Save as" option and the same problem happened.

Opening Word document with OLE

Hello,
I must have a case of own-code-blindness, could anyone see what the problem is? A blank document is created but I can't get it to load the file...
<snip>
app := CLIENT_OLE2.CREATE_OBJ('Word.Application');
CLIENT_OLE2.SET_PROPERTY(app, 'Visible', 1);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'd:\foo.doc');
CLIENT_OLE2.INVOKE(doc, 'FileOpen', args);
</snip>
aTdHvAaNnKcSe

Thanks, I am able to setup webutil.
Now I have other problem in context of migrating OLE functionality using Webutil. I have an OLE Container item 'OLE_FIELD' in block 'Blk_name' which contains a word document. 'OLE_FIELD' corresponds to a long raw column in the table . I want to put the contents of this into a newly created word document and run a macro on this document. This was done using Forms_Ole.Activiate_Server, Forms_Ole.Execute_verb earlier. Can someone let me know how this is achieved in 9iDS using Webutil since 9iDS does not support the ole container? I am sending the code as it was in earlier version of Forms.
Declare
arglist OLE2.LIST_TYPE;
application OLE2.OBJ_TYPE;
BEGIN
FORMS_OLE.ACTIVATE_SERVER('Blk_name.OLE_FIELD');
application := OLE2.CREATE_OBJ('Word.Application.8');
-- Open the embedded document for editing
FORMS_OLE.EXEC_VERB('Blk_name.OLE_FIELD',1);
-- Run Macro for document
arglist := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(arglist, 'MACRO_NAME.MAIN');
OLE2.INVOKE(application, 'Run', arglist);
OLE2.DESTROY_ARGLIST(arglist);
OLE2.INVOKE(application, 'Quit');
-- Close Word
FORMS_OLE.CLOSE_SERVER('Blk_name.OLE_FIELD');
-- Release the OLE object
OLE2.RELEASE_OBJ(application);
END;
Thanks in advance,
Ravi

IPad mini for writing word documents?

Can I use the iPad mini for writing word documents etc. Or even if I can use an app and export it for word etc. Is it already loaded app or do I have to buy it?

Pages, Keynote and Numbers make up the iWork's suite of apps.
As long as both iPads are using the same Apple ID for purchases from the App Store you could purchase Pages only once. There are drawbacks for using the same Apple ID on multiple devices when those devices are used by different people.
Pages will export documents in Word format so that can be opened by Word on a Mac or PC. Pages is a nice app but it is not as all encompassing as Word on your regular computer. There is some formatting that can be done in .word that will not translate in Pages. Even with that though I find Pages a good App.

OLE automation-To insert and print picture in word document

We are upgrading from 4.6C to ECC 6.0.One of our report program to print CV and insert photo in the word document works fine in version 4.6c.The methods to draw text box and insert photo to the required size don't work in ECC 6.0.seeking your advise.
I have attached the code:
Insert DrawingBox for CV Photo
call method of wordobj 'DrawTextbox'.
call method of wordobj 'DrawSetInsertToTextbox'..
call method of wordobj 'FormatDrawingObject'
           exporting
              #01 = '0'              "Tab
              #02 = '1'              "FillColor
              #03 = '1'              "LineColor
              #04 = '8'              "FillPatternColor
              #05 = '0'              "FillPattern
              #06 = '1'              "LineType
              #07 = '0'              "LineStyle
              #08 = '0.75 pt'        "LineWeight
              #09 = '0'              "ArrowStyle
              #10 = '0'              "ArrowWidth
              #11 = '- 1'            "ArrowLength <--
              #12 = '0'              "Shadow
              #13 = '0'              "RoundCorners
              #14 = '15.7 cm'        "HorizontalPos
              #15 = '1'              "HorizontalFrom
              #16 = '5.0 cm'         "VerticalPos
              #17 = '1'              "VerticalFrom
              #18 = '0'              "LockAnchor
              #19 = '4 cm'           "Height
              #20 = '4 cm'           "Width
              #21 = '1 pt' .         "InternalMargin
if not path1 is initial.
    call method of wordobj 'InsertPicture'
      exporting #1 = path1         "Name
                #2 = '1'.          "LinkToFile
   endif.
call method of wordobj 'DrawUnselect'.
call method of wordobj 'EndOfDocument'.
call method of wordobj 'InsertPara'.
Thanks..

hi ,
use this for the custom pictures
Re: OLE / ms WORD / Create new document, insert image and print
use this for getting sap icons ...
Re: How to get SAP Icons as OLE Object

Ole - writing to word document

Similar Messages

Maybe you are looking for