Abrir Documento Do Openoffice

[Guest Zeco]

Pessoal, alguém sabe o código para colocar o texto de um documento do OpenOffice (writer) em um richtextbox, utilizando o VB6 ?

Valeu.

Zeco

[Guest Caja]

Crie um módulo e nele adicione:

Public Function MakePropertyValue(cName, uValue) As Object

Dim oStruct, oServiceManager As Object

Set oServiceManager = CreateObject("com.sun.star.ServiceManager")

Set oStruct = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

oStruct.Name = cName

oStruct.Value = uValue

Set MakePropertyValue = oStruct

End Function

Public Function CreateUnoService(strServiceName) As Object

Dim oServiceManager As Object

Set oServiceManager = CreateObject("com.sun.star.ServiceManager")

Set CreateUnoService = oServiceManager.createInstance(strServiceName)

End Function

Dentro do Form coloque o seguinte código em seu controle (aqui assumo que é cmdabrir_click)

Private Sub Cmdabrir_click

Dim oSM, ODesk, oDoc As Object 'OOo objects

Dim OpenParam(1) As Object 'Parameters to open the doc

Dim SaveParam(1) As Object 'Parameters to save the doc

Dim args()

rchtext.Text = ""

fn1 = FreeFile

Open "c:/temp.txt" For Append As fn1

Close #fn1

Set oSM = CreateObject("com.sun.star.ServiceManager")

Set ODesk = oSM.createInstance("com.sun.star.frame.Desktop")

arquivo = "file:///" + "c:/arquivoexemplo.odt" 'odt é o formato do Writter

Set OpenParam(0) = MakePropertyValue("Hidden", True) ' Open the file hidden

Set oDoc = ODesk.loadComponentFromURL(arquivo, "_blank", 0, OpenParam())

Set SaveParam(0) = MakePropertyValue("FilterName", "Text")

Call oDoc.storeToURL("file:///C:/temp.txt", SaveParam())

Set ODesk = Nothing

Set oSM = Nothing

oDoc.Close (True)

Set oDoc = Nothing

fn = FreeFile

Open "c:/temp.txt" For Input As fn

rchtexto.Text = Input$(LOF(fn), fn)

Close #fn

End sub

Pronto, o conteúdo do arquivo do Writter (.odt), será colocado em um arquivo texto e, depois, em um

controle richtextbox, permitindo sua manipulação, em geral de busca de palavras, já que o Writter não tem a função Pesquisa.

Abraços do Caja