Como remover linhas em branco no CALC

Como remover linhas em branco no LibreOffice CALC

Hoje precisei eliminar várias linhas em branco numa planilha no LibreOffice Calc 4.1. Trabalho chato este.

Procurando no “oráculo de Deus” acabei achando o link do site Seja Livre com esta dica pronta: um macro que elimina as linhas!

APRENDA A DOMINAR O LINUX

Aprenda a dominar o LINUX de uma vez por todos, pegue sua cópia

  • Ferramentas para instalar softwares adicionais
  • Shell do LINUX passo a passo, e muito mais...

Ali esta todo o passo-a-passo de como incluir a macro no seu CALC. Mas…

… ao executar encontrei vários erros de sintaxe. Dei uma fuçada e depois de eliminar os erros, posto abaixo o código. Basta copiar e colar.

Assunto indicado:  Fotoxx 8.0

LibreOffice Calc

Copie e cole este macro no seu CALC

REM  *****  BASIC  *****

Sub Main

REM Macro que remove linhas em branco em uma planilha.
REM Desenvolvida incialmente por Noelson Duarte em *02/06/2005*.
REM Alterada por Francival Lima em 01/03/2008
'
oDoc = thisComponent
'Retorna o Documento aberto.
oControlador =oDoc.getCurrentController()
'Retorna o controlador do Documento aberto.
oPlan = oControlador.getActiveSheet()
'Retorna a planilha ativa.
oCursor = oPlan.createCursor()
'Cria um cursor
oCursor.gotoEndOfUsedArea(False)
vEnd = oCursor.getRangeAddress()
oExt = oPlan.getCellRangeByPosition(0,0,vEnd.EndColumn,vEnd.EndRow)
oLinhas = oExt.getRows()
nTotal = oLinhas.getCount() - 1
nFlags = com.sun.star.sheet.CellFlags.VALUE OR _
com.sun.star.sheet.CellFlags.DATETIME OR _
com.sun.star.sheet.CellFlags.STRING OR _
com.sun.star.sheet.CellFlags.ANNOTATION OR _
com.sun.star.sheet.CellFlags.FORMULA
For i = nTotal To 0 Step -1
   oExtLin = oPlan.getCellRangeByPosition(0, i, vEnd.EndColumn, i)
   oCelulasNaoVazias = oExtLin.queryContentCells(nFlags)
   If oCelulasNaoVazias.getCount() = 0 Then
      oLinhas.removeByIndex(i, 1)
   End If
Next i

End Sub

Sugestões e comentários, estamos ai! Use o CALC com mais alegria agora.

Related Posts Plugin for WordPress, Blogger...

Comentários

  1. Ontem precisei de exatamente o contrário, necessitava inserir uma linha em branco entre cada duas linhas preenchidas, em uma planilha com 800 rows preenchidas. Cada vez mais amo o “Find and Replace”. Com pouco esforço esta ferramenta fez o serviço :D

  2. Cláudio José Ferreira diz:

    Funcionou muito bem. Obrigado pela dica.

  3. Excelente!

  4. Olá Maudy, queria saber se você tem alguma dica de como salvar documentos do Writer para que possam ser abertos no Office sem perder a configuração e vice-versa, pois sempre utilizo ODT, mas como sou professora e meus alunos usam o Windows com Office (contra minha vontade) acabo tendo dificuldades, pois edito o trabalho e mando para eles, mas quando vão abrir está desconfigurado, o que poderia fazer para salvar o documento de forma que abra totalmente compatível, já tentei muitas coisas, mas nenhuma com eficiência… Obrigada…

Deixe o seu comentário

*