Hola
@Xavier, parce ser un problema de traducción como comento
@Kuk, revisa los archivos que adjunto para la conversión, podes probar de cambiar estos valores .......
Código COBOL:
01 VARIANT-TYPE PIC S9(9) COMP-5 VALUE 12. *>new valor era 23
01 ARRAY-DIMENSION PIC 9(9) COMP-5 VALUE 1. *> new valor era s9.
01 tagSafeArrayBound is typedef.
05 celements pic 9(9) comp-5. *>new era S9(9)
05 llbound pic s9(9) comp-5.
01 SafeArrayBound TYPE tagSafeArrayBound.
Y te paso un ejemplo que encontre en la web en VBScript for manipulating OpenOffice.org Writer
para que pruebes a parte
Código VB:
'The service manager is always the starting point
'If there is no office running then an office is started
Set objServiceManager= Wscript._
CreateObject("com.sun.star.ServiceManager")
'Create the DesktopSet
objDesktop= objServiceManager._
createInstance("com.sun.star.frame.Desktop")
'Open a new empty writer document
Dim args()
Set objDocument=objDesktop._
loadComponentFromURL("private:factory/swriter",_
"_blank", 0, args)
'Create a text object
Set objText= objDocument.getText
'Create a cursor object
Set objCursor= objText.createTextCursor
'Inserting some Text
objText.insertString objCursor,_
"The first line in the created text document."&_
vbLf, false
Saludos