| Problem with a template word and client_ole2 [message #503379] |
Fri, 15 April 2011 02:20  |
 |
deuterocanonico
Messages: 1
Registered: April 2011
|
Junior Member |
|
|
Hello,
I have a problem Problem with a template word and client_ole2 in the folowing code:
I have the folowing global variables in the specification package
App CLIENT_OLE2.OBJ_TYPE;
Docs CLIENT_OLE2.OBJ_TYPE;
Doc CLIENT_OLE2.OBJ_TYPE;
Selection CLIENT_OLE2.OBJ_TYPE;
And i have two functions in the body package:
---- This function takes a template word located at
---- NomFich = C:\DOCUME~1\MADX92\CONFIG~1\Temp\MADQ80_CIA.dot
FUNCTION F_NuevWord (a_NomFich VARCHAR2) RETURN BOOLEAN IS
v_Lista CLIENT_OLE2.LIST_TYPE;
v_ObjEx CLIENT_OLE2.OBJ_TYPE;
v_Err_Code BINARY_INTEGER;
v_Err_Text VARCHAR2(255);
BEGIN
App := CLIENT_OLE2.CREATE_OBJ ('Word.Application');
CLIENT_OLE2.SET_PROPERTY (App, 'Visible', 0);
Docs := CLIENT_OLE2.GET_OBJ_PROPERTY (App, 'Documents');
v_Lista := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG (v_Lista, a_NomFich);
v_ObjEx := CLIENT_OLE2.INVOKE_OBJ (Docs, 'Add', v_Lista);
CLIENT_OLE2.DESTROY_ARGLIST (v_Lista);
CLIENT_OLE2.RELEASE_OBJ (v_ObjEx);
RETURN TRUE;
EXCEPTION
WHEN CLIENT_OLE2.OLE_ERROR THEN
--shows the error
RETURN FALSE;
WHEN OTHERS THEN
P_INFO('Error: SVAGEST01:PCK_WORDDOC.F_NuevWord');
RETURN FALSE;
END F_NuevWord;
---This function saves the word document filled with data using ---the template word by a function WriteText
---a_NomFich = \\ESMADFFS01\PRUEBAS\SVAPRU\WORDDOCS\2011_04---\248070.doc
FUNCTION F_SaveAsWord (a_NomFich VARCHAR2) RETURN BOOLEAN IS
v_Lista CLIENT_OLE2.LIST_TYPE;
v_ObjEx CLIENT_OLE2.OBJ_TYPE;
ActDoc CLIENT_OLE2.OBJ_TYPE;
v_Err_Code BINARY_INTEGER;
V_Err_Text VARCHAR2(255);
BEGIN
v_WdActDoc := CLIENT_OLE2.GET_OBJ_PROPERTY (App, 'ActiveDocument');
v_Lista := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG (v_Lista, a_NomFich);
CLIENT_OLE2.ADD_ARG (v_Lista, 0);
v_ObjEx := CLIENT_OLE2.INVOKE_OBJ (v_WdActDoc, 'SaveAs', v_Lista);
CLIENT_OLE2.DESTROY_ARGLIST (v_Lista);
CLIENT_OLE2.RELEASE_OBJ (v_WdActDoc);
RETURN TRUE;
EXCEPTION
WHEN CLIENT_OLE2.OLE_ERROR THEN
---SHOWS THE ERROR
RETURN FALSE;
WHEN OTHERS THEN
P_INFO('Error en SVAGEST01:PCK_WORDDOC.F_SaveAsWord');
RETURN TRUE;
END F_SaveAsWord;
I got a error at
v_ObjEx := CLIENT_OLE2.INVOKE_OBJ (v_WdActDoc, 'SaveAs', v_Lista);
WUO-714:Unable to get the last OLE Error details; Exception null.
WUO-705:Unable to invoke Method: SaveAs; Exception com.jacob.com.ComFailException: VariantChangeType failed
The word document was created correctly by the template but i cant´t save it. I don´t know what is the problem. Can enyone help me please?
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
