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

‘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:

https://bugs.freedesktop.org/show_bug.cgi?id=57203

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 programasLibreOffice 3.6programquickstart.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

O resultado final de um projeto de sistema que incorpore o LibreOffice pode ser algo extremamente útil se considerarmos a grande quantidade de tarefas do usuário que é baseada em documentação (mesmo que seja para algo simples como, por exemplo, a exibição de um documento somente leitura).

Utilizando o controle Ribbon (http://officeribbon.codeplex.com/) é possível, por exemplo, criar uma barra de acesso aos recursos do aplicativo similar à do Microsoft Office 2010. O trabalho mais simples seria associar cada botão da barra ao seu respectivo comando UNO da API do LibreOffice. O trabalho mais difícil seria gerenciar o acesso aos documentos através de uma estrutura de janelas MDI.

O exemplo fica, então, apenas como uma curiosidade. Se o objetivo é deixar o seu LibreOffice mais bonito, eu sugiro esperar um pouco mais pela versão 4.0, que permitirá a personalização da interface com o Firefox Personas. Curioso? Leia mais em: http://blog.pt-br.libreoffice.org/2013/01/11/tatuagens-e-ringtones/ .