3 sposoby szybkiego usuwania wszystkich podziałów sekcji w dokumencie programu Word

W tym artykule chcemy podzielić się z Tobą 3 sposobami szybkiego usunięcia wszystkich podziałów sekcji w dokumencie programu Word.

Podziały sekcji są przydatne przy tworzeniu wielu sekcji w dokumencie programu Word. Możesz więc formatować różne sekcje w różnych stylach. A oto nasz poprzedni artykuł, w którym można szybko wstawiać podziały sekcji w dokumencie: 3 sposoby szybkiego wstawiania podziałów sekcji do dokumentu programu Word

Jednak dość często dokonuje się korekty dokumentu, na przykład zmieniając style, ponownie dzieląc sekcje itp. W szczególności, jeśli trzeba wprowadzić duże poprawki, prawdopodobnie będziesz musiał usunąć wszystkie podziały sekcji. Poniżej przedstawiono 3 metody, których można użyć do usuwania podziałów sekcji w trybie wsadowym.

Metoda 1: Znajdź wszystkie podziały sekcji w dokumencie

1. Przede wszystkim naciśnij „Ctrl + H”, aby otworzyć okno „Znajdź i zamień” w programie Word.
2. Następnie umieść kursor w polu tekstowym „Find what”.
3. Kliknij przycisk „Więcej”, aby uzyskać więcej opcji.
4. Następnie kliknij „Specjalne” i wybierz z menu „Podział sekcji”. Następnie zobaczysz „^ b” w polu tekstowym „Znajdź co”. Zatem alternatywnym sposobem jest wpisanie „^ b” bezpośrednio po kroku 2.
5. Na koniec pozostaw pole „Zamień na” puste i kliknij „Zamień wszystko”. Kliknij „OK” w oknie potwierdzenia.

Metoda 2: Uruchom makro, aby usunąć wszystkie podziały sekcji w jednym dokumencie

Oto automatyczny sposób na pozbycie się wszystkich niechcianych przerw w sekcji.

1. Na początek otwórz edytor VBA w programie Word, naciskając „Alt + F11”.
2. Następnie utwórz nowy moduł, klikając „Normalny”.
3. Następnie kliknij „Wstaw” i wybierz „Moduł”.
4. Teraz otwórz moduł podwójnym kliknięciem.
5. W polu kodowym po prawej stronie wklej następujące kody:

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. Na koniec kliknij „Uruchom”.

W sekundę nie znajdziesz nigdzie podziałów sekcji.

Metoda 3: Usuń wszystkie podziały sekcji w wielu dokumentach

Podobnie musimy uruchomić makro, jeśli chcemy to zrobić w szybki i brudny sposób.

1. Przede wszystkim umieść wszystkie dokumenty docelowe w jednym folderze.
2. Następnie zainstaluj makro, wykonując czynności opisane w metodzie 2.
3. Zamiast tego uruchom to makro:

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. Następnie w otwartym oknie „Przeglądaj” wybierz folder, w którym zapisujesz dokumenty.
5. Na koniec kliknij „OK”.

Przygotuj się na utratę danych

Zazwyczaj, przy dobrych nawykach, szczęściu i wszelkich błogosławieństwach, można wiele osiągnąć w Wordzie. Jednak awarie mogą się zdarzyć w każdej chwili. Dlatego tak ważne jest regularne tworzenie kopii zapasowych dokumentów. Z kopią zapasową pod ręką będziesz mieć większą pewność siebie przed rozpoczęciem pracy. poprawka docx.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com