Tenho um documento com centenas de quebras de página distribuídas por dentro e preciso removê-las em bloco. Gostaria de não ter de fazer uma por uma. Alguma sugestão?
Olá Olivier,
Também já tive que excluir muitas quebras de páginas de vários documentos. Mas só encontrei uma solução no livro de Macro do Andrew Pitonyak.
Abaixo coloco a macro que escrevi baseada na do livro, que mesmo longe de ser uma solução sofisticada, resolveu o meu problema na época.
Sub ApagarQuebrasdePagina
REM Baseado na macro de Andrew Pitonyak
Dim iCnt As Long
Dim iQuebra As Integer
Dim oCursor as Variant
Dim oTexto As Variant
Dim s As String
oTexto = ThisComponent.Text
oCursor = oTexto.CreateTextCursor()
oCursor.GoToStart(False)
Do
If NOT oCursor.gotoEndOfParagraph(True) Then Exit Do
If oCursor.BreakType <> com.sun.star.style.BreakType.NONE Then
iQuebra = iQuebra + 1
oCursor.BreakType = com.sun.star.style.BreakType.NONE
End If
Loop Until NOT oCursor.gotoNextParagraph(False)
If iQuebra < 1 then
MsgBox CHR$(10) & " Não foram encontras quebras de página no documento. " & _
CHR$(10) & CHR$(10),0,"LibO Writer"
Else
MsgBox CHR$(10) & " " & iQuebra & " quebra(s) de página excluída(s): " & _
CHR$(10) & CHR$(10),0,"LibO Writer"
End If
End Sub
At.te,
Grafeno (Tôni)
Olá Grafeno, Muito obrigado pela macro. A multidão de quebras ocorreu por que uma mala direta tinha a última linha encostando no fim da página e a mala gera uma quebra obrigatória. Ai somou-se a quebra da mala com a quebra do fim da página e o resultado era uma página em branco a toa para cada item.
Tenho uma dúvida, sobre o mesmo tema.
Fiz uma mala direta que contém, em cada página, 4 registros de um banco (nome, CPF, relato etc).
É um arquivo relativamente grande, com 1270 registro e mais de 600 páginas.
Não consigo numerá-las.
Consigo no máximo fazer com que seja exibido “página 1/1” na primeira.
Vi que no M$ Office também existe o problema. A solução que apresentam é inserir um campo do tipo “merge”, em vez do número de páginas.
Não encontrei nada semelhante no Libre.
Tem como eliminar as quebrar no meu documento gerado, com mais de 600 páginas, e numerá-las adequadamente?
Grato!
Também gostaria de saber.