I denne artikkelen vil det være 2 raske måter for deg å endre typen seksjonsskift i Word-dokumentet.
De mest brukte typene seksjonsskift i Word er «Neste side» og «Kontinuerlig». Å sette inn det første betyr å starte en ny side for den nye seksjonen. Dette deler seksjoner i en tydelig visning. Men når det gjelder utskrift, vil det være nødvendig med uttrekk av ark. Det er selvsagt ikke en miljøvennlig måte. Da kan du vurdere å bruke «Kontinuerlig»-skift, som kan spare deg for mange ark, men som kanskje ikke oppfyller separasjonskravet.
Derfor ønsker vi å introdusere måter du kan velge i henhold til spesifikke krav.
Metode 1: Endre sideoppsettet
- Først plasserer du markøren i en målseksjon og klikker på fanen "Sideoppsett" i båndet.
- Klikk deretter på pilknappen i "Sideoppsett"-gruppen for å åpne dialogboksen med samme navn.
- Klikk deretter på "Layout"-fanen i boksen.
- Og velg ønsket type seksjonsskift fra kombinasjonsboksen «Seksjonsstart».
- Velg deretter et bruksområde i kombinasjonsboksen "Bruk på". Du kan velge å endre typen for et enkelt seksjonsskift eller flere også.
Her er resultatet:
Metode 2: Kjør Word-makro for å endre type alle seksjonsskift i et dokument
- Til å begynne med, trykk «Alt+F11» for å aktivere VBA-editoren i Word.
- Klikk deretter på "Normal"-prosjektet og klikk på "Sett inn"-fanen på menylinjen.
- Velg deretter "Modul" på rullegardinmenyen.
- Dobbeltklikk deretter på den nye modulen for å åpne den.
- Nå i redigeringsområdet limer du bare inn disse kodene:
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
- Trykk "F5" for å kjøre makroen.
Denne makroen skal endre alle seksjonsskift i «Neste side»-typen til «Fortløpende». Resultatet er det samme som i metode 1.
Nå hvis du trenger å endre alle kontinuerlige seksjonsskift til typen "Neste side", bruk følgende makro:
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
Verktøy for å reparere dokumenter
Det er ikke usannsynlig å komme over Word-problemer og ende opp med skadet docx. Derfor må du iverksette tiltak umiddelbart. Og den raskeste måten å gjenopprette dataene dine på er å velge et kvalifisert reparasjonsverktøy.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med




