I denne artikel vil der være to hurtige måder for dig at ændre typen af sektionsbrud i dit Word-dokument.
De mest anvendte typer sektionsskift i Word er "Næste side" og "Fortløbende". At indsætte det første betyder at starte en ny side for det nye afsnit. Dette opdeler sektioner i en klar visning. Men når det kommer til udskrivning, vil det være nødvendigt at udtrække papirer. Det er bestemt ikke en miljøvenlig måde. Så kan du overveje at bruge "Fortløbende" skift, som kan spare dig for mange papirer, men som muligvis ikke opfylder separationskravene.
Derfor vil vi introducere måder, du kan vælge i henhold til specifikke krav.
Metode 1: Skift sideopsætning
- Først skal du placere markøren i en målsektion og klikke på fanen "Sidelayout" i båndet.
- Klik derefter på pileknappen i gruppen "Sideopsætning" for at åbne dialogboksen med samme navn.
- Klik derefter på fanen "Layout" i feltet.
- Og vælg den ønskede type sektionsskift fra kombinationsfeltet "Sektionsstart".
- Vælg derefter et anvendelsesområde i kombinationsfeltet "Anvend til". Du kan vælge at ændre typen af en enkelt sektionsskift eller flere.
Her er resultatet:
Metode 2: Kør Word Macro for at ændre type af alle sektionsbrud i et dokument
- Til at starte med skal du trykke på “Alt+F11” for at aktivere VBA-editoren i Word.
- Klik derefter på "Normal" -projektet, og klik på "Indsæt" -fanen på menulinjen.
- Vælg derefter “Module” i rullemenuen.
- Dobbeltklik derefter på det nye modul for at åbne det.
- Nu i redigeringsområdet skal du bare indsætte disse koder:
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
- Tryk på "F5" for at køre makroen.
Denne makro ændrer alle sektionsskift i typen "Næste side" til "Kontinuerlig". Resultatet er det samme som i metode 1.
Brug nu følgende makro, hvis du har brug for at ændre alle sammenhængende sektionsbrud til typen "Næste side":
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
Værktøj til reparation af dokumenter
Det er ikke usandsynligt, at du støder på Word-problemer og ender med beskadiget docx. Således skal du straks tage handlinger. Og den hurtigste måde at gendanne dine data på er at vælge et kvalificeret reparationsværktøj.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation xls og pdf produkter til reparation af software. For mere information besøg www.datanumen.com



