Remova Todas As Quebras de Seção Usando O VBA
Além do recurso acima Find e Replace, você também pode remover rapidamente todas as quebras de seção do documento atual com o VBA no Word. Faça o seguinte:
1. pressione Alt + F11 chaves juntas para abrir o Microsoft Visual Basic para aplicação janela;
2. Clique inserção > Módulo e cole os seguintes códigos VBA na nova janela do módulo.
VBA: remova todas as quebras de seção no Word
Sub DeleSectionBreaks()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^b"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
3. Então clique corrida ou pressione F5 chave para executar o código. E então as quebras de seção serão removidas em massa de uma só vez.
REMOVA TODAS AS LINHAS EM BRANCO
Pressione CTRL + U e digite:
em Localizar: ^p^p
em Substituir por: ^p