3 maneiras de excluir rapidamente todas as quebras de seção em seu documento do Word

Neste artigo, queremos compartilhar com você 3 maneiras de excluir rapidamente todas as quebras de seção em seu documento do Word.

As quebras de seção são úteis na criação de várias seções no documento do Word. Assim, você pode formatar diferentes seções em estilos distintos. E aqui está nosso artigo anterior para você inserir rapidamente quebras de seção no documento: 3 maneiras de inserir rapidamente quebras de seção em seu documento do Word

No entanto, é bastante comum revisar um documento, como alterar estilos, redividir seções, etc. Particularmente, se houver um grande ajuste a ser feito, provavelmente será necessário remover todas as quebras de seções. A seguir estão 3 métodos que você pode utilizar para excluir quebras de seção em lote.

Método 1: Encontre todas as quebras de seção no documento

1. Em primeiro lugar, pressione “Ctrl + H” para abrir a caixa “Localizar e substituir” no Word.
2. Em seguida, coloque o cursor dentro da caixa de texto “Encontrar o quê”.
3. Clique no botão “Mais” para obter mais opções.
4. Em seguida, clique em “Especial” e escolha “Quebra de seção” no menu. Em seguida, você verá “^ b” na caixa de texto “Localizar”. Portanto, uma maneira alternativa é inserir “^ b” diretamente após a etapa 2.
5. Por último, deixe a caixa “Substituir por” em branco e clique em “Substituir tudo”. Clique em “OK” na caixa de confirmação.

Método 2: executar uma macro para excluir todas as quebras de seção em um documento

Esta é a maneira automática de se livrar de todas as quebras de seção indesejadas.

1. Para começar, abra o editor VBA no Word pressionando “Alt + F11”.
2. Em seguida, crie um novo módulo clicando em “Normal”.
3. Em seguida, clique em “Inserir” e selecione “Módulo”.
4. Agora abra o módulo com um clique duplo.
5. No espaço de codificação à direita, cole os seguintes códigos:

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. Por fim, clique em “Executar”.

Você não encontrará todas as quebras de seção em nenhum segundo.

Método 3: Excluir todas as quebras de seção em vários documentos

Da mesma forma, devemos executar uma macro se quisermos fazer isso de maneira rápida e suja.

1. Antes de tudo, coloque todos os documentos que deseja selecionar em uma única pasta.
2. Em seguida, instale uma macro com as etapas do método 2.
3. Em vez disso, execute esta macro:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      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 = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Em seguida, na janela “Navegar” aberta, selecione a pasta na qual deseja salvar os documentos.
5. Por último, mas não menos importante, clique em “OK”.

Prepare-se para a perda de dados

Normalmente, com bons hábitos de operação, boa sorte e todas as bênçãos, você pode alcançar muito no Word. Mas travamentos podem acontecer a qualquer momento. Portanto, é de vital importância fazer backups regulares dos documentos. Com um backup em mãos, você terá mais confiança antes de começar a trabalhar. correção docx.

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 xls recuperação e pdf reparar produtos de software. Para mais informações visite www.datanumen.com