4 métodos rápidos para remover quebras de página indesejadas em seu documento do Word

Neste artigo, vamos apresentar 4 métodos rápidos para remover quebras de página indesejadas do seu documento do Word.

O Word insere quebras de página automáticas ao passar de uma página para a seguinte. Além disso, você pode inserir quebras de página manuais após o final de um intervalo de texto. Nesse caso, o texto começará no topo da próxima página. Para saber como inserir quebras de página manuais, consulte este artigo: 5 maneiras de inserir rapidamente quebras de página em seu documento do Word

No entanto, você deve entender que as quebras de página automáticas são invisíveis e, portanto, não podem ser excluídas manualmente. Mas as quebras de página manuais inseridas fazem. Portanto, nosso artigo oferecerá principalmente abordagens úteis para remover quebras de página manuais indesejadas no documento do Word.   

Método 1: remover quebras de página manualmente

1. Em primeiro lugar, você deve clicar no comando “Mostrar/Ocultar” na guia “Página inicial” para revelar todas as marcas e símbolos ocultos no documento para que possa visualizar a quebra de página.
2. Em seguida, selecione uma quebra de página e pressione “Excluir” para se livrar dela.
3. Ou você pode clicar à esquerda de uma quebra de página e pressionar “Excluir”.

Método 2: Use o recurso "Localizar e substituir"

1. Para começar, pressione “Ctrl + H” para acionar a caixa “Localizar e substituir”.
2. Em seguida, coloque o cursor dentro da caixa de texto "Localizar" e clique na guia "Mais".
3. Em seguida, clique em “Especial” e escolha “Quebra de página manual” nesse menu.
4. Por fim, deixe a caixa “Substituir por” vazia e clique em “Substituir tudo” para remover cada quebra de página no documento.

Método 3: Executar macro para excluir todas as quebras de página em um documento

1. Primeiro, acione o editor VBA no Word pressionando “Alt+F11”.
2. Em seguida, clique no projeto “Normal” na coluna da esquerda.
3. Em seguida, clique em “Inserir” na barra de menu e selecione “Módulo”.
4. Abra o módulo com um duplo clique e cole os seguintes códigos lá:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Por fim, pressione “F5” para executar os códigos.

Método 4: Excluir todas as quebras de página em todos os documentos em uma pasta

Para remover todas as quebras de página em todos os documentos de uma pasta, você pode utilizar este método.

1. Para instalar e executar uma macro, você pode consultar as etapas do método 3.
2. E lembre-se de substituir por esta macro abaixo:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

A macro abrirá a janela "Procurar". Selecione a pasta que contém os documentos desejados e clique em "OK" para prosseguir.

Prepare-se para o desastre de dados

Muitos de vocês estão cientes da aleatoriedade da perda de dados. Para usuários do Word, também é aconselhável estar bem preparado para qualquer desastre de dados. E uma das melhores maneiras é obter um reparação docx ferramenta com antecedência.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperação xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com