Introducao OOo Basic

Embed Size (px)

Citation preview

Introduo Ao OpenOffice.org Basicpor Noelson Alves Duarte

Verso 1

ndice1 Macros OpenOffice.org Basic........................................................................................................... 4 1.1 Introduo.................................................................................................................................. 4 1.2 Criando a Primeira Macro..........................................................................................................4 1.3 Executando a Primeira Macro....................................................................................................6 1.4 Compartilhando uma Macro...................................................................................................... 8 2 Dilogos Personalizados..................................................................................................................10 2.1 Introduo................................................................................................................................ 10 2.2 Criando um Dilogo ................................................................................................................10 2.3 Manipulando Eventos do Dilogo........................................................................................... 13 3 Pilotos Automticos.........................................................................................................................16 3.1 Introduo................................................................................................................................ 16 3.2 Criando um Piloto Automtico................................................................................................ 16 3.3 Manipulando Eventos do Piloto Automtico...........................................................................18 4 Introduo a API do OpenOffice.org...............................................................................................20 4.1 Introduo................................................................................................................................ 20 4.2 Criando um novo documento...................................................................................................22 5 Trabalhando com Documentos........................................................................................................ 24 5.1 Carregando Documentos..........................................................................................................24 5.2 Salvando Documentos............................................................................................................. 25 5.3 Imprimindo Documentos......................................................................................................... 27 5.4 Fechando Documentos.............................................................................................................29 5.5 Identificando os Documentos Abertos.....................................................................................30 6 Documentos do Writer.....................................................................................................................31 6.1 Introduo................................................................................................................................ 31 6.2 Editando texto.......................................................................................................................... 31 6.3 Movendo-se pelo texto.............................................................................................................32 6.4 Formatando texto..................................................................................................................... 36 6.5 Formatando com estilo ............................................................................................................38 6.6 Obtendo o objeto selecionado..................................................................................................41 6.7 Localizando objetos................................................................................................................. 43 6.8 Busca e Substituio................................................................................................................ 45 6.9 Inserindo objetos......................................................................................................................47 6.10 Tabelas................................................................................................................................... 48 7 Documentos do Calc........................................................................................................................54 7.1 Introduo................................................................................................................................ 54 7.2 Planilhas...................................................................................................................................54 7.3 Editando................................................................................................................................... 56 7.4 Navegando pelas Clulas......................................................................................................... 58 7.5 Selecionando pela Interface Grfica........................................................................................ 60 7.6 Formatando.............................................................................................................................. 61 7.7 Busca e Substituio................................................................................................................ 66 7.8 Ordenando................................................................................................................................67 7.9 Filtrando dados........................................................................................................................ 69 7.10 Inserindo Subtotais.................................................................................................................70 7.11 Grficos..................................................................................................................................72 8 Mais informaes............................................................................................................................ 76Introduo ao OpenOffice.org Basic 1

Verso 1

8.1 Na rede..................................................................................................................................... 76 8.2 Com o autor............................................................................................................................. 76 9 Crditos, Agradecimentos, Licena................................................................................................. 77 9.1 Crditos....................................................................................................................................77 9.2 Agradecimentos ..................................................................................................................... 77 9.3 Licena..................................................................................................................................... 77

2

Introduo ao OpenOffice.org Basic

Verso 1

ApresentaoEste documento o resultado do meu esforo para aprender o OpenOffice.org Basic. Ele est focado, principalmente, nas extenses do OpenOffice.org ao Basic, isto , na API do OpenOffice.org. Assim sendo, as caractersticas bsicas da linguagem de programao Basic no so abordadas. Se voc j programou ou conhece algum dos sabores Basic e deseja escrever macros para o OpenOffice.org este um bom local para comear. Seno, recomendo procurar algum curso na rede, e se familiarizar com o Basic, antes de se aventurar no OOo Basic. muito importante dominar os fundamentos de uma linguagem de programao. Todos os exemplos de cdigo fonte foram testados com o OpenOffice.org, verso 1.0.1, exceto os pequenos blocos de cdigo fora das sub-rotinas. Para utilizar este texto, o OpenOffice.org deve estar instalado em seu computador. Aps o Captulo 3, recomendo que voc instale, tambm, o Manual de Referncia da API do OpenOffice.org (consulte o captulo Mais Informaes). O Manual de Referncia sofre atualizaes peridicas e sua verso atualizada est disponvel, tambm, para consultas on-line. Espero ter tempo para continuar aprendendo e acrescentando informaes teis aos programadores que, como eu, no dominam a lngua inglesa. Portanto, periodicamente, procure por novas verses deste documento. Como resultado de uma aprendizagem, esta Introduo, seguramente, contm muitos erros e inconsistncias, espero contar com a sua ajuda para corrig-los. Em 20 de junho de 2003 O Autor

Introduo ao OpenOffice.org Basic

3

Macros OpenOffice.org Basic

Verso 1

1 Macros OpenOffice.org Basic

1.1 IntroduoUma macro um programa escrito na linguagem OpenOffice.org Basic com a finalidade de automatizar tarefas do OpenOffice.org. A linguagem OpenOffice.org Basic mantm as principais caractersticas das verses atuais do BASIC, no que diz respeito sintaxe, tipos de dados, operadores, comandos, funes internas e organizao geral do programa. Alm disto, o OpenOffice.org Basic permite o acesso a uma grande quantidade de objetos, com seus mtodos e propriedades, especficos do OpenOffice. O OpenOffice.org tem um IDE (Integrated Development Environment - Ambiente de Desenvolvimento Integrado) completo, inclundo: edio de cdigo fonte, verificao de erros, criao de dilogos e gerenciamento de bibliotecas.

1.2 Criando a Primeira MacroA nossa macro ser bem simples. O operador vai digitar uma frase numa caixa de entrada, em seguida esta frase ser adicionada na posio corrente do cursor de texto de um documento ativo do Writer. Para comear: a) Execute o Writer, crie um novo ducumento e salve-o como Primeira_Macro.sxw. b) Na barra de menu, selecione Ferramentas Macro. O dilogo Macro ser exibido.

Figura 1: Dilogo Macro

4

Introduo ao OpenOffice.org Basic

Verso 1

Macros OpenOffice.org Basic

Observe a rvore Macro de, no centro do dilogo, temos duas entradas principais soffice e Primeira_Macro.sxw, elas so recipientes (containers) para bibliotecas. Um nvel abaixo, nas duas entradas, temos a biblioteca Standard. Dentro de soffice - Standard temos o mdulo Module1. O recipiente soffice sempre ser carregado com o OpenOffice.org, ele tem bibliotecas globais, usadas em todos os documentos do OpenOffice.org. Observe que alguns mdulos de soffice esto desativados. Cada documento aberto tem seu prprio container com uma biblioteca Standard. Na figura acima, o nico documento aberto Primeira_Macro.sxw. A lista, esquerda do dilogo, exibe os nomes dos procedimentos (Sub-rotinas e funes) do mdulo selecionado. O campo Nome da macro exibe o nome do procedimento selecionado. Ao selecionar o nome de um procedimento, os botes Executar, Atribuir e Editar so ativados. Vamos continuar com a criao da nossa primeira macro: a) Selecione a biblioteca Standard de Primeira_Macro.sxw. b) Clique sobre o boto Novo para criar um novo mdulo. c) Aparece a caixa de entrada Novo Modulo, sugerindo o nome Module1. d) Clique no boto OK para criar o novo mdulo. O IDE Basic carregado.

Introduo ao OpenOffice.org Basic

5

Macros OpenOffice.org Basic

Verso 1

Figura 2: IDE Basic e) Observe, no editor Basic, a definio de uma sub-rotina Sub Main ... End Sub. Note tambm que a aba Module1 est ativa. f) Digite (ou copie e cole) o cdigo fonte abaixo entre as linhas Sub Main e End Sub.Dim Dim Dim Dim Dim oDocumento as Object oTexto as Object oCursorVista as Object oCursor as Object sInserir as String

' solicita o texto sInserir = InputBox("Digite o texto:", "Inserir Texto", "") ' testa se algo foi digitado if sInserir = "" then exit sub endif ' obtm o modelo do documento oDocumento = ThisComponent ' obtm o servio Text do documento oTexto = oDocumento.getText() ' obtm a posio do cursor na GUI e cria um cursor de texto oCursorVista = oDocumento.getCurrentController().getViewCursor() oCursor = oTexto.createTextCursorByRange(oCursorVista.getStart()) ' insere o texto na posio corrente do cursor oTexto.insertString(oCursor, sInserir, FALSE)

Pronto, terminamos a nossa primeira macro. Lembre-se que ela est embutida no documento Primeira_Macro.sxw.

1.3 Executando a Primeira MacroAntes de continuarmos, vamos analisar a janela do IDE Basic. Temos, na parte inferior da janela, uma rea Observador, esquerda, e outra Chamadas, direita. A primeira ser usada para observar valores de variveis e a segunda mostra as chamadas a procedimentos, tudo durante a execuo da macro. Vejamos, tambm, a finalidade de alguns cones da janela do IDE Basic: Executar executa uma macro at encontrar um Ponto de Interrupo. Ponto de interrupo define um ponto de interrupo. Passo a passo executa uma macro, linha a linha. Parar termina a execuo de uma macro. Ser ativado quando a execuo da macro iniciar. Macros permite selecionar uma macro para execuo. Salvar cdigo fonte como salva o mdulo corrente como um arquivo Basic. Inserir cdigo fonte - insere o cdigo fonte de um arquivo Basic. chegada a hora de testarmos a nossa macro:

6

Introduo ao OpenOffice.org Basic

Verso 1

Macros OpenOffice.org Basic

a) No editor Basic, posicione o cursor de texto na linha sInserir = InputBox( ... ). Clique no cone Ponto de interrupo. Surge uma marca vermelha esquerda da linha. b) No campo Observador, digite sInserir e tecle Enter, para inspecionar o valor da varivel durante a execuo da macro. Note que o cone Remover observador, direita do campo, ativado. c) Clique sobre o cone Executar. A execuo da macro iniciada e, no Ponto de interrupo, ela pra note a seta amarela, direita. d) Clicando no cone Passo a passo, acompanhe a execuo da macro. Quando a caixa de entrada for exibida, digite o seu nome e clique sobre o boto OK. Continue a execuo at o final, quando o cone Parar for desativado. Alterne para a janela do documento PrimeiraMacro.sxw, e veja se o seu nome foi inserido na posio do cursor, como desejado. Se ocorreu algum erro, revise o cdigo fonte. Caso uma macro seja utilizada com freqncia, podemos configurar o OpenOffice.org para execut-la de modo mais fcil. Na opo de menu Ferramentas Configurar, temos entradas para Menus Teclado - Barra de ferramentas e Eventos, onde possvel associar macros a opes de menus, a cones na barra de ferramentas, a uma combinao de teclas e a um evento do OpenOffice.org. Antes de encerrar esta seo, retorne janela do IDE Basic, para simularmos um erro no cdigo fonte: a) Na penltima linha de cdigo oTexto.InsertString(...) - altere o nome da varivel oCursor para oCurso. b) Execute a macro. Surge uma caixa com uma mensagem de erro e um boto OK. Note que a seta de acompanhamento da execuo torna-se vermelha na linha onde ocorre o erro. Aps clicar em OK a execuo da macro finalizada e a linha com o erro permanece selecionada.

Figura 3: Erro de execuo c) Corrija o nome da varivel de oCurso para oCursor. Feche o IDE Basic. Salve o documento Primeira_Macro.sxw. No prximo passo, veremos como disponibilizar uma macro para todos os documentos do OpenOffice.org.

Introduo ao OpenOffice.org Basic

7

Macros OpenOffice.org Basic

Verso 1

1.4 Compartilhando uma MacroAs macros de uma biblioteca do container soffice / Standard so carregadas juntamente com o OpenOffice.org. Aquelas de um container de um documento qualquer so carregadas juntamente com o mesmo. Portanto, estaro disponiveis para execuo somente quando o documento estiver aberto. Nesta seo, veremos como exportar uma macro de um documento para o aplicativo OpenOffice.org. Aqui, mostraremos apenas os passos necessrios para efetuar a tarefa. Para disponibilizar uma macro de um documento para outros documentos do OpenOffice.org, siga os passos abaixo: a) Selecione Ferramentas Macro e clique sobre o boto Gerenciar. b) Aparece o dilogo Gerenciar, clique sobre a aba Bibliotecas.

Figura 4: Dilogo Gerenciar c) Selecione, na caixa de listagem Aplicao / Documento, a entrada soffice e pressione o boto Adicionar. d) Um dilogo Abrir Arquivo ser exibido. Localize e selecione o arquivo que contm a macro a ser compartilhada e clique sobre o boto Abrir. e) O dilogo Inserir Bibliotecas ser exibido. Note que as bibliotecas existentes no arquivo esto marcadas para compartilhamento. Desmarque aquelas que no sero compartilhadas e clique sobre o boto Ok.

8

Introduo ao OpenOffice.org Basic

Verso 1

Macros OpenOffice.org Basic

Figura 5: Inserir Bibliotecas Pronto, agora a sua macro faz parte do repositrio soffice e est disponvel para execuo no OpenOffice.org.

Introduo ao OpenOffice.org Basic

9

Dilogos Personalizados

Verso 1

2 Dilogos Personalizados

2.1 IntroduoO OpenOffice.org Basic permite a criao de Dilogos Personalizados, atravs de um editor de Dilogos intuitivo e poderoso. Dilogos so uma excelente soluo para interao com o usurio, permitindo que o programador desenhe uma interface grfica consistente para obter ou passar informaes ao operador.

2.2 Criando um DilogoO Dilogo que vamos criar ser bem simples. Na verdade, substituiremos a caixa de entrada usada em nossa primeira macro por um dilogo personalizado. Antes de comearmos, precisamos recuperar o nosso arquivo Primeira_Macro.sxw: a) Carregue o OpenOffice.org. b) Abra o arquivo Primeira_Macro.sxw. c) Escolha Ferramentas Macro, selecione o Module1 da nossa macro e clique sobre o boto Editar para ativar o IDE Basic. d) Clique com o boto direito do mouse sobre a aba Module1. No menu instatneo, selecione Inserir Dilogo. Aparece o editor de dilogos Basic, com um dilogo vazio. Note que foi criada uma pgina Dialog1. e) Clique sobre o cone Controles . Surge um quadro com vrios cones. Arraste este quadro pela barra de ttulo (faixa superior) para fora da barra de ferramentas, posicionando-o do lado direito do dilogo.

10

Introduo ao OpenOffice.org Basic

Verso 1

Dilogos Personalizados

Figura 6: Editor de Dilogos Vejamos a finalidade de alguns cones existentes no quadro de Controles. Etiqueta usado para colocar etiquetas no dilogo. Boto usado para colocar botes no dilogo. Caixa de texto permite inserir uma caixa de texto num dilogo. Propriedades exibe a janela de propriedades do controle selecionado. Ser ativado quando algum controle for selecionado. Alm da edio das propriedades, permite associar procedimentos (cdigo) a eventos ocorridos no controle. Ativar modo de teste exibe o dilogo como se estivesse em execuo. Inserir Controles num Dilogo uma operao em trs passos: 1) ativar o cone do controle no quadro de controles; 2) definir a rea do dilogo onde o controle ser posicionado. Para isto pressione o boto esquerdo do mouse e arraste formando um retngulo, em seguida, libere o boto do mouse; 3) definir as propriedades do controle. Quando um controle adicionado ao dilogo, o OpenOffice.org Basic automaticamente define um valor padro para cada propriedade. Para exibir as propriedades de um controle selecionado, clique sobre o cone Propriedades ou clique duas vezes sobre o controle. Note, tambm, que a janela Propriedades possui o boto Subir Descer.Introduo ao OpenOffice.org Basic 11

Dilogos Personalizados

Verso 1

Figura 7: Janela Propriedades Vamos trabalhar em nosso dilogo: a) Selecione o dilogo vazio, clicando na sua borda externa. Note que aparecem marcas em torno do mesmo. Podemos usar estas marcas para redimensionar o nosso dilogo. b) Clique no cone Propriedades para exibir a sua janela, como na figura acima. No campo Ttulo aba Geral digite Inserir Frase e tecle Enter. Clique no cone Subir de Propriedades e observe o ttulo do dilogo. c) Adicione um controle Etiqueta ao dilogo. Para isto, clique no cone Etiqueta, em seguida defina um retngulo na parte superior do dilogo. Defina a sua propriedade ttulo para Digite o texto. d) Coloque uma Caixa de Texto no dilogo, logo abaixo da etiqueta. Observe a sua propriedade Nome: TextField1. No cdigo fonte, nos referimos a um controle pela sua propriedade Nome, da a sua importncia. Note, tambm, que este controle no tem a propriedade Ttulo. e) Vamos colocar dois botes, lado a lado, na parte inferior do dilogo, abaixo da caixa de texto. Defina os seus ttulos para OK e Cancelar. f) Ajuste o dilogo e seus controles de modo que fiquem com a aparncia da figura abaixo. Figura 8: Dilogo Inserir Frase

12

Introduo ao OpenOffice.org Basic

Verso 1

Dilogos Personalizados

Bem, terminamos o nosso dilogo. Vamos verificar a sua aparncia quando em execuo. Clique sobre o cone Ativar modo de teste no quadro de controles e, aps observar o dilogo, clique em seu cone Fechar para retornar ao editor. Na prxima seo, daremos funcionalidade ao nosso Dilogo.

2.3 Manipulando Eventos do DilogoVejamos como o dilogo que acabamos de projetar vai interagir com o operador: aps a exibio do dilogo, o operador deve digitar o texto e depois pressionar o boto Ok ou pode, simplesmente, pressionar o boto Cancelar. Para cada uma destas aes (e muitas outras), o sistema emite mensagens de eventos. Para dar funcionalidade ao dilogo, precisamos interceptar os eventos que nos interessam, isto , o pressionamento do boto Ok ou Cancelar e, em seguida, fazer o processamento requerido. O IDE Basic permite a associao de procedimentos a eventos de controles atravs da janela Propriedades e sua aba Eventos. A palavra procedimentos, acima, indica que precisamos de cdigo fonte. No IDE Basic, selecione o mdulo Module1. No editor de cdigo Basic, digite (ou copie e cole) o cdigo fonte abaixo, acima da Sub Main.

Private oDialogo as Variant Sub dlgExecutaDialogo oDialogo = createUnoDialog(DialogLibraries.Standard.Dialog1) oDialogo.execute() End Sub Sub dlgCancelaDialogo oDialogo.endExecute() End Sub Sub dlgInserirFrase Dim oDocumento as Object Dim oTexto as Object Dim oCursorVista as Object Dim oCursor as Object Dim sFrase as String

Introduo ao OpenOffice.org Basic

13

Dilogos Personalizados

Verso 1

oDialogo.endExecute() ' note a referencia ao controle TextField1 do dialogo sFrase = oDialogo.Model.TextField1.Text if sFrase = "" then exit sub endif ' obtm o modelo do documento oDocumento = ThisComponent ' obtm o servio Text do documento oTexto = oDocumento.getText() ' obtm a posio do cursor na GUI e cria um cursor de texto oCursorVista = oDocumento.getCurrentController().getViewCursor() oCursor = oTexto.createTextCursorByRange(oCursorVista.getStart()) ' insere o texto na posio corrente do cursor oTexto.insertString(oCursor, sFrase, FALSE) End Sub

No cdigo acima, declaramos a varivel oDialogo (Private oDialogo as Variant) fora dos procedimentos, o que a torna visvel em todo o mdulo Module1. Antes de exibir o dilogo, criamos um objeto oDialogo com createUnoDialog() e, para execut-lo, chamamos o seu mtodo execute. Para fechar o dilogo chamamos o seu mtodo endExecute ( chamado em dois procedimentos). Objetos UNO (criados com createUno) devem ser declarados com o tipo Variant e no Object. A seguir, vamos associar os procedimentos aos eventos do dilogo. Selecione a pgina Dialog1 para ativar o editor de dilogos. Em nosso dilogo, selecione o boto OK e clique no cone Propriedades. Surge a janela Propriedades, clique na aba Eventos e, em seguida, clique no boto direita do campo do evento Ao Iniciar. Surge a janela Atribuir macros com o evento Ao Iniciar selecionado. Na rvore Macros, expanda as entradas Primeira_Macro.sxw e Standard, clique sobre Module1. Surge a relao de procedimentos do mdulo, selecione o procedimento dlgInserirFrase e clique sobre o boto Atribuir. Para fechar a janela, clique no boto OK.

14

Introduo ao OpenOffice.org Basic

Verso 1

Dilogos Personalizados

Figura 9: Dilogo Atribuir macro Agora, repita os passos acima para atribuir o procedimento dlgCancelaDialogo ao evento Ao Iniciar, do boto Cancelar do nosso dilogo. Para o OpenOffice.org Basic, o primeiro procedimento no mdulo o ponto de entrada da macro. Logo, a Sub dlgExecutaDialogo ser automaticamente executada toda vez que executarmos a nossa macro. Teste a macro e o dilogo personalizado, clicando sobre o cone Executar, na barra de ferramentas do IDE Basic. Digite uma frase qualquer na caixa de texto do dilogo e clique sobre o boto Ok. Aps a execuo da macro, verifique se a frase foi adicionada corretamente ao documento. No prximo captulo, vamos transformar o nosso dilogo simples num Piloto Automtico.

Introduo ao OpenOffice.org Basic

15

Dilogos Personalizados

Verso 1

3 Pilotos Automticos

3.1 IntroduoUm Piloto Automtico um Dilogo exibido em vrios passos. uma forma eficiente de guiar o usurio na execuo de uma tarefa. O OpenOffice.org traz, em sua instalao padro, vrios Pilotos Automticos. Verifique o funcionamento de um deles, selecionando Arquivo Piloto Automtico Carta.

3.2 Criando um Piloto AutomticoNesta seo, veremos como transformar o Dilogo Personalizado do captulo anterior, num Piloto Automtico. A idia geral , num primeiro passo, obter a frase e, num segundo passo, solicitar uma posio para inserir a frase digitada. Para dar este efeito passo a passo, o OpenOffice.org permite a criao de dilogos com mltiplas pginas. O dilogo com a propriedade Pgina igual a 1 ser exibido no primeiro passo, o da pgina 2 no segundo, e assim sucessivamente. Os controles do OpenOffice.org Basic tm uma propriedade Pgina (Step), que controla em qual pgina de dilogo ele ser exibido. Assim, os controles com a propriedade Pgina igual a 1 (um) sero visveis no dilogo da pgina 1 (um), aqueles com a Pgina igual a 2 (dois) sero visveis no dilogo da pgina 2 (dois) e assim por diante. Um controle ser exibido em todos os passos quando a sua propriedade Pgina for igual a 0 (zero). O ltimo dilogo acessado no editor de dilogos, independente do nmero da sua pgina, ser o primeiro a ser exibido na execuo da macro. Portanto, aps desenhar os dilogos do Piloto Automtico, retorne para o dilogo da pgina 1 (um). Se voc definir a pgina do dilogo para 0 (zero), todos os controles, de todas as pginas, sero exibidos. Na transformao do dilogo em Piloto Automtico, precisaremos de mais alguns controles e, tambm, alterar algumas propriedades dos controles existentes. Carregue o Writer, abra o documento Primera_Macro.sxw, selecione Ferramentas Macro, navegue at o modulo Primera_Macro - Standard Module1 e pressione o boto Editar, para ativar o IDE Basic. Clique sobre a aba Dialog1, ativando o Editor de Dilogos e redimensione o dilogo tornando-o mais largo. Selecione os botes Ok e Cancelar (clique em Ok, pressione a tecla Shift e clique em Cancelar), mova horizontalmente estes botes para a direita. Na barra de ferramentas do IDE basic, clique no cone Controles e posicione o quadro de controles ao lado do dilogo.16 Introduo ao OpenOffice.org Basic

Verso 1

Pilotos Automticos

Clique no cone Boto, no quadro de controles e adicione dois novos botes no dilogo, lado a lado e esquerda do boto Ok. Selecione o boto CommandButton3, clique no cone Propriedades e defina a propriedade Titulo para >. Selecione o boto Ok e altere o seu Ttulo para Concluir. Selecione o dilogo (clique na sua borda externa) e defina a sua propriedade Pgina (Step) para 1 (um). Selecione o controle Etiqueta e defina a sua propriedade Pgina para 1 (um). Selecione o controle Caixa de Texto e defina a sua propriedade Pgina para 1 (um). Agora, retoque a primeira pgina do Piloto Automtico, tornando-a semelhante figura abaixo.

Figura 10: Primeira Pgina do Dilogo do Piloto Automtico Bem, vamos prosseguir em nosso projeto, desenhando a Pgina 2 do Piloto Automtico. Selecione o dilogo e altere a propriedade Pgina para 2 (dois). Note que os controles Etiqueta e Caixa de Texto desaparecem, pois eles pertencem Pgina 1. Os botes, que tm a pgina igual a 0 (zero), continuam visveis. Adicione uma Etiqueta na parte superior esquerda do dilogo e defina o seu Ttulo para Selecione a posio. Observe que a propriedade pgina igual a 2 (dois), o mesmo valor do dilogo. Clique sobre o cone Boto de Opo, no quadro de controles, e ponha trs botes de opo, na parte superior direita do dilogo, um abaixo do outro. Defina o Ttulo do primeiro boto de opo para no Cursor e a sua propriedade Estado para Selecionado. Defina o Ttulo do segundo boto de opo para no Incio. Defina o Ttulo do terceiro boto de opo para no Final. Agora, ajuste os controles da segunda pgina do Piloto Automtico, tornando-a semelhante figura abaixo. Note que o boto de opo no Cursor o padro. A ativao e desativao dos botes Voltar e Prximo ser feita em tempo de execuo (pelo cdigo fonte).

Introduo ao OpenOffice.org Basic

17

Pilotos Automticos

Verso 1

Figura 11: Segunda Pgina do Dilogo do Piloto Automtico. Para finalizar o desenho do Piloto Automtico, selecione o dilogo e retorne para a Pgina 1 (um), pois o OpenOffice.org, como padro, exibe a ltima pgina acessada no Editor de Di logos. Na prxima seo, veremos o cdigo fonte necessrio para dar funcionalidade ao Piloto Automtico.

3.3 Manipulando Eventos do Piloto AutomticoO nosso Piloto Automtico tem dois novos botes (Voltar e Prximo) e precisamos de cdigo fonte para interceptar e processar os seus eventos. Ative o IDE Basic e seu editor e digite (ou copie e cole) o cdigo abaixo acima da Sub Main.

Sub dlgProximoDialogo oDialogo.Model.Step = 2 oDialogo.Model.CommandButton3.Enabled = true oDialogo.Model.CommandButton4.Enabled = false End Sub Sub dlgVoltarDialogo oDialogo.Model.Step = 1 oDialogo.Model.CommandButton3.Enabled = false oDialogo.Model.CommandButton4.Enabled = true End Sub

Antes de inserir a frase, precisamos verificar a posio, selecionada no segundo passo (botes de opo) e tratar essa escolha adequadamente. Digite o cdigo abaixo na Sub dlgInserirFrase, aps a linha oCursor = oTexto.CreateTextCursorByRange(...) e antes da linha oTexto.insertString(...).

' a posio da frase no incio ou no final if oDialogo.Model.OptionButton2.State = 1 then oCursor.gotoStart(FALSE) elseif oDialogo.Model.OptionButton3.State = 1 then

18

Introduo ao OpenOffice.org Basic

Verso 1

Pilotos Automticos

oCursor.gotoEnd(FALSE) endif

Agora, vamos ligar os procedimentos aos eventos que nos interessam. Alterne para o editor de dilogos. Selecione o boto Voltar e clique no cone Propriedades. Surge a janela Propriedades, clique na aba Eventos e, em seguida, clique no boto direita do campo do evento Ao Iniciar. Surge a janela Atribuir macros com o evento Ao Iniciar selecionado. Na rvore Macros, expanda as entradas Primeira_Macro.sxw e Standard, clique sobre Module1. Surge a relao de procedimentos do mdulo, selecione o procedimento dlgVoltarDialogo e clique sobre o boto Atribuir. Para fechar a janela, clique no boto OK. Seguindo os passos acima, atribua o procedimento dlgProximoDialogo ao evento Ao Iniciar do boto Prximo. Execute a macro e verifique se tudo ocorreu como o esperado. Agora, voc pode se aventurar escrevendo suas prprias macros. Como um ponto de partida, consulte o prximo captulo em busca de informaes complementares.

Introduo ao OpenOffice.org Basic

19

Pilotos Automticos

Verso 1

4 Introduo a API do OpenOffice.org

4.1 IntroduoA chave para a criao de programas que usam a API do OpenOffice.org so os servios. Um servio uma especificao de um objeto, que engloba um conjunto de interfaces e propriedades. Uma interface uma coleo de mtodos. Uma propriedade um valor que determina uma caracterstica de um servio e formada por um nome e um valor. Para criar um servio, usamos a funo Basic createUnoService(), que retorna um objeto com suporte ao servio ou Null, se no for possvel a criao. Por exemplo, para obter o servio Desktop usamos a chamada:oDesktop = createUnoService( com.sun.star.frame.Desktop )

O parmetro da funo a especificao completa para o servio. Todos os servios iniciam com com.sun.star, em seguida vem o nome do mdulo, neste caso, frame e, por fim, o nome do servio Desktop. Note tambm que a especificao passada como uma cadeia com. sun.star.frame.Desktop. Aps a chamada, podemos verificar se o servio foi criado com:If isNull( oDesktop ) Then ' Erro na criao do servio End If

Existem servios que so dependentes de um contexto. Por exemplo, voc no pode criar uma clula fora de uma planilha. Outros servios no precisam de um ambiente para operar. Existem, ainda, servios que no oferecem nenhuma interface, servindo unicamente para obter e definir propriedades. O Basic oferece duas propriedades que facilitam o acesso a servios, so elas: StarDesktop equivalente ao objeto retornado por uma chamada funo createUnoService( com.sun.star.frame.Desktop ). Digite o cdigo abaixo numa nova sub-rotina, execute e observe o resultado:MsgBox StarDesktop.Dbg_SupportedInterfaces ' ' o mesmo que: ' Dim oDesktop oDesktop = CreateUnoService( "com.sun.star.frame.Desktop" ) MsgBox oDesktop.Dbg_SupportedInterfaces

20

Introduo ao OpenOffice.org Basic

Verso 1

Introduo a API do OpenOffice.org

ThisComponent retorna o objeto documento que contm o cdigo Basic, existe apenas em documentos do Writer, Calc, Impress ou Draw. Algumas de suas interfaces dependem do tipo de documento.Dim oDocumento As Object oDocumento = ThisComponent

O OOo Basic tem trs propriedades muito teis para a inspeo de objetos, so elas: Dbg_SupportedInterfaces retorna as interfaces suportadas pelo objeto Dbg_Properties retorna as propriedades do objeto Dbg_Methods retorna os mtodos suportados pelo objeto Para obter estas propriedades, use a forma Objeto.Propriedade. Por exemplo, verifique as interfaces suportadas pelo modelo de documento, executando o cdigo abaixo:Sub Main MsgBox ThisComponent.Dbg_SupportedInterfaces End Sub

A interface com.sun.star.lang.XServiceInfo possui os mtodos abaixo, teis para inspeo de servios: getImplementationName ( ) As String retorna o nome de implementao do servio supportsService (sNome As String ) As Boolean retorna True se o servio sNome for suportado supportedServiceNames ( ) As String () retorna um conjunto de cadeias com os nomes dos servios suportados, inclusive os indiretos Para obter ou definir valores de propriedades, temos dois casos: a) se o nmero de propriedades for fixo, ento usamos atribuies simples do Basic, como:Dim nCorAntiga As Long nCorAntiga = oRectangleShape.FillColor oRectangleShape.FillColor = RGB(255,0,0)

b) se for uma sequncia, devemos definir um vetor antes de manipular as propriedades:Dim mPropArquivo(1) As New com.sun.star.beans.PropertyValue mPropArquivo(0).Name = "FilterName" mPropArquivo(0).Value = "swriter: StarWriter 5.0" mPropArquivo(1).Name = "AsTemplate" mPropArquivo(1).Value = True

Introduo ao OpenOffice.org Basic

21

Introduo a API do OpenOffice.org

Verso 1

A sequncia com.sun.star.beans.PropertyValue implementa o servio MediaDescriptor, que descreve de onde (ou aonde) e como um recurso deve ser carregado ou gravado. Observe que as propriedades so definidas por um par Name e Value. A seguir, vamos analisar um exemplo de cdigo que usa alguns destes conceitos.

4.2 Criando um novo documentoVamos, agora, desenvolver uma sub-rotina para criar um novo documento a partir de um modelo existente. O cdigo fonte Basic, em linhas gerais, precisa tratar dos seguintes detalhes: a) obter o caminho completo para o arquivo modelo; b) carregar o arquivo, informando ao OpenOffice.org que se trata de um modelo; A sub-rotina Sub criaNovoDocumento, abaixo, executa estas tarefas apropriadamente.' -------------------------------------------' Cria um novo documento a partir de um modelo ' -------------------------------------------Sub criaNovoDocumento Dim oDesktop As Variant Dim oDocumento As Object Dim mPropArquivo(0) As New com.sun.star.beans.PropertyValue Dim sUrl As String ' cria o objeto oDesktop oDesktop = createUnoService("com.sun.star.frame.Desktop") ' define a URL do arquivo modelo, ALTERE para seu sistema sUrl = "file:///D:/nad/openoffice/documentation.stw" ' define a propriedade AsTemplate para True mPropArquivo(0).Name = "AsTemplate" mPropArquivo(0).Value = True ' cria o objeto oDocumento oDocumento = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mPropArquivo()) ' INSERIR CDIGO PARA SALVAR AQUI End Sub

As linhas iniciadas pelo comando Dim declaram todas as variveis usadas pela sub-rotina. Para carregar um arquivo, usamos o mtodo loadComponentFromURL(), que definido por uma interface do servio Desktop. Ento, precisamos de um objeto UNO Desktop, declarado na linha Dim oDesktop As Variant. Aqui, o tipo Variant segue uma recomendao do Developers Guide para a declarao de objetos UNO. A varivel sUrl (tipo String) recebe a especificao completa do caminho para o arquivo. Ser passada como parmetro do mtodo loadComponentFromURL(). O mtodo loadComponentFromURL() retorna um objeto Document. A linha Dim oDocumento As Object reserva memria para este objeto. O mtodo loadComponentFromURL(), recebe uma sequncia de propriedades como parmetro. A linha Dim mPropArquivo declara e define um vetor para esta sequncia. A definio

22

Introduo ao OpenOffice.org Basic

Verso 1

Introduo a API do OpenOffice.org

do objeto feita com o operador New seguido do tipo de objeto (As New com.sun.star.beans. PropertyValue). A linha oDesktop = createUnoService(...) se encarrega da criao do objeto Desktop. A linha oDocumento = oDesktop.loadComponentFromURL(...) carrega o documento de acordo com os parmetros e retorna um objeto do tipo Document. Note que a sequncia mPropArquivo passada como argumento seguida de (). O parmetro _blank significa que um novo quadro ser criado para o documento. Pronto, agora digite (ou copie e cole) a Sub criaNovoDocumento, alterando a varivel sUrl para conter um caminho completo do seu sistema, e execute a macro para ver seu resultado. No prximo captulo, aprenderemos mais sobre programao com documentos do OpenOffice.org.

Introduo ao OpenOffice.org Basic

23

Trabalhando com Documentos

Verso 1

5 Trabalhando com Documentos

5.1 Carregando DocumentosPara carregar ou criar um documento do OpenOffice.org devemos: a) Criar um objeto DesktopDim oDesktop As Variant oDesktop = createUnoService(com.sun.star.frame.Desktop)

b) Definir a URL Voc deve fornecer uma cadeia de caracteres com a especificao completa do caminho do documento, caso esteja abrindo um documento existente, na forma: file:///caminho_completo_do_arquivo Para novos documentos, criados a partir do modelo padro, existem URLs pr-definidas, que devem ser usadas de acordo com o tipo de documento: URL private:factory/swriter private:factory/scalc private:factory/sdraw private:factory/simpress Descrio Cria um novo documento do Writer Cria um novo documento do Calc Cria um novo documento do Draw Cria um novo documento do Impress

c) Definir as propriedades do descritor de mdia O descritor de mdia um servio (com.sun.star.document.MediaDescriptor) que define como um recurso deve ser carregado. As propriedades do descritor so definidas numa sequncia com.sun.star.beans.PropertyValue. Declare um vetor para a sequncia, de acordo com o nmero de propriedades a alterar, como abaixo:' declara um vetor vazio, para efeito de passagem como parmetro Dim mPadrao() ' define um vetor para 1 propriedade (ndice 0) Dim mPropriedades(0) As New com.sun.star.beans.PropertyValue mPropArquivo(0).Name = "AsTemplate" mPropArquivo(0).Value = True ' define um vetor para 2 propriedades (ndices 0 e 1) Dim mPropriedades(1) As New com.sun.star.beans.PropertyValue

Seguem as descries de algumas propriedades (existem vrias):

24

Introduo ao OpenOffice.org Basic

Verso 1

Trabalhando com Documentos

Propriedade AsTemplate

Tipo boolean

Descrio Se True cria um novo documento, a partir do documento carregado, mesmo que ele no seja um modelo. Se for um modelo e AsTemplate for False o documento ser carregado para edio. Define um filtro a ser usado para carregar ou salvar o documento. Aps a carga, salta para uma posio (clula, bookmark, etc). Sobrescreve um documento ao salvar. Padro True. Se o documento deve ser somente leitura ou leitura / gravao. Na gravao o documento no ser compactado (zip). Senha para gravar ou carregar o documento.

FilterName JumpMark Overwrite ReadOnly Unpacked Password

String String boolean boolean boolean String

d) Definir o quadro de destino o frame onde o documento ser carregado / criado, se j existir um quadro com o nome especificado, ele ser usado, seno um novo ser criado. Os nomes pr-definidos, a seguir, nunca devem ser usados como nome de quadros: _blank; _default; _self; _parent; _top e _beamer. Use _blank para criar um novo quadro. e) Definir o flag de busca uma constante que define o tipo de algoritmo usado para encontrar o quadro de destino. Use um valor 0 para desconsiderar. f) Chamar o mtodo loadComponentFromURL() Este mtodo, do objeto Desktop, carrega o componente definido pela URL, dentro do quadro de destino. Vejamos seus detalhes: loadComponentFromURL( URL As String, FrameDestino As String, FlagBusca As Long, Propriedades As ) O valor de retorno um objeto XComponent ou Null em caso de erro. Eis um exemplo de chamada:oDocumento = oDesktop.loadComponentFromURL(sUrl, "_blank", _ 0, mPropArquivo())

Isto tudo, analise novamente o cdigo da Sub criaNovoDocumento, do captulo anterior.

5.2 Salvando DocumentosPara salvar um documento, devemos: ( as letras a), b) e c), abaixo, foram vistas no item 5.1 Carregando documentos)Introduo ao OpenOffice.org Basic 25

Trabalhando com Documentos

Verso 1

a) Criar um objeto Document Nomalmente, por uma chamada a loadComponentFromURL() ou ThisComponent. b) Definir a URL Trata-se do caminho completo do recurso. c) Definir as propriedades So as propriedades do descritor de mdia. d) Chamar o mtodo adequado Os documentos do OpenOffice.org suportam os mtodos abaixo para salvar componentes: store ( ) storeAsURL ( sURL As String, Propriedades As ) storeToURL ( sURL As String, Propriedades As ) O mtodo store ( ) simplesmente sobrescreve um arquivo e no deve ser usado num novo documento sem nome. O mtodo storeAsURL ( ) recebe dois parmetros e funciona como o comando Salvar Como do OpenOffice.org. O mtodo storeToURL ( ) recebe dois parmetros, salva o contedo do documento em sURL e no altera o arquivo original. til para exportar arquivos. Exemplos de chamadas:' salva um documento que j existe ThisComponent.store ( ) ' ou, supondo que oDocumento foi definido oDocumento.store ( )

Documentos abertos com loadComponentFromURL ( ), devem usar os mtodos storeAsURL ou storeToURL. Como exemplo, digite (ou copie e cole) o cdigo fonte abaixo, aps a linha ' INSERIR CDIGO PARA SALVAR AQUI da Sub criaNovoDocumento ( ), edite a varivel sUrl conforme o seu sistema, execute a macro e verifique que um novo arquivo foi gravado em sURL..' -------------------' Grava o novo arquivo ' -------------------' Define a URL do novo arquivo (ALTERE para seu sistema) sUrl = "file:///D:/nad/openoffice/novo_texto.sxw" ' define a propriedade Overwrite para False mPropArquivo(0).Name = "Overwrite" mPropArquivo(0).Value = FALSE ' grava o novo documento oDocumento.storeAsURL(sUrl, mPropArquivo())

Temos, ainda, os mtodos abaixo, relacionados com a tarefa de salvar arquivos: isModified() As Boolean26 Introduo ao OpenOffice.org Basic

Verso 1

Trabalhando com Documentos

Retorna True se o recurso foi modificado, seno retorna False. hasLocation ( ) As Boolean Retorna True se o arquivo j existe (foi gravado), seno retorna False. GetLocation ( ) As String Retorna uma String com a URL do recurso. isReadonly ( ) As Boolean Retorna True se for somente leitura, em caso contrrio retorna False A seguir, temos um fragmento de cdigo mais elaborado para salvar arquivos:If (oDocumento.isModified) Then If (oDocumento.hasLocation And (Not oDocumento.isReadOnly)) Then oDocumento.store() Else oDocumento.storeAsURL(sURL, mPropArquivo()) End If End If

5.3 Imprimindo DocumentosO servio OfficeDocument contm a interface XPrintable, que fornece os mtodos para a impresso e definio de impressora no OpenOffice.org, so eles: getPrinter ( ) As Variant < com::sun::star::beans::PropertyValue > setPrinter ( aImpressora As Variant < com::sun::star::beans::PropertyValue >) print ( xOpcoes As Variant < com::sun::star::beans::PropertyValue >) Vamos analisar as caractersticas e chamadas de cada um destes mtodos. getPrinter () As Variant < com::sun::star::beans::PropertyValue > Este mtodo retorna uma sequncia com o descritor da impressora corrente. O descritor (PrinterDescriptor) contm a fila de impresso e as definies da impressora, conforme a tabela abaixo: Propriedade Name PaperOrientation PaperFormat PaperSize IsBusy CanSetPaperOrientation CanSetPaperFormat Descrio Uma cadeia (String) com o nome da fila de impresso Contm a orientao do papel Especifica um tamanho de papel padro ou definido pelo usurio Especifica o tamanho do papel em 1/100 mm True se a impressora estiver ocupada; False seno True se a impressora permite mudar a orientao do papel True se a impressora permite mudar o formato do papel

CanSetPaperSize True se a impressora permite mudar o tamanho do papel As quatro ltimas propriedades so somente leitura.Introduo ao OpenOffice.org Basic 27

Trabalhando com Documentos

Verso 1

Vejamos um exemplo que acessa as propriedades da impressora corrente:Sub obtemDescritorImpressora Dim oDoc As Object Dim oDescImpr As Variant Dim sMsg As String oDoc = ThisComponent ' obtem o vetor de estruturas PrinterDescriptor oDescImpr = oDoc.getPrinter() ' obtem tamanho do vetor de estruturas iNrEstruturas% = UBound(oDescImpr) ' extrai os nomes das propriedades da impressora For n = 0 To iNrEstruturas% sMsg=sMsg + oDescImpr(n).Name + " " Next n ' exibe os nomes das propriedades MsgBox sMsg,0,"Propriedades Impressora" ' obtem e exibe o valor da propriedade PageFormat ' A3=0; A4=1; Letter/Carta=5; ... MsgBox oDescImpr(2).Value ' verifica se PageFormat pode ser alterada If oDescImpr(6).Value Then MsgBox "Formato da Pgina, pode ser alterado!" ' ento altera para A4 oDescImpr(2).Value = 1 Else MsgBox "Formato da Pgina, no pode ser alterado!" End If ' exibe o valor de PageFormat novamente MsgBox oDescImpr(2).Value End Sub

O cdigo acima chama o mtodo getPrinter ( ) para obter as propriedades da impressora corrente. Em seguida, no lao For ... Next, extrai os nomes de cada propriedade. E, mais abaixo, obtm e altera o formato da pgina, se possvel. setPrinter ( aImpressora As Variant < com::sun::star::beans::PropertyValue >) Atribui uma nova impressora ao documento. Pode implicar numa reformatao. As propriedades da impressora so as mesmas da tabela acima. print ( xOpcoes As Variant < com::sun::star::beans::PropertyValue >) Imprime o documento de acordo com as opes de impresso (PrintOptions) em xOpcoes. Estas opes so descritas na tabela a seguir: Opo CopyCount FileName Collate Pages Descrio ( Int ) Especifica o nmero de cpias a imprimir Cadeia com o nome de um arquivo para a impresso Se True todo o documento ser impresso antes da prxima cpia, seno imprime todas as cpias pgina a pgina Uma cadeia com as pginas a serem impressas, por exemplo: 1;3;5-8;12Introduo ao OpenOffice.org Basic

28

Verso 1

Trabalhando com Documentos

Vejamos alguns exemplos de cdigo fonte. Para imprimir um documento:' imprimir o documento com as definies correntes Dim aOpcoes () oDocumento.print (aOpcoes() )

Para imprimir somente as pginas 1; 3; 5-8 e 12.Dim aOpcoes(0) aOpcoes(0).Name = Page aOpcoes(0).Value = 1;3;5-8;12 ThisComponent.print ( aOpcoes() )

Para imprimir numa impressora que no a padro, voc precisa alterar a propriedade Name da impressora e chamar setPrinter definindo uma nova impressora, como abaixo:Dim mImpressora(0) As New com.sun.star.beans.PropertyValue Dim aOpcoes() ' somente para passar o parmetro ' mImpressora(0).Name="Name" mImpressora(0).value="Segunda_Impressora" ' define a nova impressora para o objeto, ' pode ocorrer uma formatao do documento oDocumento.setPrinter = mImpressora() ' imprime com as opcoes padro oDocumento.print( aOpcoes() )

5.4 Fechando DocumentosPara fechar um documento, devemos considerar dois casos: a) Aberto com loadComponentFromURL() Vimos que este mtodo retorna um objeto XComponent. A interface deste servio fornece o mtodo dispose(), que usado para fechar um componente, sua chamada simples:oDocumento.dispose()

Acrescente a linha acima aps a ltima linha da Sub criaNovoDocumento(), execute a macro e observe o resultado. b) Aberto pela interface do OpenOffice.org Se o documento foi carregado com o comando Arquivo Abrir do OpenOffice.org e no houve a definio de um objeto Document, use a propriedade ThisComponent, como abaixo:ThisComponent.dispose()

Introduo ao OpenOffice.org Basic

29

Trabalhando com Documentos

Verso 1

Cuidado, o mtodo dispose() descarta todas as alteraes efetuadas no documento. Portanto, antes de cham-lo, certifique-se de grav-las. Ou, ainda, use isModified() para alertar o usurio. Existem maneiras mais seguras para controlar o fechamento de componentes, porm esto alm do escopo desta Introduo.

5.5 Identificando os Documentos AbertosTodos os documentos abertos so gerenciados pelo objeto Desktop. Cada documento considerado um componente deste objeto, contudo nem todo componente um documento. Por exemplo, se tivermos uma planilha e um documento de texto abertos, com o Navegador de Fonte de Dados ativo, existem trs componentes no Desktop, dos quais dois so documentos. A Sub exibeComponentes, abaixo, obtm uma enumerao dos componentes ativos, verifica quais so modelos de documentos e exibe informaes sobre o seu tipo.Sub exibeComponentes Dim oComponentes As Variant Dim oComp As Variant Dim sURL As String Dim sTipo As String oComponentes = StarDesktop.getComponents().createEnumeration() n = 0 Do While (oComponentes.hasMoreElements()) oComp = oComponentes.nextElement() ' nem todos componentes so modelos com uma URL If HasUnoInterfaces(oComp, "com.sun.star.frame.XModel") Then sURL = oComp.getURL() If oComp.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then sTipo = "Calc" ElseIf oComp.SupportsService("com.sun.star.text.TextDocument") Then sTipo = "Writer" ElseIf oComp.SupportsService("com.sun.star.drawing.DrawingDocument") Then sTipo = "Draw" ElseIf oComp.SupportsService("com.sun.star.formula.FormulaProperties") Then sTipo = "Math" Else sTipo = "Outro" End If MsgBox sTipo + Chr$(13) + sURL End If n = n + 1 Loop MsgBox "Componentes: " + Str$(n) End Sub

Analise atentamente o cdigo fonte acima, ele demonstra aspectos importantes da programao da API do OpenOffice.org. Note como se d a criao de uma enumerao e como visitamos os seus elementos. Aps a identificao de um documento, voc pode, por exemplo, comandar a sua impresso ou o seu fechamento, alm, claro, de poder manipular o seu contedo, aplicando as tcnicas que sero vistas nos prximos captulos.

30

Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

6 Documentos do Writer

6.1 IntroduoNeste captulo, veremos como efetuar tarefas simples de processamento de texto, como: edio, formatao, busca e substituio. Vamos abordar o assunto atravs de exemplos prticos, com uma breve explicao dos aspectos mais importantes. Um documento do Writer contm principalmente texto, organizado em pargrafos e tabelas. Alm destes elementos bsicos, ele suporta molduras, objetos embutidos, campos, grficos, marcadores, ndices e muitos outros objetos. Estes dados compreendem um modelo de documento. Atravs do modelo, podemos manipular os dados independentemente da sua representao visual. Para lidar com o aspecto visual do documento, o modelo dispe de um objeto controlador. Alguns elementos de um documento (grficos, molduras, etc) so nomeados e esto ancorados num pargrafo, caractere ou pgina. Os pargrafos no recebem um nome e nem um ndice, de modo que seu acesso deve ser sequncial.

6.2 Editando textoAntes de comear a editar o texto de um documento, devemos ter em mente o seguinte: a) Criar uma instncia do componente a editar, isto , um objeto que represente o documento do Writer; b) Obter o contedo a editar, neste caso, um objeto com o texto do documento; c) Fazer a edio do contedo, usando os mtodos apropriados. Crie um novo documento do Writer, v para o IDE Basic, digite o cdigo abaixo e execute a Sub editaTexto para ver o resultado.Sub editaTexto Dim oDoc As Object Dim oTxt As Object Dim oTxtRange As Object Dim sStr As String oDoc = ThisComponent oTxt = oDoc.getText() sStr = "Esta uma " oTxt.setString( sStr ) oTxtRange = oTxt.getEnd() sStr = "cadeia de caracteres " oTxtRange.setString( sStr )

Introduo ao OpenOffice.org Basic

31

Documentos do Writer

Verso 1

End Sub

Neste exemplo, usamos a interface XTextRange para editar texto. Eis os seus mtodos: getText() As Text retorna um objeto Text getString() As String retorna a String contida no objeto setString( sStr As String) define a String como o contedo do objeto getStart() As Object retorna um objeto TextRange apontando para o incio do objeto chamador getEnd() As Object retorna um objeto TextRange apontando para o final do objeto chamador Inicialmente, chamamos o mtodo getText ( ), que retorna um objeto Text, este passo corres ponde ao item b) acima. Em seguida, na linha oTxt.setString(sStr), definimos uma cadeia de caracteres para o nosso objeto Text, isto significa que todo o contedo do documento objeto oTxt - ser substitudo pela cadeia sStr de setString. Antes de inserir mais texto, precisamos obter o final do contedo de oTxt com a chamada ao mtodo getEnd( ) e usar este novo objeto TextRange para inserir mais texto. Atravs do mtodo getStart, poderamos inserir texto no incio. Note, ainda, que as variveis dos servios Text e TextRange so declaradas como Object. Ateno, oTxt tambm um TextRange, assim podemos substituir a varivel oTxtRange pelo encadeamento de mtodos abaixo: oTxt.getEnd ().setString ( sStr ) Este processo de edio muito limitado. Podemos apenas substituir todo o contedo do texto e inserir texto no incio ou no final do documento.

6.3 Movendo-se pelo textoPara aumentar a flexibilidade na edio de texto, o modelo de documento nos oferece dois tipos de cursor: um cursor de texto e um cursor da vista. O primeiro opera sobre o contedo do documento independente da interface grfica e o segundo representa o cursor visvel na interface grfica. Voc pode criar quantos cursores desejar. O alcance de um cursor tem um incio e um final, que pode abranger uma faixa varivel de texto ou coincidir num mesmo ponto. O alcance do cursor pode ser expandido durante o deslocamento do mesmo. No Writer, alm do cursor de texto, temos ainda: cursor de palavra, cursor de sentena e cursor de pargrafo, todos derivados do cursor de texto. Vejamos, agora, as interfaces e mtodos usados para flexibilizar a edio de texto.32 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

A interface XSimpleText, derivada de XTextRange, usada na criao do cursor de texto, na insero de cadeias e de caracteres de controle, ela possui os seguintes mtodos: createTextCursor ( ) As Object Retorna um objeto cursor de texto ( no incio do contedo ) createTextCursorByRange (aPos As TextRange) As Object Cria um objeto cursor de texto na posio especificada no parmetro insertString(aPos As TextRange, sStr As String, bFlag As Boolean) Insere a cadeia na posio. Se bFlag for True o contedo de aPos ser substitudo por sStr, seno sStr ser acrescentada no final de aPos. insertControlCharacter( aPos As TextRange, iChar As Integer, bFlag As Boolean ) Insere um caractere de controle na posio aPos. O servio TextCursor, atravs da interface XTextCursor, prov mtodos para o controle do estado e movimentao do cursor. a) Mtodos para mover o cursor: goLeft (iNrChar As Integer, bExpande As Boolean) As Boolean move o cursor para a esquerda iNrChar caracteres goRight (iNrChar As Integer, bExpande As Boolean) As Boolean move o cursor para a direita iNrChar caracteres gotoStart (bExpande As Boolean) move o cursor para o incio do texto gotoEnd (bExpande As Boolean) move o cursor para o final do texto gotoRange (xRange As , bExpande As Boolean) move ou expande o cursor sobre o objeto TextRange Em todos os mtodos acima, se bExpande for True o alcance do cursor ser expandido. b) Mtodos para controlar o estado do cursor: collapseToStart ( ) move a posio do final do cursor para o seu incio collapseToEnd ( ) move a posio do incio do cursor para o seu final isCollapsed ( ) As Boolean retorna True se as posies inicial e final do cursor forem iguais As interfaces XWordCursor, XSentenceCursor e XparagraphCursor, todas derivadas de XTextCursor, tambm fornecem mtodos para controle e movimento do cursor. a) Mtodos de XWordCursor: gotoNextWord (bExpande As Boolean) As Boolean gotoPreviousWord (bExpande As Boolean) As Boolean gotoEndOfWord (bExpande As Boolean) As Boolean gotoStartOfWord (bExpande As Boolean) As Boolean isStartOfWord ( ) As BooleanIntroduo ao OpenOffice.org Basic 33

Documentos do Writer

Verso 1

isEndOfWord ( ) As Boolean b) Mtodos de XSentenceCursor: gotoNextSentence (Expande As Boolean) As Boolean gotoPreviousSentence (bExpande As Boolean) As Boolean gotoStartOfSentence (bExpande As Boolean) As Boolean gotoEndOfSentence (bExpande As Boolean) As Boolean isStartOfSentence ( ) As Boolean isEndOfSentence ( ) As Boolean c) Mtodos de XParagraphCursor: gotoStartOfParagraph (bExpande As Boolean) As Boolean gotoEndOfParagraph (bExpande As Boolean) As Boolean gotoNextParagraph (bExpande As Boolean) As Boolean gotoPreviousParagraph (bExpande As Boolean) As Boolean isStartOfParagraph ( ) As Boolean isEndOfParagraph ( ) As Boolean Antes de apresentar um exemplo, vejamos os caracteres de controle que podem ser inseridos num documento do Writer. Na interface grfica, eles so chamados de caracteres no imprimveis e tm funes especiais na apresentao final do documento. Para facilitar o seu emprego, estes caracteres esto definidos como constantes, no grupo de constantes com.sun.star.text.ControlCharacter. Eles podem ser inseridos no texto com o mtodo insertControlCharacter () ou como parte do contedo de uma cadeia, neste caso, usando o seu cdigo Unicode. Eis uma relao dos caracteres de controle com os seus respectivos cdigos:PARAGRAPH_BREAK LINE_BREAK HARD_HYPHEN SOFT_HYPHEN HARD_SPACE APPEND_PARAGRAP H Insere uma quebra de pargrafo Quebra de linha dentro de um pargrafo Caractere que aparece como um travesso. Hifenizao no remove. Marca uma posio preferida para hifenizao. Espao com tamanho fixo. Acrescenta um novo pargrafo 0x000D 0x000A 0x2011 0x00AD 0x00A0 No tem

Vamos encerrar esta seo com um exemplo demonstrando o emprego de alguns dos conceitos e mtodos apresentados. Ative o IDE Basic, digite (ou copie e cole) o cdigo fonte a seguir e execute a sub-rotina Sub processaTexto. Ela insere texto, caracteres de controle e uma quebra de pgina num novo documento sem nome. Depois, seleciona e substitui duas palavras por uma cadeia vazia.Sub processaTexto Dim oDesktop As Variant Dim oDoc As Object Dim oCursor As Object

34

Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

Dim oTexto As Object Dim mPropArquivo() Dim sStr As String oDesktop = createUnoService("com.sun.star.frame.Desktop") oDoc = oDesktop.loadComponentFromURL("private:factory/swriter",_ "_blank", 0, mPropArquivo()) oTexto = oDoc.getText() oCursor = oTexto.createTextCursor() sStr = "Este o texto do primeiro pargrafo do documento" With oTexto ' insere o texto na posio corrente do cursor .insertString(oCursor, sStr, False) ' insere um pargrafo .insertControlCharacter(oCursor,_ com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False) .insertString(oCursor, "Este o segundo pargrafo ", False) .insertControlCharacter(oCursor, _ com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False) End With ' insere uma nova pgina oCursor.gotoStartOfParagraph(True) oCursor.breakType = com.sun.star.style.BreakType.PAGE_BEFORE oTexto.insertString(oCursor, "Estou numa nova pgina.", False) ' move o cursor sem expanso oCursor.gotoStart(False) oCursor.gotoNextWord(False) oCursor.gotoNextWord(False) oCursor.gotoNextWord(False) ' move o cursor expandindo, i., seleciona texto do oCursor.gotoNextWord(True) oCursor.gotoNextWord(True) ' substitui o texto entre o incio e o final do cursor oTexto.insertString(oCursor, "", True) End Sub

No cdigo acima, estude o emprego do parmetro bExpande (True ou False) ele muito importante. Outro aspecto a insero da quebra de pgina. No existe um caractere de controle para quebra de pgina ou coluna. Ela uma propriedade do pargrafo. Note que usamos oCursor para definir uma propriedade do pargrafo (oCursor.breakType). Isto possvel porque o objeto TextCursor herda caractersticas de TextRange. Os valores possveis para a propriedade breakType (quebra de pgina e coluna) esto enumerados em com.sun.star.style.BreakType, aqui usamos PAGE_BEFORE. Finalmente, observe, no novo documento, que o cursor da vista encontra-se no final do mesmo, apesar da ltima ao (seleo e substituio) ter ocorrido no primeiro pargrafo, o que demonstra a independncia entre o cursor de texto e a interface grfica. Lembre-se, ainda, que o acesso interface grfica se d atravs do controlador do modelo do documento. O cdigo fonte da sub-rotina dlgInserirFrase, do Captulo 3 (Piloto Automtico), mostra como acessar o controlador e criar um cursor da vista.

Introduo ao OpenOffice.org Basic

35

Documentos do Writer

Verso 1

6.4 Formatando textoEsta outra tarefa comum em processamento de textos. Temos duas abordagens para formatar um contedo de texto: a primeira aplicar as caractersticas desejadas diretamente sobre o objeto, sobrescrevendo as definies bsicas, por exemplo, selecionar um pargrafo e mudar o seu ajustamento; a segunda consiste em aplicar um estilo pr-definido de formatao, por exemplo selecionar um pargrafo e mudar o seu estilo de Padro para Ttulo. Inicialmente, vamos demonstrar a primeira abordagem. Existe uma grande quantidade de propriedades relacionadas formatao, como propriedades de caracteres e de pargrafos. O servio com.sun.star.style.CharacterProperties define as propriedades comuns de caracteres. Eis algumas delas: Propriedade CharFontName CharFontStyleName CharFontFamily CharHeight CharUnderline CharWeight CharPosture CharFlash CharStrikeout CharRotation Descrio Especifica o nome do estilo da fonte Contm o nome do estilo da fonte Contm a famlia da fonte conforme (com.sun.star.awt.FontFamily) Valor com a altura do caracteres em pontos Contm o valor do caractere do sublinhado (com.sun.star.awt.Underline) Contm o valor do peso da fonte (com.sun.star.awt.FontWeight) Contm o valor da postura da fonte (com.sun.star.awt.FontSlant) Se True o caractere pisca. opcional Define o tipo de risco do caractere (com.sun.star.awt.FontStrikeout) Define a rotao do caractere em graus

Na tabela acima, as referncias ao mdulo com.sun.star.awt, contm possveis valores para as respectivas propriedades dos caracteres. O servio com.sun.star.style.ParagraphProperties define as propriedades dos pargrafos. A tabela abaixo apresenta algumas: Propriedade ParaAdjust ParaBackColor ParaLastLineAdjust ParaLeftMargin ParaRightMargin ParaTopMargin ParaBottomMargin ParaStyleName Descrio Define o tipo de ajuste (com.sun.star.style.ParagraphAdjust) Contm a cor de fundo, opcional Define o ajuste da ltima linha Define a margem esquerda em 1/100 mm ( As Long ) Define a margem direita em 1/100 mm ( As Long ) Define a margem superior do pargrafo em 1/100 mm (As Long) Define a margem inferior do pargrafo em 1/100 mm (As Long) Contm o nome do estilo de pargrafo corrente, opcional.

36

Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

LeftBorder RightBorder TopBorder BottomBorder BorderDistance ParaFirstLineIndent ParaVertAlignment

Define a borda esquerda, opcional (com.sun.star.table.BorderLine ) Define a borda direita, opcional (com.sun.star.table.BorderLine ) Define a borda superior, opcional (com.sun.star.table.BorderLine ) Define a borda inferior, opcional (com.sun.star.table.BorderLine ) Valor com a distncia da borda ao objeto (As Long) Valor longo com a identao da primeira linha, opcional Define o alinhamento vertical (com.sun.star.text.ParagraphVertAlign)

Novamente, as referncias com.sun.star contm valores possveis para as respectivas propriedades, geralmente um valor de 0 a N para constantes. Veja a seguir algumas delas. Constantes de com.sun.star.style.ParagraphAdjust: LEFT, RIGHT, BLOCK, CENTER e STRETCH. Constantes d e com.sun.star.text.ParagraphVertAlign: AUTOMATIC, BASELINE, TOP, CENTER e BOTTOM. Existem muitas outras propriedades para caracteres e pargrafos, uma consulta ao Developers Guide e ao Reference Manual, ambos da Sun Microsystems Inc, indispensvel para aqueles que desejam programar para o OpenOffice.org. Vamos retomar o nosso ltimo exemplo a Sub processaTexto. Desejamos mudar a inclinao e cor da fonte da palavra segundo e, tambm, o estilo de um pargrafo de Padro para Ttulo. Digite o cdigo abaixo, aps a ltima linha da sub-rotina, execute-a e observe o resultado.' ---------------------' cdigo para formatao ' ---------------------oCursor.gotoNextParagraph(FALSE) oCursor.gotoNextWord(False) oCursor.gotoNextWord(False) oCursor.gotoNextWord(False) oCursor.gotoNextWord(True) oCursor.CharPosture = com.sun.star.awt.FontSlant.REVERSE_ITALIC oCursor.CharColor = RGB(255,0,0) ' aplica estilo de pargrafo oCursor.gotoNextParagraph(FALSE) oCursor.paraStyleName = "Heading"

Note a atribuio da propriedade CharPosture a um valor enumerado REVERSE_ITALIC e, ainda, a alterao do estilo de pargrafo paraStyleName para Heading. Em se tratando de programao, os nomes permanecem em ingls, diferindo dos nomes apresentados pelo OpenOffice.org no Catlogo de Estilos.

Introduo ao OpenOffice.org Basic

37

Documentos do Writer

Verso 1

6.5 Formatando com estiloVejamos, agora, a segunda abordagem para formatao, que a aplicao de um estilo sobre o objeto. Sempre que possvel, formate os seus documentos usando este mtodo.Isto facilita futuras alteraes, pois basta mudarmos as caractersticas de um estilo para que todos os objetos com ele formatados sejam alterados. O mdulo com.sun.star.style possui diversas interfaces para formatao, definio e acesso aos estilos usados pelo OpenOffice.org. O Writer disponibiliza diversos tipos de estilos. Temos estilos de pargrafos, estilos de pgi nas, estilos de caracteres, estilos de numerao e estilos de molduras. Todos eles esto agrupados dentro da Famlia de Estilos.Famlia de Estilos Estilos de Estilos de Estilos de Estilos de Estilos de Pginas Pargrafos Caracteres Molduras Numerao ( ( ( ( ( estilo_1, estilo_1, estilo_1, estilo_1, estilo_1, estilo_2, estilo_2, estilo_2, estilo_2, estilo_2, ..., ..., ..., ..., ..., estilo_n estilo_n estilo_n estilo_n estilo_n ) ) ) ) )

O servio com.sun.star.style.StyleFamilies contm as famlias de estilos de um documento, para obter esta coleo faa:Dim oFamiliasEstilos As Object oFamiliasEstilos = ThisComponent.getStyleFamilies()

Num documento texto, uma chamada ao mtodo getElementNames () retorna um vetor com os nomes das seguintes famlias: CharacterStyles ParagraphStyles FrameStyles PageStyles NumberingStyles - estilos de caracteres - estilos de pargrafos - estilos de molduras - estilos de pginas - estilos de numerao

O servio com.sun.star.style.StyleFamily contm os estilos de uma mesma famlia, para obter esta coleo, use o acesso nomeado, isto , getByName (nomeDaFamlia):oEstParagrafos = ThisComponent.StyleFamilies.getByName(ParagraphStyles)

O servio com.sun.star.style.Style define as caractersticas de um estilo, para obter um estilo acesse-o pelo seu ndice, por exemplo, se o objeto oEstParagrafos foi definido, como acima:oEstilo = oEstParagrafos (1)

retorna o segundo estilo dentro da coleo de estilos de pargrafos. A API do OpenOffice.org prov interfaces para facilitar o acesso a elementos de uma dada coleo. Ao trabalhar com estilos precisamos conhecer os mtodos:38 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

con.sun.star.container.XNameAcess getByName (sNome As String ) As Variant getElementNames ( ) As aStrings ( ) hasByName ( sNome As String ) As Boolean con.sun.star.container.XIndexAcess getCount ( ) As Long getByIndex ( nIndice As Long ) As Variant con.sun.star.container.XNameContainer insertByName ( sNome As String, oElemento As Variant) removeByName ( sNome As String ) O servio com.sun.star.style.PageStyle define as propriedades mais comuns da pgina, abaixo temos algumas delas: Propriedade BackColor LeftMargin RightMargin TopMargin BottomMargin IsLandscape PageStyleLayout Size Width Height HeaderLeftMargin HeaderRightMargin HeaderIsOn FooterLeftMargin FooterRightMargin FooterIsOn Descrio Valor Long da cor de fundo da pgina Valor Long da margem esquerda em 1/100 mm Valor Long da margem direita em 1/100 mm Valor Long da margem superior em 1/100 mm Valor Long da margem inferior em 1/100 mm Determina se o formato da pgina paisagem (True / False) Determina o layout da pgina (com.sun.star.style.PageStyleLayout) Valores Long definindo o tamanho do papel (Size.Width e Size.Height) Valor Long definindo a largura da pgina em 1/100 mm Valor Long definindo a altura da pgina em 1/100 mm Valor Long definindo a margem esquerda do cabealho em 1/100 mm Valor Long definindo a margem direita do cabealho em 1/100 mm Determina se o cabealho est ativo na pgina (True / False) Valor Long definindo a margem esquerda do rodap em 1/100 mm Valor Long definindo a margem direita do rodap em 1/100 mm Determina se o rodap est ativo na pgina (True / False)

Vamos a um exemplo. Queremos exibir o nmero de estilos de pginas disponveis num documento, os seus nomes e a propriedade Size do estilo de pgina Padro (Standard). Os passos bsicos so: a) obter as familias de estilos do documento;Introduo ao OpenOffice.org Basic 39

Documentos do Writer

Verso 1

b) obter os estilos de pginas; c) obter o vetor com os nomes dos estilos de pginas; d) usar um ndice para extrair cada um dos nomes; e) obter a pgina padro, usando o acesso nomeado. A sub-rotina Sub exibeEstilosPagina, a seguir, implementa o nosso exemplo:Sub exibeEstilosPagina Dim oDoc As Object Dim oFamiliaEstilos As Object Dim oEstilosPagina As Object Dim oPaginaPadrao As Object Dim mNomesEstilosPagina As Variant Dim sEstilo As String Dim sMsg As String oDoc = ThisComponent ' obtm a Famlia de Estilos (note o uso de oDoc) oFamiliaEstilos = oDoc.StyleFamilies ' obtm os Estilos de Pgina oEstilosPagina = oFamiliaEstilos.getByName("PageStyles") ' exibe quantidade de estilos de pgina MsgBox oEstilosPagina.Count ' obtm e exibe os nomes dos estilos de pginas mNomesEstilosPagina = oEstilosPagina.getElementNames() For n = LBound(mNomesEstilosPagina) To UBound(mNomesEstilosPagina) sMsg=sMsg + mNomesEstilosPagina(n) + " " Next n MsgBox sMsg,0,"Estilos de Pginas" ' obtm o Estilo de pgina Padro (Standard) oPaginaPadrao = oEstilosPagina.getByName("Standard") ' testando o tamanho da pgina lLPag = oPaginaPadrao.Size.Width lAPag = oPaginaPadrao.Size.Height MsgBox Str$(lLPag) + " " + Str$(lAPag) End Sub

A destacar, o acesso pelo ndice dentro do lao For ... Next, o acesso nomeado ao estilo da pgina Standard e o acesso propriedade Size. Note, ainda, a chamada ao mtodo getStylesFamilies ( ): oFamiliaEstilos = oDoc.StylesFamilies no OpenOffice.org Basic voc pode omitir o get e o set ao programar propriedades. Este exemplo pode ser usado como modelo para diversas operaes com estilos. Durante a formatao de texto, comum a criao e aplicao de novos estilos. Esta uma tarefa simples de executar dentro de uma macro. Para isto devemos seguir os passos: a) Obter as famlias de estilos do documento; b) Obter a famlia do grupo aonde ser criado o novo estilo; c) Criar uma instncia do objeto do novo estilo; d) Acrescentar o novo estilo ao grupo;40 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

e) Definir as propriedades do novo estilo; f) Aplicar o novo estilo. Vamor retomar a sub-rotina Sub processaTexto e acrescentar cdigo fonte para criar e aplicar um novo estilo de pargrafo. Digite (ou copie e cole) o cdigo abaixo, aps a ltima linha da Sub processaTexto, execute a macro e observe as definies de estilo do primeiro pargrafo do documento.' ----------------------' cdigo para novo estilo ' ----------------------Dim oFamiliasEstilos As Object Dim EstilosParagrafo As Object Dim oNovoEstilo As Object ' obtem as familias de Estilos oFamiliasEstilos = oDoc.StyleFamilies ' obtem os estilos de pargrafos EstilosParagrafo = oFamiliasEstilos.getByName("ParagraphStyles") ' cria um novo estilo de paragrafo oNovoEstilo = oDoc.createInstance("com.sun.star.style.ParagraphStyle") ' acrescenta o novo estilo com o nome "novo_estilo" EstilosParagrafo.insertByName("novo_estilo",oNovoEstilo) ' define as propriedades do estilo oNovoEstilo.Name = "novo_estilo" oNovoEstilo.CharFontName = "Arial" oNovoEstilo.CharHeight = 16 oNovoEstilo.ParaAdjust = com.sun.star.style.ParagraphAdjust.CENTER oNovoEstilo.CharWeight = com.sun.star.awt.FontWeight.BOLD ' entao, aplica o novo estilo ao primeiro paragrafo oCursor.gotoStart(FALSE) oCursor.gotoEndOfParagraph(TRUE) oCursor.paraStyleName = "novo_estilo"

Acima, deve-se notar a criao de um novo objeto, no caso uma instncia de um estilo de pargrafo, com a chamada ao mtodo createInstance ( ... ). E, ainda, as definies das propriedades do novo estilo.

6.6 Obtendo o objeto selecionadoA API do OpenOffice.org permite que uma macro extraia o contedo de uma seleo para, em seguida, aplicar alguma ao sobre o mesmo. A interface com.sun.star.frame.XModel prov o mtodo abaixo, que retorna um ou mais objetos com a seleo atual do controlador corrente: getCurrentSelection ( ) As Object O objeto retornado do tipo com.sun.star.uno.XInterface e depende do contedo da seleo. Contedo da seleo Texto Clulas de tabela Caixa de texto Grfico Objeto retornado Um ou mais objetos apontando para TextRange Um objeto apontando para um cursor de tabela Um objeto apontando para uma caixa de texto Um objeto apontando para um grfico41

Introduo ao OpenOffice.org Basic

Documentos do Writer

Verso 1

Desenho

Um ou mais objetos apontando para ShapeCollection

Para seleo de texto, o mtodo getCurrentSelection ( ) opera da seguinte forma,: a) se nada estiver selecionado, retorna um objeto TextRange com a posio do cursor da vista; b) numa seleo simples, retorna um objeto TextRange com a seleo; c) numa seleo mltipla, retorna objetos TextRange para o cursor da vista e para cada uma das selees. No exemplo abaixo, obtemos as cadeias selecionadas, uma ou mais se mltipla seleo, e mudamos a cor de cada uma para vermelha:Sub processaSelecao Dim oDoc As Object Dim oSel As Object Dim oCurTxt As Object oDoc = ThisComponent oSel = oDoc.getCurrentSelection() For i = 0 To oSel.Count-1 oCurTxt = oSel(i) oCurTxt.CharColor = RGB(255,0,0) Next i MsgBox oSel.Count End Sub

Note o acesso aos objetos selecionados atravs de um ndice e a criao de um cursor de texto antes da mudana de cor. Para extrair a cadeia selecionada, chame o mtodo getString ( ), como abaixo:sCadeia = oSel ( i ).getString ( )

O mtodo getString ( ) retorna uma cadeia vazia para o primeiro objeto nos casos a) e c) acima. Insira o cdigo abaixo no lao For ... Next de processaSelecao e observe a sada:MsgBox Str$ ( i ) + : + oSel ( i ).getString ( )

Se voc quiser aplicar alguma ao na palavra sob o cursor da vista, faa:If Len(oSel(0).getString())= 0 Then oCurTxt = oSel(0).Text.createTextCursorByRange(oSel(0).getStart()) oCurTxt.gotoStartOfWord(False) oCurTxt.gotoEndOfWord(True) End If

Analise como se d a criao do cursor de texto. Em seguida, como exerccio, faa com que a Sub processaSeleo aplique a cor tambm na palavra sob o cursor da vista. A API do OpenOffice.org tem, ainda, a interface com.sun.star.view.XSelectionSupplier, que implementa o mtodo getSelection ( ) que retorna o contedo selecionado na interface grfica, para us-lo acesse o controlador do modelo (veja o cdigo abaixo). Existem, ainda, dois mtodos que podem ser teis para a identificao do contedo selecionado, so eles: getImplementationName ( ) As String42 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

retorna o nome da implementao do objeto getName ( ) As String retorna o nome do objeto, se o mesmo for nomeado, caso de grficos e tabelas.Dim oControlador As Object oControlador = oDoc.getCurrentController() oSel = oControlador.getSelection() sNomeImpl = oSel.getImplementationName() sNome = oSel.getName()

Agora, altere a Sub processaSelecao, para alertar o usurio quando ele selecionar algo diferente de texto (dica, use getImplementationName).

6.7 Localizando objetosUm documento do Writer pode conter outros objetos alm de texto, como grficos, tabelas, campos, caixas de texto, etc. Para cada tipo existe uma interface com mtodos que retornam um recipiente com os objetos existentes no documento. Eis alguns: getTextTables ( ) As getTextFrames ( ) As getGraphicObjects ( ) As getTextSections ( ) As getBookMarks ( ) As getTextFields ( ) As getFootNotes ( ) As getEndNotes ( ) As getDocumentIndexes ( ) As A interface XNameAccess implementa os seguintes mtodos: getByName (sNomeDoObjeto As String ) As Variant retorna o objeto nomeado getElementNames ( ) As String () retorna uma sequncia de cadeias com os nomes dos objetos da coleo hasByName ( sNome As String ) As Boolean retorna True se o objeto de nome sNome existe na coleo A interface XIndexAccess define os mtodos a seguir: getByIndex ( iIndice As Long ) As Object retorna o objeto na posiao iIndice da coleo getCount ( ) As Long retorna o nmero de objetos da coleo A interface XEnumerationAccess define o mtodo: createEnumeration ( ) As Object retorna um objeto XEnumeration A interface XEnumeration implementa os mtodos abaixo:Introduo ao OpenOffice.org Basic 43

Documentos do Writer

Verso 1

hasMoreElements ( ) As Boolean retorna True se ainda existem elementos no recipiente nextElement ( ) As Variant retorna o prximo elemento A localizao simples, basta chamar o mtodo apropriado e a seguir, usar o acesso nomeado ou indexado para obter o objeto. A sub-rotina Sub localizaGraficos, abaixo, exibe os nomes de todos os objetos grficos do documento:Sub localizaGraficos Dim oGraficos As Object Dim oGrafico As Object Dim n As Integer oGraficos = ThisComponent.getGraphicObjects() For n = 0 To oGraficos.Count -1 oGrafico = oGraficos (n) MsgBox oGrafico.getName() Next n MsgBox "Grficos no documento: " + Str$(oGraficos.Count) End Sub

Para apagar um grfico do seu documento, voc pode usar o bloco de cdigo:oGrafico = oGraficos.getByName (Grfico2) oGrafico.dispose ()

No exemplo a seguir, que demonstra a criao de uma enumerao, exibimos o comando de cada um dos campos de um documento:Sub localizaCampos Dim oCampos As Object Dim oCampo As Object Dim n As Integer oCampos = ThisComponent.getTextFields().createEnumeration() n = 0 Do While (oCampos.hasMoreElements()) oCampo = oCampos.NextElement() MsgBox oCampo.getPresentation(True) n = n + 1 Loop MsgBox "Campos no documento: " + Str$(n) End Sub

Observe que a criao e o acesso aos elementos de uma enumerao sequncial e no indexado ou nomeado. O mtodo getPresentation() retorna o contedo do campo se o parmetro for False. Geralmente, para recuperar o objeto que nos interessa dentro da coleo retornada por um dos mtodos acima, precisamos conhecer o seu nome ou a sua posio dentro da coleo.44 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

6.8 Busca e SubstituioA API do OpenOffice.org tem mecanismos avanados para a busca e substituio de texto num documento. Para localizar e substituir texto devemos: criar um descritor de busca ou substituio; definir as propriedades e chamar o mtodo apropriado. A interface com.sun.star.util.XSearchable prov os mtodos abaixo para busca: createSearchDescriptor ( ) As Object cria um descritor de busca para receber as propriedades da busca. FindAll ( oDescritor As Object ) As Object retorna uma coleo de TextRanges com o resultado da busca FindFirst ( oDescritor As Object ) As Object retorna um TextRange com o resultado da busca FindNext ( oInicio As Object, oDescritor As Object ) As Object retorna um TextRange com o resultado da busca. O parmetro oInicio ponto de partida para a busca, normalmente o resultado da ltima chamada a FindFirst ou FindNext. O servio SearchDescriptor tem os mtodos abaixo: getSearchString ( ) As String obtm a cadeia de busca setSearchString ( sCadeia As String ) define a cadeia de busca Eis algumas de suas propriedades: Propriedade SearchBackwards SearchCaseSensitive SearchWords SearchStyles Descrio Se True busca para o incio do documento Se True considera maisculas / minsculas Se True busca palavras completas Se True busca por um estilo

No exemplo a seguir, vamos localizar, no documento, todas as ocorrncias da cadeia ( ) e trocar a cor da fonte para vermelha. Digite (ou copie e cole) o cdigo abaixo e execute a subrotina.Sub buscaTodas Dim oDoc As Object Dim oDescBusca As Object oDoc = ThisComponent oDescBusca = oDoc.createSearchDescriptor() oDescBusca.SearchWords = True oDescBusca.setSearchString ("( )") oResultado = oDoc.findAll( oDescBusca )

Introduo ao OpenOffice.org Basic

45

Documentos do Writer

Verso 1

For n% = 0 To oResultado.Count - 1 oResultado(n%).CharColor = RGB(255,0,0) Next MsgBox "Ocorrncias de "+oDescBusca.getSearchString()+ _ + Str$(oResultado.Count) End Sub

A tarefa acima pode, tambm, ser executada com os mtodos findFirst e findNext:oResultado = oDoc.findFirst( oDescBusca ) Do Until IsNull(oResultado) oResultado.CharColor = RGB(250,100,50) oResultado = oDoc.findNext(oResultado, oDescBusca ) Loop

A substituio de texto implementada pela interface XReplaceable, que herda as caractersticas de XSearchable. Ela prov os mtodos: createReplaceDescriptor ( ) As Object retorna um descritor de substituio para as propriedades replaceAll ( xDescritor As Object ) As Long busca e substitui todas as ocorrncias, retorna o total de substituies O servio ReplaceDescriptor tem mtodos para as propriedades da cadeia: getReplaceString ( ) As String obtm a cadeia substituta setReplaceString ( sCadeia As String ) define a cadeia substituta Eis um exemplo simples de busca e substituio:Sub substituiTodas Dim oDoc As Object Dim oDescritor As Object oDoc = ThisComponent oDescritor = oDoc.createReplaceDescriptor() oDescritor.setSearchString( "( )" ) oDescritor.setReplaceString( "()" ) n = oDoc.replaceAll(oDescritor) MsgBox n End Sub

Note que no temos um mtodo para substituio interativa. Porm, atravs da busca e edio, possvel implementar, com facilidade, este procedimento.

46

Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

6.9 Inserindo objetosVamos abordar, rapidamente, outra tarefa comum em processamento de textos. A insero de objetos de origem externa, como grficos e documentos, num documento do Writer. Inserir um documento texto muito fcil, basta criar um cursor de texto e chamar o mtodo: insertDocumentFromURL ( sURL As String, mPropriedades ( ) As Object ) Os parmetros deste mtodo so idnticos aos j vistos na seo Carregando Documentos.Dim oCursorTxt As Object Dim mPropriedades ( ) Dim sURL As String oCursorTxt = ThisComponent.createTextCursor ( ) ' sURL = caminho_completo_do_arquivo oCursorTxt.insertDocumentFromURL ( sURL, mPropriedades() )

Para inserir na posio do cursor da interface grfica, crie o cursor de texto a partir do cursor da vista. A insero de arquivos grficos um pouco mais complicada, para isso voc deve: a) criar um objeto grfico; b) definir as suas propriedades; c) inserir o objeto. Observe a sub-rotina Sub inserirGrafico a seguir:Sub inserirGrafico Dim oTxt As Object Dim oCursorTxt As Object Dim oGrafico As Object Dim sURL As String oTxt = ThisComponent.getText() oCursorTxt = oTxt.createTextCursor() oGrafico = ThisComponent.createInstance("com.sun.star.text.GraphicObject") sURL = "file:///D:/NAD/OPENOFFICE/HOWTO/FIGURAS/DIALOGO.JPG" oGrafico.GraphicURL = sURL oGrafico.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH oTxt.insertTextContent(oCursorTxt.getStart(), oGrafico, False) End Sub

A chamada ao mtodo createInstance ( ) cria o objecto grfico, depois definimos as propriedades GraphicURL e AnchorType e, finalmente, inserimos o grfico chamando o mtodo insertTextContent ( ) com os parmetros adequados. A propriedade AnchorType pode assumir, ainda, os seguintes valores: AT_CHARACTER, AT_PAGE e AS_CHARACTER. O API do OpenOffice.org (verso 1.0.1) salva no documento apenas a URL do grfico. Logo, se voc remov-lo da sua localizao original, o Writer no ter como encontr-lo.

Introduo ao OpenOffice.org Basic

47

Documentos do Writer

Verso 1

6.10 TabelasUma tabela um conjunto de clulas organizadas por linhas e colunas, onde cada clula tem um nome, normalmente indicado por letras e nmeros. As letras referem-se s colunas e os nmeros s linhas. Contudo, se existirem clulas mescladas ou divididas, o conceito de coluna poder desaparecer e o esquema de nomeao torna-se complicado. Uma clula pode conter texto simples (cadeias e nmeros), grficos, frmulas e campos com vrias caractersticas de formatao. Uma tabela recebe um nome nico no documento, podendo servir como origem para grficos, ter o seu contudo ordenado e ser automaticamente formatada. A API do OpenOffice.org tem diversos servios e interfaces para lidar com tabelas, vejamos as principais. A interface com.sun.star.text.XTextTable encarrega-se do gerenciamento de tabelas num documento e contm os mtodos abaixo: initialize ( nLinhas As Long, nColunas As Long) Inicializa uma tabela, recebe o nmero de linhas e colunas como parmetros. getCellNames ( ) As Object < Strings > Obtm os nomes das clulas, retorna um conjunto de cadeias getCellByName ( sNomeCelula As String ) As Object < com.sun.star.table.XCell > Obtm a clula nomeada no parmetro, retorna um objeto XCell getRows ( ) As Object < com.sun.star.table.XTableRows > Obtm as linhas da tabela, retorna um objeto para XTableRows. getColumns ( ) As Object < com.sun.star.table.XTableColumns > Obtm as colunas da tabela, retorna um objeto para XTableColumns. createCursorByCellName ( sNomeCelula As String ) As Object < XTextTableCursor > Cria um cursor de tabela posicionado na clula nomeada no parmetro O servio TextTable possui diversas propriedades, eis algumas delas: Propriedade LeftMargin RightMargin Split TableBorder TableColumnSeparators BackGraphicURL Descrio Contm a margem esquerda da tabela, valor Long Contm a margem direita da tabela, valor Long Um valor False impede a diviso da tabela em duas pginas Contm a descrio da borda da tabela Contm a descrio dos separadores de colunas da tabela Contm a URL do grfico de fundo da clula

As interfaces XTableRows e XtableColumns, retornadas pelos mtodos getRows () e getColumns (), acima, possuem os mtodos a seguir: insertByIndex ( nIndice As Long, nTotal As Long )48 Introduo ao OpenOffice.org Basic

Verso 1

Documentos do Writer

removeByIndex ( nIndice As Long, nTotal As Long ) getElementType ( ) As Type hasElements ( ) As Boolean getByIndex ( ) As Variant getCount ( ) As Long A interface XTextTableCursor, retornada pelo mtodo createCursorByCellName, acima, prov os mtodos: getRangeName ( ) As String Retorna a extenso de clulas do cursor, isto , os nomes das clulas superior esquerda e inferior direita, por exemplo A2:D25 (note o separador : ). goLeft ( nQuant As Integer, bExpande As Boolean ) As Boolean goRight ( nQuant As Integer, bExpande As Boolean ) As Boolean goUp ( nQuant As Integer, bExpande As Boolean ) As Boolean goDown ( nQuant As Integer, bExpande As Boolean ) As Boolean gotoStart ( bExpande As Boolean ) gotoEnd ( bExpande As Boolean ) Mtodos para movimentao e seleo, nQuant a quantidade de clulas e, se bExpande for True, extende a seleo durante o deslocamento do cursor. gotoCellByName (sNome As String, bExpande As Boolean ) As Boolean Desloca o cursor para a clula nomeada no parmetro. mergeRange ( ) As Boolean splitRange ( nQuant As Integer, bHoriz As Boolean ) As Boolean Mtodos para fundir e dividir clulas. Atravs do servio TextTableCursor podemos efetuar a formatao das clulas, pois, ele inclui os servios CharacterProperties e ParagraphProperties. A interface com.sun.star.table.XCellRange define os mtodos abaixo para lidar com extenses de clulas: getCellByPosition ( nColuna As Long, nLinha As Long ) As Object < XCell > getCellRangeByPosition ( nEsq, nSup, nDir, nInf ) As Object < XCellRange > getCellRangeByName ( sRange As String ) As Object < XCellRange > O servio com.sun.star.table.CellRange inclui com.sun.star.table.CellProperties, que define as propriedades de uma ou mais clulas. Eis algumas: Propriedade CellBackColo