on 12-04-2008 6:29 AM
hello experts
i really need your experts' advise on this.
currrently i am developing a program wherein the output should be written in MS Word. thus, i already used OLE to print the data to ms word.
however.. i am not been able to do one little thing on my program which is to merge a table cells.
here is the vb code i have obtained upon recording a macro for this process:
+Selection.TypeText Text:="a"+
+Selection.MoveRight Unit:=wdCharacter, Count:=1+
+Selection.TypeText Text:="b"+
+Selection.MoveRight Unit:=wdCharacter, Count:=3+
+Selection.TypeText Text:="1"+
+Selection.MoveRight Unit:=wdCharacter, Count:=1+
+Selection.TypeText Text:="2"+
+Selection.MoveRight Unit:=wdCharacter, Count:=1+
+Selection.MoveRight Unit:=wdCell+
+Selection.TypeText Text:="a1"+
+Selection.MoveRight Unit:=wdCharacter, Count:=1+
+Selection.TypeText Text:="2b"+
+Selection.MoveRight Unit:=wdCharacter, Count:=1+
+Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend+
+Selection.Cells.Merge+
+Selection.InlineShapes.AddPicture FileName:="C:\Temp\00000016.jpeg.jpg", _+
+LinkToFile:=False, SaveWithDocument:=True+
+Selection.TypeParagraph+
here is the code that i have so far:
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = 'a'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = 'b'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = ' '.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = '1'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = '2'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = ' '.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = '1a'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = '2b'.
CALL METHOD OF gv_wordobj 'NextCell'.
CALL METHOD OF gv_wordobj 'Insert'
EXPORTING #1 = ' '.
*_**it is working until here.._*
**
*_**here is the part that i dont know why its not working:_*
call method of gv_wordobj 'moveup'
exporting
#1 = 'wdline'
#2 = 2
#3 = 'extend'.
call method of gs_cell 'Merge'.
call method of gs_inlineshapes 'Addpicture'
exporting
#1 = 'C:\Temp\00000016.jpeg.jpg'
#2 = 'false'
#3 = 'True'
call method of gs_selection 'typepara'.
please let me know if you guys have any suggestions or any corrections on my OLE code. i will realy appreciate it.
by the way, no links please. i already exhausted and visited the links having "ms word OLE" keywords.
thanks a lot in advance again.
MrMagat
anyone?
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
104 | |
12 | |
11 | |
6 | |
6 | |
4 | |
3 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.