2 greiti būdai, kaip pakeisti „Word“ dokumento skyrių pertraukų tipą

Šiame straipsnyje bus 2 greiti būdai, kaip pakeisti „Word“ dokumento sekcijų lūžių tipą.

Dažniausiai „Word“ programoje naudojami skyrių lūžių tipai yra „Kitas puslapis“ ir „Nuolatinis“. Įterpti pirmąjį reiškia pradėti naują puslapį naujam skyriui. Tai aiškiai atskiria skyrius. Tačiau spausdinant reikės ištraukti lapus. Žinoma, tai nėra ekologiškas būdas. Tuomet galite apsvarstyti galimybę naudoti „Nuolatinį“ lūžią, kuris gali sutaupyti daug dokumentų, bet gali ir nepakankamai gerai patenkinti atskyrimo poreikį.

Todėl norime pristatyti būdus, kuriuos galite pasirinkti pagal konkrečius reikalavimus.

1 būdas: pakeiskite puslapio sąranką

1. Pirmiausia užveskite žymeklį į norimą sekciją ir juostelėje spustelėkite skirtuką „Puslapio išdėstymas“.
2. Tada spustelėkite rodyklės mygtuką grupėje „Puslapio sąranka“, kad atidarytumėte to paties pavadinimo dialogo langą.
3. Tada laukelyje spustelėkite skirtuką „Išdėstymas“.
4. Ir išskleidžiamajame sąraše „Skyriaus pradžia“ pasirinkite norimą sekcijos pertraukos tipą.
5. Toliau kombinuotame laukelyje „Taikyti“ pasirinkite taikymo diapazoną. Taip pat galite pasirinkti pakeisti vienos skilties pertraukos tipą arba kelis. 

Štai rezultatas:

2 būdas: paleiskite Word makrokomandą, kad pakeistumėte visų dokumento skilčių lūžių tipą

1. Norėdami pradėti, paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių programoje „Word“.
2. Tada spustelėkite „Įprastas“ projektas ir meniu juostoje spustelėkite skirtuką „Įterpti“.
3. Tada išskleidžiamajame meniu pasirinkite „Modulis“.
4. Tada dukart spustelėkite naują modulį, kad jį atidarytumėte.
5. Dabar redagavimo srityje tiesiog įklijuokite šiuos kodus:

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. Paspauskite „F5“, kad paleistumėte makrokomandą.

Ši makrokomanda pakeis visas „Kitas puslapis“ tipo skilčių pertraukas į „Tęstinis“. Rezultatas yra toks pat kaip ir 1 metodu.

Dabar, jei reikia pakeisti visas ištisines sekcijų pertraukas į „Kitas puslapis“, naudokite šią makrokomandą:

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

Įrankis dokumentų taisymui

Mažai tikėtina, kad susidursite su Word problemomis ir baigsite sugadintas docx. Todėl reikia nedelsiant imtis veiksmų. O greičiausias būdas atkurti duomenis – pasirinkti kvalifikuotą taisymo įrankį.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas xls bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com