page23
TUTORIAL
COMO FAZER
Selecione e apague todo o conteúdo do editor BASIC. Então, digite (ou copie e cole) o código fonte abaixo:
' Autor..: Noelson A. Duarte, em 19/07/2011
' Licença: GPL
Sub ApagaLinhasVazias
oDoc = thisComponent
swDoc = "com.sun.star.text.TextDocument"
If (NOT oDoc.supportsService(swDoc)) Then
MsgBox("Não é um documento do Writer", 16, "Erro:")
Exit Sub
End If
oReplDesc = oDoc.createReplaceDescriptor()
oReplDesc.SearchRegularExpression = True
oReplDesc.setSearchString(" *$")
oReplDesc.setReplaceString("")
nRes = oDoc.replaceAll(oReplDesc)
oReplDesc.setSearchString("^$")
nRes = oDoc.replaceAll(oReplDesc)
MsgBox("Total: "+ Str(nRes), 48, "Linhas Vazias")
End Sub
Vamos testar a nossa macro:
- Crie um novo documento do Writer;
- Digite algum texto, contendo também parágrafos vazios;
- Comande Ferramentas > Macros > Executar Macro;
- Expanda a entrada Minhas Macros;
- Expanda a biblioteca LinhaVazia e selecione Module1;
- Selecione a rotina principal ApagaLinhasVazias;
- Comande Executar.