2 szybkie sposoby zmiany typu podziału sekcji w dokumencie programu Word

W tym artykule znajdziesz 2 szybkie sposoby zmiany typu podziałów sekcji w dokumencie programu Word.

Najczęściej używanymi typami podziału sekcji w programie Word są „Następna strona” i „Ciągły”. Wstawienie pierwszego oznacza rozpoczęcie nowej strony dla nowej sekcji. Dzięki temu sekcje są wyraźnie widoczne. Jednak podczas drukowania potrzebne będą dodatkowe arkusze papieru. Z pewnością nie jest to rozwiązanie przyjazne dla środowiska. W takim przypadku warto rozważyć użycie podziału „Ciągły”, który może zaoszczędzić sporo papieru, ale może nie spełnić wymagań dotyczących separacji.

Dlatego chcemy przedstawić sposoby, które możesz wybrać zgodnie z konkretnymi wymaganiami.

Metoda 1: Zmień ustawienia strony

1. Najpierw należy umieścić kursor w sekcji docelowej i kliknąć kartę „Układ strony” na Wstążce.
2. Następnie kliknij przycisk strzałki w grupie „Ustawienia strony”, aby otworzyć okno dialogowe o tej samej nazwie.
3. Następnie kliknij zakładkę „Układ” w polu.
4. Następnie wybierz pożądany typ podziału sekcji z pola wyboru „Początek sekcji”.
5. Następnie w polu kombi „Zastosuj do” wybierz zakres stosowania. Możesz zmienić typ pojedynczego podziału sekcji lub wielu. 

Oto wynik:

Metoda 2: Uruchom makro programu Word, aby zmienić typ wszystkich podziałów sekcji w dokumencie

1. Na początek naciśnij „Alt+F11”, aby uruchomić edytor VBA w programie Word.
2. Następnie kliknij projekt „Normalny” i kliknij zakładkę „Wstaw” na pasku menu.
3. Następnie z rozwijanego menu wybierz „Moduł”.
4. Następnie kliknij dwukrotnie nowy moduł, aby go otworzyć.
5. Teraz w obszarze edycji po prostu wklej te kody:

Sub ChangeNextPageBreakToContinuous()
  Dim nSectionNum As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nSectionNum = objDoc.Sections.Count

  For nSectionNum = nSectionNum To 1 Step -1
    With objDoc.Sections(nSectionNum).Range.PageSetup
      If .SectionStart = wdSectionNewPage Then
        .SectionStart = wdSectionContinuous
      End If
    End With
  Next nSectionNum
 
  Application.ScreenUpdating = True
End Sub

6. Naciśnij „F5”, aby uruchomić makro.

To makro zmieni wszystkie podziały sekcji w typie „Następna strona” na „Ciągłe”. Wynik jest taki sam jak w metodzie 1.

Teraz, jeśli chcesz zmienić wszystkie ciągłe podziały sekcji na typ „Następna strona”, użyj następującego makra:

Sub ChangeContinuousBreakToNextPageBreak()
  Dim nSectionNum As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nSectionNum = objDoc.Sections.Count

  For nSectionNum = nSectionNum To 1 Step -1
    With objDoc.Sections(nSectionNum).Range.PageSetup
      If .SectionStart = wdSectionContinuous Then
        .SectionStart = wdSectionNewPage
      End If
    End With
  Next nSectionNum
 
  Application.ScreenUpdating = True
End Sub

Narzędzie do naprawy dokumentów

Nie jest mało prawdopodobne, że napotkasz problemy z programem Word i skończysz z nimi uszkodzony docx. Dlatego musisz natychmiast podjąć działania. A najszybszym sposobem na odzyskanie danych jest wybranie wykwalifikowanego narzędzia do naprawy.

Wprowadzenie autora:

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