2 snelle manieren om het type sectie-einden in uw Word-document te wijzigen

In dit artikel zijn er twee snelle manieren waarop u het type sectie-einden in uw Word-document kunt wijzigen.

De meest gebruikte sectie-einden in Word zijn 'Volgende pagina' en 'Doorlopend'. Het invoegen van een sectie-einde betekent dat er een nieuwe pagina wordt geopend voor de nieuwe sectie. Dit zorgt voor een overzichtelijke scheiding van de secties. Bij het afdrukken zijn echter extra pagina's nodig. Dit is zeker niet milieuvriendelijk. U kunt dan overwegen om een ​​'Doorlopend'-einde te gebruiken. Dit bespaart papier, maar is mogelijk niet optimaal voor een duidelijke scheiding van de tekst.

Daarom willen we manieren introduceren die u op basis van specifieke vereisten kunt plukken.

Methode 1: Wijzig de pagina-instelling

1. Plaats allereerst de cursor in het gewenste gedeelte en klik op het tabblad 'Pagina-indeling' in het lint.
2. Klik vervolgens op de pijlknop in de groep "Pagina-instelling" om het dialoogvenster met dezelfde naam te openen.
3. Klik vervolgens op het tabblad "Layout" in het vak.
4. Kies vervolgens het gewenste type sectie-einde in het keuzemenu bij "Sectiestart".
5. Selecteer vervolgens in de keuzelijst “Toepassen op” een toepassingsbereik. U kunt ervoor kiezen om het type van een enkele sectie-einde of ook meerdere te wijzigen. 

Hier is het resultaat:

Methode 2: Voer Word Macro uit om het type van alle sectie-einden in een document te wijzigen

1. Om te beginnen, druk op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik vervolgens op "Normaal" project en klik op het tabblad "Invoegen" in de menubalk.
3. Kies vervolgens "Module" in het vervolgkeuzemenu.
4. Dubbelklik vervolgens op de nieuwe module om deze te openen.
5. Plak nu in de bewerkingsruimte deze codes:

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. Druk op "F5" om de macro uit te voeren.

Deze macro zal alle sectie-einden in het type "Volgende pagina" wijzigen in "Doorlopend". Het resultaat is hetzelfde als bij methode 1.

Als u nu alle doorlopende sectie-einden wilt wijzigen in het type "Volgende pagina", gebruikt u de volgende macro:

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

Tool om documenten te repareren

Het is niet onwaarschijnlijk dat u Word-problemen tegenkomt en eindigt met beschadigde docx. U moet dus onmiddellijk actie ondernemen. En de snelste manier om uw gegevens te herstellen, is door een gekwalificeerde reparatietool te kiezen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie xls en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com