LibreOffice se Bloquea abierto VB6 y se abre en Windows
Publicado: Sab Jun 22, 2019 6:41 pm
Buenas Tardes
Tengo libreOffice en 64 y 32 bits (Varios PCs) desde una aplicación hecha en Visual Basic 6 abro el LibreOficce y si después trato de abrir un documento desde Windows (8.1 o 7) no responde. Debo cerrar desde el Administrador de Tareas de Windows el LibreOffice para poder Abrir Documentos directamente de Windows. y sucede lo mismo si tengo abierto un Documento desde la Aplicación en Windows y trato de abrirla en el Aplicativo VB6 no responde. Debo cerrar desde el Administrador de Tareas de Windows el LibreOffice para poder Abrir Documentos desde la Aplicación hecha en VB6. sucede en versiones de LibreOffice desde las 5.... en adelante
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set Document = oDesktop.loadComponentFromURL(Ruta_SK, "_blank", 0, Array(MakePropertyValue("AsTemplate", True)))
donde MakePropertyValue es :
Public Function MakePropertyValue(cName, uValue) As Object
Dim ooStruct As Object, ooServiceManager As Object
On Error Resume Next
Set ooServiceManager = CreateObject("com.sun.star.ServiceManager")
Set ooStruct = ooServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
ooStruct.Name = cName
ooStruct.Value = uValue
Set MakePropertyValue = ooStruct
End Function
Gracias
Tengo libreOffice en 64 y 32 bits (Varios PCs) desde una aplicación hecha en Visual Basic 6 abro el LibreOficce y si después trato de abrir un documento desde Windows (8.1 o 7) no responde. Debo cerrar desde el Administrador de Tareas de Windows el LibreOffice para poder Abrir Documentos directamente de Windows. y sucede lo mismo si tengo abierto un Documento desde la Aplicación en Windows y trato de abrirla en el Aplicativo VB6 no responde. Debo cerrar desde el Administrador de Tareas de Windows el LibreOffice para poder Abrir Documentos desde la Aplicación hecha en VB6. sucede en versiones de LibreOffice desde las 5.... en adelante
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set Document = oDesktop.loadComponentFromURL(Ruta_SK, "_blank", 0, Array(MakePropertyValue("AsTemplate", True)))
donde MakePropertyValue es :
Public Function MakePropertyValue(cName, uValue) As Object
Dim ooStruct As Object, ooServiceManager As Object
On Error Resume Next
Set ooServiceManager = CreateObject("com.sun.star.ServiceManager")
Set ooStruct = ooServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
ooStruct.Name = cName
ooStruct.Value = uValue
Set MakePropertyValue = ooStruct
End Function
Gracias