OLE to MS Word

Hi everyone.
can anyone please tell me how to merge two coloumns of a table which is being printed in a Word Document using OLE Automation.

Hi
Look this program SAPRDEMOWORD97INTEGRATION or the transaction DWDM
Regards
Gregory

Similar Messages

OLE automation with Word

I had forms developped with forms 4.5
I did things like that :
-- open OLE object in Word
Forms_OLE.Activate_Server(wordItem);
application :=OLE2.CREATE_OBJ('Word.Basic');
Forms_OLE.Exec_Verb(wordItem, 1);
-- insert text in Word document
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, text);
OLE2.Invoke(application, 'Insert', args);
OLE2.Destroy_Arglist(args);
-- print document
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 0);
OLE2.Invoke(application, 'FilePrint', args);
OLE2.Destroy_Arglist(args);
-- exit Word
OLE2.Invoke(application, 'FileExit');
-- release server
if (Forms_OLE.Server_Active(item_id)) then
Forms_OLE.Close_Server(item_id);
end if;
With Form 6.0, Invoke method seems not to work anymore.
I suppose I have to use
Init_OleArgs(2);
Add_OleArg('insertText', VT_BSTR);
Add_OleArg('my text', VT_BSTR);
Call_Ole(itemName, ?);
Is it that and what should be the 2nd parameter of Call_Ole method ?
Thanks
Nico
null

With Forte Release2 supporting only OLE callout, you can use DDE
to pass data; but with Release 3 which supports OLE callin , you
should be able to pass data both ways.
- Arvind
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Arvind Kumar Krishnaswamy
Digital/Forte Software Products Group
Digital Equipment Corporation ______________________
1800,Harrison Street,Suite 1700, | | | | | | | |
Oakland.CA 94612 USA |d |i |g |i |t |a |l |
| | | | | | | |
Tel : 510-251-6537 ----------------------
Fax : 510-251-6531
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SAP OLE to MS Word

I have used this coding for sap OLE to Ms word... but if i run this program... MS Word just opens but i am not able to view any of the statements... that is new documents are not openings and the statements are not reflecting...
Any one give me a tips what to change in this following code...
Include for OLE-enabling definitions
INCLUDE ole2incl .
*Global variables *Variables to hold OLE object and entity handles
DATA:     gs_word       TYPE   ole2_object ,
*"OLE object handle
        gs_documents    TYPE   ole2_object ,
*"Documents
        gs_actdoc       TYPE   ole2_object , "Active document
        gs_application TYPE   ole2_object , "Application
        gs_options      TYPE   ole2_object , "Application options
        gs_actwin       TYPE   ole2_object , "Active window
        gs_actpan       TYPE   ole2_object , "Active pane
        gs_view         TYPE   ole2_object , "View
        gs_selection    TYPE   ole2_object , "Selection
        gs_font         TYPE   ole2_object , "Font
        gs_parformat    TYPE   ole2_object , "Paragraph format
        gs_tables       TYPE   ole2_object , "Tables
        gs_range        TYPE   ole2_object , "Range handle for various ranges
        gs_table        TYPE   ole2_object , "One table
        gs_table_border TYPE   ole2_object , "Table border
        gs_cell         TYPE   ole2_object , "One cell of a table
        gs_paragraph    TYPE   ole2_object , "Paragraph
        gv_pos(5)       TYPE   n . "Position information for table
START-OF-SELECTION .
*--Creating OLE object handle variable
CREATE OBJECT gs_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 gs_word 'Visible' = '1' .
*--Opening a new document
GET PROPERTY OF gs_word 'Documents' = gs_documents .
**--Setting the measurement unit
GET PROPERTY OF gs_application 'Options' = gs_options .
SET PROPERTY OF gs_options 'MeasurementUnit' = '1' . "CM
*Getting handle for the selection which is here the character at the *cursor position
GET PROPERTY OF gs_application 'Selection' = gs_selection .
GET PROPERTY OF gs_selection 'Font' = gs_font .
GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat .
*--Setting font attributes
SET PROPERTY OF gs_font 'Name' = 'Arial' .
SET PROPERTY OF gs_font 'Size' = '10' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '1' . "Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '2' . "Right-justified
CALL METHOD OF gs_selection 'TypeText'
    EXPORTING #1 = 'This is an OLE example!'.
*--Setting the view to the main document again
SET PROPERTY OF gs_view 'SeekView' = '0' . "Main document view
*--Reseting font attributes for the title
SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '16' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Centered
CALL METHOD OF gs_selection 'TypeText'
    EXPORTING #1 = text-001.
*--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
*--Reseting font attributes for ordinary text
SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '12' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '3' . "Justified
CALL METHOD OF gs_selection 'TypeText'
    EXPORTING #1 = text-001.
*--skip some lines
DO 4 TIMES .
    CALL METHOD OF gs_selection 'TypeParagraph' .
ENDDO .
*--Getting entity handles for the entities on the way
GET PROPERTY OF gs_actdoc 'Tables' = gs_tables .
GET PROPERTY OF gs_selection 'Range' = gs_range .
*--Adding a table with 3 rows and 2 columns
CALL METHOD OF gs_tables 'Add' = gs_table
EXPORTING #1 = gs_range " Handle for range entity
            #2 = '3' "Number of rows
            #3 = '2'. "Number of columns
*--Setting border attribute for the table
GET PROPERTY OF gs_table 'Borders' = gs_table_border .
SET PROPERTY OF gs_table_border 'Enable' = '1' . "With border
*Filling the table with dummy data *Reseting font attributes for table content
SET PROPERTY OF gs_font 'Name' = 'Garamond' .
SET PROPERTY OF gs_font 'Size' = '11' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Getting cell coordinates
CALL METHOD OF gs_table 'Cell' = gs_cell
EXPORTING #1 = '1' "first row
            #2 = '1'. "first column
*--Getting the range handle to write the text
GET PROPERTY OF gs_cell 'Range' = gs_range .
*--Filling the cell
SET PROPERTY OF gs_range 'Text' = 'OLE' .
*--Getting cell coordinates
CALL METHOD OF gs_table 'Cell' = gs_cell
EXPORTING
        #1 = '3' "third row
        #2 = '2'. "second column
*--Reseting font attributes for ordinary text
SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '12' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '3' . "Justified *--Indent the paragraph once
GET PROPERTY OF gs_selection 'Paragraphs' = gs_paragraph .
CALL METHOD OF gs_paragraph 'Indent' .
CALL METHOD OF gs_selection 'TypeText'
    EXPORTING
    #1 = text-001.
FREE OBJECT gs_word .
Thanks @ Regards,
Hema

HI Hema,
To open new document add this line.
*--Opening a new document
get property of gs_word 'Documents' = gs_documents.
call method of gs_documents 'ADD' ."= gs_document.
Regards,
Sravanthi

Webforms ole with ms word

hi there,
having problems with webforms code that in 6i client server would launch ms word (no problem there) and show a templates dialog box.
errors thrown from webforms are:
WUO-714: Unable to get the last OLE Error details;
Exception
null
WUO-705: Unable to invoke Method: Show; Exception
com.jacob.com.ComFailException:
VariantChangeType failed
the code is as follows (no idea what argument '79' represents):
Procedure Open_Word_Dialog IS
app client_OLE2.OBJ_TYPE;
     dialogs client_OLE2.OBJ_TYPE;
     dialog client_OLE2.OBJ_TYPE;
     doc client_OLE2.OBJ_TYPE;
arglist      client_OLE2.LIST_TYPE;
     l_type_num client_OLE2.OBJ_TYPE;
Begin
app := client_OLE2.CREATE_OBJ('WORD.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
client_OLE2.INVOKE(app,'Activate');
dialogs := client_ole2.get_obj_property(app, 'Dialogs');
arglist:= client_OLE2.CREATE_ARGLIST;
client_OLE2.ADD_ARG(arglist, 79);
dialog := client_ole2.invoke_obj(dialogs, 'Item', arglist);
client_OLE2.DESTROY_ARGLIST(arglist);
l_type_num := client_ole2.Invoke_obj(dialog, 'Show');
doc := client_ole2.get_obj_property(app, 'ActiveDocument');
client_ole2.Release_OBJ(doc);
client_ole2.Release_OBJ(dialog);
client_ole2.Release_OBJ(dialogs);
     client_ole2.Release_OBJ(app);
Exception
     When others then
null;
End;
end;
any assistance would be most appreciated.
thanks in advance.

I've finally had a chance to run your code. Oddly enough, it runs fine for me (most likely a JACOB versioning quirk.) Upon closer inspection, I find that the Show method of a Dialog object returns a Long, not an object, suggesting that the problem is an incompatible return value type. Try declaring I_type_num_client as type NUMBER, rather than CLIENT_OLE2.OBJ_TYPE -- I'm guessing that should fix your error.
If you're wondering where Word's objects, methods, arguments and argument types are documented, I use VBA's Object Browser for this, and simply couldn't manage without it. Have a look at the section entitled A BRIEF INTRODUCTION TO THE VBA IDE & THE OBJECT BROWSER UTILITY, which appears at the beginning of the following article:
   [b]Tutorial:[/b] Simplify Developing OLE Automation Code Using VBA
The rest of the article shows how I prefer to write custom OLE procedures -- by first writing them as VBA procedures and testing them in the VBA environment, before adapting them to PL/SQL. Because the VBA IDE provides syntax checking, code completion and meaningful error messages, writing automation code goes much more smoothly on this end, and errors are usually detected at design time. So much more smoothly, in fact, that I can implement a procedure twice -- once in VBA, and once in PL/SQL -- more quickly than I can implement it once in PL/SQL, skipping the VBA prototype. Also, most of my VBA prototypes run to completion more quickly than launching a trivial web form, so a significant time savings can realized by experimenting and refining on the VBA end, rather than spending all of my time effectively waiting for my web form to load.
Hope this helps,
Eric Adamson
Lansing, Michigan

OLE Automation for Word. EditGoto with Word 97

I found a solution. Instead EditGoto, use WW7_EditGoto.
Example:
.- A Word Template whith two bookmarks
(Texto1, Tabla1). A normal bookmark
(Texto1) and a bookmark into a Word
Table (Tabla1).
In the Word Table, is posible change
cell o create a new row with the same
command (NextCell).
The word table has two columns an two
rows.
The first row is the Header.
The second row the first column contain
a bookmark (Tabla1).
.- A Form whit two blocks:
First block with two items:
nombre_doc
texto1
Secod Block (multirecord) whit two items
col1
col2
with a When-Button-Pressed:
DECLARE
application OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
BEGIN
-- Start WordBasic and make Word visible
application:=OLE2.CREATE_OBJ('Word.Basic');
OLE2.INVOKE(application, 'AppShow');
-- Open a Word document
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'Plantilla.dot');
OLE2.INVOKE(application, 'FileOpen', args);
OLE2.DESTROY_ARGLIST(args);
-- Put Text in the first bookmark
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'Texto1');
OLE2.INVOKE(application, 'WW7_EditGoto', args);
OLE2.DESTROY_ARGLIST(args);
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,:Texto1);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);
-- Send data from Multirecord Block to Word Table
GO_BLOCK('MULTI');
FIRST_RECORD;
IF :SYSTEM.RECORD_STATUS != 'NEW' THEN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'Tabla1');
OLE2.INVOKE(application, 'WW7_EditGoto', args);
OLE2.DESTROY_ARGLIST(args);
LOOP
IF :col1 IS NOT NULL THEN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,:col1);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);
END IF;
OLE2.INVOKE(application, 'NextCell');
IF :col2 IS NOT NULL THEN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,:col2);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);
END IF;
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;
OLE2.INVOKE(application, 'NextCell');
END LOOP;
-- Save a Word document
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,:nombre_doc);
OLE2.INVOKE(application, 'FileSaveas', args);
OLE2.DESTROY_ARGLIST(args);
--Release the OLE object
OLE2.RELEASE_OBJ(application);
END;
Sorry by the sintax, but i don't speak English.
I hope it solves this problem.

Hello,
I am also trying to use the OLE2 package for OLE Automation. But
difference being that I am not using Word but am using an
invisible control for Mail services, using the objects
MAPISession, MAPImessages. If anyone out there had already done
this do please give me a code snippet.
Thanx in advance
Anup Mistry,
Programmer/Analyst,
IIS,Inc
Vasile (guest) wrote:
: Hi Daniel,
: I used OLE with forms 5 ,but now it work without problems in
: forms 6, too.
: A procedure that save doc. look like that:
: procedure filesaveas (fname in varchar2) is
: arglist ole2.list_type;
: begin
: arglist := ole2.create_arglist;
: ole2.add_arg (arglist, fname);
: ole2.invoke (obj_hnd, 'filesaveas', arglist);
: ole2.destroy_arglist (arglist);
: end;
: I hope this help you.
: Vasile
: Daniel Fox (guest) wrote:
: : I am using Forms 6.0
: : Can anyone help with OLE automation using OLE2.
: : I can open Word, document stored in long raw, even insert
data
: : from other form field into the Word Document (only at the
: : beginning of the Document, though).
: : All the File commands, such as FileSaveAs, EditGoTo, etc..
: don't
: : work. They are simply ignored - no error messages, nothing.
: : Does anyone use Word Automation through Forms 6.0?
: : Please, HELP....
: : Thanks in advance,
: : Desperate Daniel.
null

OLE with MS Word

Hello,
I've experienced some problems in manipulating Word documents on OLE Controls at Developer/2000 Forms. When I open a document from a OLE Control for the second time, using the EXE_CVERB instruction, it opens the desired document, plus another one called 'Document 1'. That new document is in someway linked to the first one and after this all the OLE commands to the document are ignored.
Did anyone experienced these problems ?
Thanks in advance,
lm

I've finally had a chance to run your code. Oddly enough, it runs fine for me (most likely a JACOB versioning quirk.) Upon closer inspection, I find that the Show method of a Dialog object returns a Long, not an object, suggesting that the problem is an incompatible return value type. Try declaring I_type_num_client as type NUMBER, rather than CLIENT_OLE2.OBJ_TYPE -- I'm guessing that should fix your error.
If you're wondering where Word's objects, methods, arguments and argument types are documented, I use VBA's Object Browser for this, and simply couldn't manage without it. Have a look at the section entitled A BRIEF INTRODUCTION TO THE VBA IDE & THE OBJECT BROWSER UTILITY, which appears at the beginning of the following article:
[b]Tutorial:[/b] Simplify Developing OLE Automation Code Using VBA
The rest of the article shows how I prefer to write custom OLE procedures -- by first writing them as VBA procedures and testing them in the VBA environment, before adapting them to PL/SQL. Because the VBA IDE provides syntax checking, code completion and meaningful error messages, writing automation code goes much more smoothly on this end, and errors are usually detected at design time. So much more smoothly, in fact, that I can implement a procedure twice -- once in VBA, and once in PL/SQL -- more quickly than I can implement it once in PL/SQL, skipping the VBA prototype. Also, most of my VBA prototypes run to completion more quickly than launching a trivial web form, so a significant time savings can realized by experimenting and refining on the VBA end, rather than spending all of my time effectively waiting for my web form to load.
Hope this helps,
Eric Adamson
Lansing, Michigan

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

How to insert ole object like word doc at runtime

To insert word doc into crystal report

Hi Vinod,
To add an OLE object in reports follow the steps given below-
1- In CR environment open a Report in which OLE object needs to be added.
2- Click on insert and click on OLE object.
3- A wizard pops up - choose appropriate file for e.g- Microsoft World Document.
4- two buttons will be there-
a> Create new - creates a new world document.
b> Create from new - Includes a exsisting file.
5- one more option is their in wizard -
Show icon(check box) - shows the OLE object as an icon in report.
6- Click on ok and place the object at required position in report.
Hope it works.
Regards
Amit

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.

Crystal report AS ole object into word

I've been searching the web on using crystal reports as an OLE object inside a word document, but all results have been about using a word document inside a crystal report.
I am trying to create a quarterly report document for a business. This document is built using MS word. The document needs to include various tables, charts and the like, which they want to build in crystal reports so that they can be used either as part of the quarterly or as standalone reports.
I would like to embed these reports into MS Word. Ideally, every three months the reports would be updated with new parameters, the word document would be opened, and the linked OLE reports would display the updated data tables and charts.
I'm not sure if this is possible. I just attempted to embed a crystal report inside a word 2007 document, but the OLE object only showed up as an object containing the report filename, not the actual report.
Can crystal act as an ole server for a word document to do what I want it to do, or will I need to programatically export the batch of crystal reports to images in order to have them show up in the word document?

if you have business objects enterprise & live office, you can use Business Objects Live Office to embed the following from crystal reports into word or excel or powerpoint:
1) charts
2) cross tabs
3) summaries
4) fields
to name a few.
you can also use prompts in the word doc to allow you to change up the above on the fly.

Using Forms OLE builtin to access word spell check

I am trying to find a way to utilize the Forms OLE built in for using MS Word spell check. We are upgrading our forms from 6 to 10g. In version 6 we were able to use OLE to open word and use it to pass in our string we wanted spell checked.
Is there a similiar feature in forms 10g?

Jim,
the Forms9i demos have a PJC solution that does spell checking (http://download.oracle.com/otn/other/general/forms9iDemos9_0_0_1.zip). The Forms 10g version of the demo is not yet avaiable but will be soon. If time is short, then you can make the 9i sources work in Forms 10g with no extra work required.
A viewlet demo can be accessed through the following link
http://otn.oracle.com/sample_code/products/forms/demo/9i/javabeans_pjc_samples/spellcheck/viewlet/pjc_jspell_viewlet.html
Frank

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.

OLE Word Documentation

Dear all,
Where can i found a documentation about OLE using microsoft word ???
Thanks.

hi check this ..
OLE
http://www.sapgenie.com/abap/ole.htm
http://help.sap.com/saphelp_46c/helpdata/en/59/ae3f2e488f11d189490000e829fbbd/frameset.htm
this is for word
REPORT YTEST .
*--Include for OLE-enabling definitions
INCLUDE OLE2INCL .
*--Global variables
*--Variables to hold OLE object and entity handles
DATA GS_WORD TYPE OLE2_OBJECT . "OLE object handle
DATA GS_DOCUMENTS TYPE OLE2_OBJECT . "Documents
DATA GS_ACTDOC TYPE OLE2_OBJECT . "Active document
DATA GS_APPLICATION TYPE OLE2_OBJECT . "Application
DATA GS_OPTIONS TYPE OLE2_OBJECT . "Application options
DATA GS_ACTWIN TYPE OLE2_OBJECT . "Active window
DATA GS_ACTPAN TYPE OLE2_OBJECT . "Active pane
DATA GS_VIEW TYPE OLE2_OBJECT . "View
DATA GS_SELECTION TYPE OLE2_OBJECT . "Selection
DATA GS_FONT TYPE OLE2_OBJECT . "Font
DATA GS_PARFORMAT TYPE OLE2_OBJECT . "Paragraph format
DATA GS_TABLES TYPE OLE2_OBJECT . "Tables
DATA GS_RANGE TYPE OLE2_OBJECT . "Range handle for various ranges
DATA GS_TABLE TYPE OLE2_OBJECT . "One table
DATA GS_TABLE_BORDER TYPE OLE2_OBJECT . "Table border
DATA GS_CELL TYPE OLE2_OBJECT . "One cell of a table
DATA GS_PARAGRAPH TYPE OLE2_OBJECT . "Paragraph
DATA GV_POS(5) TYPE N . "Position information for table
CREATE OBJECT GS_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 GS_WORD 'Visible' = '1' .
*--Opening a new document
GET PROPERTY OF GS_WORD 'Documents' = GS_DOCUMENTS .
CALL METHOD OF GS_DOCUMENTS 'Add' .
*--Getting active document handle
GET PROPERTY OF GS_WORD 'ActiveDocument' = GS_ACTDOC .
*--Getting applications handle
GET PROPERTY OF GS_ACTDOC 'Application' = GS_APPLICATION .
*--Setting the measurement unit
GET PROPERTY OF GS_APPLICATION 'Options' = GS_OPTIONS .
SET PROPERTY OF GS_OPTIONS 'MeasurementUnit' = '1' . "CM
*--Getting handle for the selection which is here the character at the
*--cursor position
GET PROPERTY OF GS_APPLICATION 'Selection' = GS_SELECTION .
GET PROPERTY OF GS_SELECTION 'Font' = GS_FONT .
GET PROPERTY OF GS_SELECTION 'ParagraphFormat' = GS_PARFORMAT .
*--Setting font attributes
SET PROPERTY OF GS_FONT 'Name' = 'Arial' .
SET PROPERTY OF GS_FONT 'Size' = '10' .
SET PROPERTY OF GS_FONT 'Bold' = '1' . "Not bold
SET PROPERTY OF GS_FONT 'Italic' = '1' . "Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '2' . "Right-justified
CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = 'This is an OLE example!'.
*--Setting the view to the main document again
SET PROPERTY OF GS_VIEW 'SeekView' = '0' . "Main document view
*--Reseting font attributes for the title
SET PROPERTY OF GS_FONT 'Name' = 'Times New Roman' .
SET PROPERTY OF GS_FONT 'Size' = '16' .
SET PROPERTY OF GS_FONT 'Bold' = '1' . "Bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '1' . "Centered
CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = TEXT-000.
*--Advancing cursor to the new line
CALL METHOD OF GS_SELECTION 'TypeParagraph' .
*--Getting entity handles for the entities on the way
GET PROPERTY OF GS_ACTDOC 'Tables' = GS_TABLES .
GET PROPERTY OF GS_SELECTION 'Range' = GS_RANGE .
*--Adding a table with 3 rows and 2 columns
CALL METHOD OF GS_TABLES 'Add' = GS_TABLE
EXPORTING
#1 = GS_RANGE " Handle for range entity
#2 = '3' "Number of rows
#3 = '2'. "Number of columns
*--Setting border attribute for the table
GET PROPERTY OF GS_TABLE 'Borders' = GS_TABLE_BORDER .
SET PROPERTY OF GS_TABLE_BORDER 'Enable' = '1' . "With border
*--Filling the table with dummy data
*--Reseting font attributes for table content
SET PROPERTY OF GS_FONT 'Name' = 'Garamond' .
SET PROPERTY OF GS_FONT 'Size' = '11' .
SET PROPERTY OF GS_FONT 'Bold' = '0' . "Not bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined
*--Getting cell coordinates
CALL METHOD OF GS_TABLE 'Cell'
EXPORTING
#1 = '1' "first row
#2 = '1'. "first column
*--Getting the range handle to write the text
GET PROPERTY OF GS_CELL 'Range' = GS_RANGE .
*--Filling the cell
SET PROPERTY OF GS_RANGE 'Text' = 'Venkatesh Appikonda' .
*--Getting cell coordinates
CALL METHOD OF GS_TABLE 'Cell' = GS_CELL
EXPORTING
#1 = '3' "third row
#2 = '2'. "second column
*--Getting the range handle to write the text
GET PROPERTY OF GS_CELL 'Range' = GS_RANGE .
*--Filling the cell
SET PROPERTY OF GS_RANGE 'Text' = 'this is ole example' .
*--Advancing the cursor to the end of the table
GET PROPERTY OF GS_TABLE 'Range' = GS_RANGE .
GET PROPERTY OF GS_RANGE 'End' = GV_POS .
SET PROPERTY OF GS_RANGE 'Start' = GV_POS .
CALL METHOD OF GS_RANGE 'Select' .
*--Skip some lines
DO 10 TIMES .
CALL METHOD OF GS_SELECTION 'TypeParagraph' .
ENDDO.
*--Reseting font attributes for ordinary text
SET PROPERTY OF GS_FONT 'Name' = 'Times New Roman' .
SET PROPERTY OF GS_FONT 'Size' = '12' .
SET PROPERTY OF GS_FONT 'Bold' = '0' . "Not bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '3' . "Justified
*--Indent the paragraph once
GET PROPERTY OF GS_SELECTION 'Paragraphs' = GS_PARAGRAPH .
CALL METHOD OF GS_PARAGRAPH 'Indent' .
CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = TEXT-002.
FREE OBJECT GS_WORD .
this is for excel..
Report ZMULTICOLOR_TEST no standard page heading.
this report demonstrates how to send some ABAP data to an
EXCEL sheet using OLE automation.
include ole2incl.
handles for OLE objects
data: h_excel type ole2_object,        " Excel object
      h_mapl type ole2_object,         " list of workbooks
      h_map type ole2_object,          " workbook
      h_zl type ole2_object,           " cell
      h_f type ole2_object,            " font
      h_c type ole2_object.            " color
DATA: FILENAME LIKE RLGRAP-FILENAME.
tables: spfli.
data h type i.
table of flights
data: it_spfli like spfli occurs 10 with header line.
*&   Event START-OF-SELECTION
start-of-selection.
read flights
select * from spfli into table it_spfli.
display header
uline (61).
write: /     sy-vline no-gap,
          (3) 'Flg'(001) color col_heading no-gap, sy-vline no-gap,
          (4) 'Nr'(002) color col_heading no-gap, sy-vline no-gap,
          (20) 'Von'(003) color col_heading no-gap, sy-vline no-gap,
          (20) 'Nach'(004) color col_heading no-gap, sy-vline no-gap,
          (8) 'Zeit'(005) color col_heading no-gap, sy-vline no-gap.
uline /(61).
display flights
loop at it_spfli.
    write: / sy-vline no-gap,
             it_spfli-carrid color col_key no-gap, sy-vline no-gap,
             it_spfli-connid color col_normal no-gap, sy-vline no-gap,
             it_spfli-cityfrom color col_normal no-gap, sy-vline no-gap,
             it_spfli-cityto color col_normal no-gap, sy-vline no-gap,
             it_spfli-deptime color col_normal no-gap, sy-vline no-gap.
endloop.
uline /(61).
tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
          PERCENTAGE = 0
           text       = text-007
       exceptions
            others     = 1.
start Excel
create object h_excel 'EXCEL.APPLICATION'.
PERFORM ERR_HDL.
set property of h_excel 'Visible' = 1.
CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls' .
PERFORM ERR_HDL.
tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
          PERCENTAGE = 0
           text       = text-008
       exceptions
            others     = 1.
get list of workbooks, initially empty
call method of h_excel 'Workbooks' = h_mapl.
perform err_hdl.
add a new workbook
call method of h_mapl 'Add' = h_map.
perform err_hdl.
tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
          PERCENTAGE = 0
           text       = text-009
       exceptions
            others     = 1.
output column headings to active Excel sheet
perform fill_cell using 1 1 1 200 'Carrier id'(001).
perform fill_cell using 1 2 1 200 'Connection id'(002).
perform fill_cell using 1 3 1 200 'City from'(003).
perform fill_cell using 1 4 1 200 'City to'(004).
perform fill_cell using 1 5 1 200 'Dep. Time'(005).
loop at it_spfli.
copy flights to active EXCEL sheet
    h = sy-tabix + 1.
    if it_spfli-carrid cs 'AA'.
      perform fill_cell using h 1 0 000255000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'AZ'.
      perform fill_cell using h 1 0 168000000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'JL'.
      perform fill_cell using h 1 0 168168000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'LH'.
      perform fill_cell using h 1 0 111111111 it_spfli-carrid.
    elseif it_spfli-carrid cs 'SQ'.
      perform fill_cell using h 1 0 100100100 it_spfli-carrid.
    else.
      perform fill_cell using h 1 0 000145000 it_spfli-carrid.
    endif.
    if it_spfli-connid lt 400.
      perform fill_cell using h 2 0 255000255 it_spfli-connid.
    elseif it_spfli-connid lt 800.
      perform fill_cell using h 2 0 077099088 it_spfli-connid.
    else.
      perform fill_cell using h 2 0 246156138 it_spfli-connid.
    endif.
    if it_spfli-cityfrom cp 'S*'.
      perform fill_cell using h 3 0 155155155 it_spfli-cityfrom.
    elseif it_spfli-cityfrom cp 'N*'.
      perform fill_cell using h 3 0 189111222 it_spfli-cityfrom.
    else.
      perform fill_cell using h 3 0 111230222 it_spfli-cityfrom.
    endif.
    if it_spfli-cityto cp 'S*'.
      perform fill_cell using h 4 0 200200200 it_spfli-cityto.
    elseif it_spfli-cityto cp 'N*'.
      perform fill_cell using h 4 0 000111222 it_spfli-cityto.
    else.
      perform fill_cell using h 4 0 130230230 it_spfli-cityto.
    endif.
    if it_spfli-deptime lt '020000'.
      perform fill_cell using h 5 0 145145145 it_spfli-deptime.
    elseif it_spfli-deptime lt '120000' .
      perform fill_cell using h 5 0 015215205 it_spfli-deptime.
    elseif it_spfli-deptime lt '180000' .
      perform fill_cell using h 5 0 000215205 it_spfli-deptime.
    else.
      perform fill_cell using h 5 0 115115105 it_spfli-deptime.
    endif.
endloop.
EXCEL FILENAME
CONCATENATE SY-REPID '_' SY-DATUM6(2) '_' SY-DATUM4(2) '_'
              SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.
CALL METHOD OF H_MAP 'SAVEAS' EXPORTING #1 = FILENAME.
free object h_excel.
perform err_hdl.
      FORM FILL_CELL                                                *
      sets cell at coordinates i,j to value val boldtype bold       *
form fill_cell using i j bold col val.
call method of h_excel 'Cells' = h_zl
    exporting
      #1 = i
      #2 = j.
perform err_hdl.
set property of h_zl 'Value' = val .
perform err_hdl.
get property of h_zl 'Font' = h_f.
perform err_hdl.
set property of h_f 'Bold' = bold .
perform err_hdl.
set property of h_f 'Color' = col.
perform err_hdl.
endform.                    "FILL_CELL
*&      Form ERR_HDL
      outputs OLE error if any                                       *
--> p1        text
<-- p2        text
form err_hdl.
if sy-subrc <> 0.
    write: / 'OLE-Automation Error:'(010), sy-subrc.
    stop.
endif.
endform.                    " ERR_HDL
regards,
venkat

Converting report output to a word document

Hi,
Can anyone pls help me by providing the program for converting displaying/inserting the internal table values along with the table frame aound the internal table(in the sense displaying the rows and columns lines) to the word document not in the excel format, instead of displaying in the report.
Thanks,
Ravi

Hi Ravi,
see if this helps you in anyway:
REPORT OUTPUT IN WORD OR EXCEL
Re: OLE: ms word (Textbox)
Re: OLE and MS Word
Create MS-Word document (With format)
Regards,
Ravi

Word document in forms 6i

Hi,
I need to open a word template when the user selects a template from the list box. The template is having bookmarks and I need to pass the field values into those book marks when the user opens the template. Then, the user should be able to edit, save, print the template and when he closes it, he should be able to come back to the application. In the background I need to save the word template in the database.
How to do this?
thanks,
anuradha

You can embed and OLE object like Word into Forms but this is a client/server only solution.
Take a look at the online help for OLE and OLEobjects.
Regards
Grant Ronald
Forms Product Management

OLE to MS Word

Similar Messages

Maybe you are looking for