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!
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.
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.
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
Por favor você pode me ensinar a fazer a inclusão de linhas em branco? Pois, não entendo muito e estou há dias tentando.
Funcionou muito bem. Obrigado pela dica.
Excelente!
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…
Infelizmente não funcionou. Fiz umas 50 vezes!!!
Obrigado
Não funciona. Quando executo nada acontece, o que pode ser?
Erros de sintaxe o libreoffice Versão: 5.1.6.2 ubuntu linha
nTotal = oLinhas.getCount() – 1
Deu certo, meus parabens pelo tutorial!!!
Boa noite!
Gostaria de saber se alguém poderia me ajudar: estou precisando de uma macro que oculte as linhas cuja primeira célula da linha não contenha o valor “X”, ou seja, que exiba só as linha cuja primeira célula contenha “X”.
Parabéns e obrigado… funcionou perfeitamente em 2018.