Remover quebras de página automaticamente

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!

1 Like

Também gostaria de saber.