Neste artigo, apresentarei a incorporação do LibreOffice no Visual Basic.NET utilizando o controle EmbeddedOpenOffice em Microsoft Visual Basic 2010 Express e Windows XP. O controle EmbeddedOpenOffice foi desenvolvido pela Sun pelo desenvolvedor Lars Behrmann em meados de 2005. Desde então, o projeto foi hospedado em diversos lugares (SourceForge, Google Code e ODF Toolkit). Apesar de o projeto hoje não fazer mais parte do ODFToolkit, o controle continua funcional no .NET (fiz testes similares no Microsoft Visual C# 2010 Express com resultados corretos). Caso necessário, o código está disponível integralmente para desenvolvimento.

O primeiro passo é obter o controle EmbeddedOpenOffice neste link. Depois, descompacte o arquivo EmbeddedOpenOffice_1_0_0_5.net.zip e, em ..\EmbeddedOpenOffice_1_0_0_5.net\Control\compiled, execute register.bat para registrar o componente. A seguir, adicione as seguintes DLLs ao ambiente (no Visual Basic 2010 Express Edition, em Project… > Add reference…) e a Toolbox (botão direito do mouse sobre a Toolbox > Choose items… > .NET Framework Componentes > Browse…).

• EmbeddedOpenOfficeStartHelper.dll
• EmbeddedOpenOfficenet.dll

Por fim, o componente estará disponível na Toolbox de controles:

 

No seu código VB.NET, o controle é iniciado com o seguinte trecho:

‘definição do caminho padrão do LibreOffice
EmbeddedOpenOffice1.OpenOfficePath = “C:\Arquivos de programas\LibreOffice 3.6\program”
‘definição de uma pasta temporária
EmbeddedOpenOffice1.TempFolder = “c:\TEMP”

‘definição do caminho do arquivo e da abertura como somente leitura (true) ou não (false).

EmbeddedOpenOffice1.LoadDocument(“C:\teste2.odt”, false)

Obtendo o controle do documento via código

O controle EmbeddedOpenOffice funciona apenas como um frame de exibição de uma janela componente do LibreOffice. Ou seja, o controle não fornece métodos e propriedades para o acesso ao conteúdo do documento. É, de fato, uma lacuna no desenvolvimento do controle.

Há no entanto, um meio poderoso para obtermos o controle do documento. Fazemos isso através da conexão VB.NET com a instância local do LibreOffice. A partir da conexão (mais especificamente a partir do objeto objDesktop), é possível descobrir o frame do documento através do seu título:

Private Sub listarFrames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
‘**************************
‘* Procedimento para a prova de conceito de uso do controle EmpeddedOpenOffice
‘* Gustavo Buzzatti Pacheco – gbpacheco@prodesk.com.br
‘* Projeto: ODF
‘* 3 de janeiro de 2013
‘************************** ’
Dim objServiceManager As Object
Dim objCoreReflection As Object
Dim objDesktop As Object
Dim vFrames As Object ‘coleção dos frames
Dim objModel As Object ‘modelo do frame
Dim i As Integer ‘índice dos frames
Dim s As String ‘string com o título e o caminho do arquivo

‘Criação da conexão com a instância local do LibreOffice
objServiceManager = CreateObject(“com.sun.star.ServiceManager”)
objCoreReflection = objServiceManager.createInstance(“com.sun.star.reflection.CoreReflection”)
objDesktop = objServiceManager.createInstance(“com.sun.star.frame.Desktop”)

REM queryFrames(4) da interface XFrames busca todos os frames filhos do desktop

s = “”

vFrames = objDesktop.getFrames().queryFrames(4) ‘com.sun.star.frame.FrameSearchFlag.CHILDREN – http://www.openoffice.org/api/docs/common/ref/com/sun/star/frame/FrameSearchFlag.html#CHILDREN

For i = LBound(vFrames) To UBound(vFrames)
objModel = vFrames(i).getController().getModel()
s = s & vFrames(i).Title & ” ” & objModel.getURL() & ” ” & Chr(10) ‘coloca o título e a URL na variável s
Next (i)

MsgBox(s, 0, “Frame Titles”) ‘ mostra o conteúdo da variável s

End Sub

Atenção para os detalhes…

Caso o código com o componente EmbeddedOpenOffice seja executado sem que o LibreOffice tenha sido inicializado antes (via manual ou via quickstart), é possível que você obtenha o seguinte erro:

Como contingência (e, também como forma de melhorar o desempenho da inicialização do LibreOffice embutido no código VB.NET), podemos executar o quickstart do LibreOffice via código antes da inicialização do controle EmbeddedOpenOffice em:

C:\Arquivos de programas\LibreOffice 3.6\program\quickstart.exe

O quickstart é um pequeno aplicativo que roda no IconTray do Windows com o objetivo de abrir rapidamente documentos no LibreOffice. Ou seja, uma pré-execução do aplicativo.

Executar o quickstart (mesmo que seja via código) melhorará o desempenho do seu código e evitará a mensagem de erro em versões anteriores à 3.6.5.

Conclusão