Pergunte aqui
0

Remover quebras de página automaticamente

perguntadas 2013-01-24 21:29:01 +0200

imagem do gravatar de Olivier

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?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2013-01-29 22:00:38 +0200

imagem do gravatar de Grafeno

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)

editar assinalar como ofensivo Excluir Link mais

Comentários

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.

imagem do gravatar de OlivierOlivier ( 2013-01-29 22:05:05 +0200 )editar
0

respondidas 2015-10-01 19:44:53 +0200

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!

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

Estatísticas

Perguntadas: 2013-01-24 21:29:01 +0200

Lidas: 1,681 vezes

Última atualização: Jan 29 '13