2 ātrie veidi, kā mainīt sadaļas pārtraukumu veidu jūsu Word dokumentā

Šajā rakstā būs 2 ātri veidi, kā mainīt sadaļu pārtraukumu veidu jūsu Word dokumentā.

Visbiežāk izmantotie sadaļu pārtraukumu veidi programmā Word ir “Nākamā lapa” un “Nepārtraukts”. Pirmā ievietošana nozīmē jaunas lapas sākšanu jaunajai sadaļai. Tas sadala sadaļas skaidri redzamā veidā. Taču, drukājot, būs nepieciešami lapu izvilkumi. Protams, tas nav videi draudzīgs veids. Šādā gadījumā varat apsvērt iespēju izmantot “Nepārtraukto” pārtraukumu, kas var ietaupīt daudz lapu, bet, iespējams, nepietiekami labi apmierinās atdalīšanas prasības.

Tāpēc mēs vēlamies ieviest veidus, kurus jūs varat izvēlēties atbilstoši konkrētām prasībām.

1. metode: mainiet lapas iestatīšanu

1. Vispirms novietojiet kursoru mērķa sadaļā un lentē noklikšķiniet uz cilnes “Lapas izkārtojums”.
2. Pēc tam grupā “Lappuses iestatīšana” noklikšķiniet uz bultiņas pogas, lai atvērtu tā paša nosaukuma dialoglodziņu.
3. Pēc tam lodziņā noklikšķiniet uz cilnes Izkārtojums.
4. Un kombinētajā lodziņā “Sadaļas sākums” izvēlieties vēlamo sadaļas pārtraukuma veidu.
5. Pēc tam kombinētajā lodziņā “Lietot uz” atlasiet piemērojamo diapazonu. Varat arī mainīt vienas sadaļas pārtraukuma vai vairāku veidu. 

Lūk, rezultāts:

2. metode: palaidiet Word makro, lai mainītu dokumenta visu sadaļu pārtraukumu veidu

1. Lai sāktu, nospiediet taustiņu kombināciju “Alt+F11”, lai aktivizētu VBA redaktoru programmā Word.
2. Pēc tam noklikšķiniet uz “Normal” projekta un izvēlnes joslā noklikšķiniet uz cilnes “Insert”.
3. Pēc tam nolaižamajā izvēlnē izvēlieties “Modulis”.
4. Nākamais veiciet dubultklikšķi uz jaunā moduļa, lai to atvērtu.
5. Rediģēšanas telpā vienkārši ielīmējiet šos 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. Nospiediet “F5”, lai palaistu makro.

Šis makro maina visus sadaļu pārtraukumus tipā “Nākamā lapa” uz “Nepārtraukts”. Rezultāts ir tāds pats kā 1. metodē.

Tagad, ja jums ir jāmaina visi nepārtraukto sadaļu pārtraukumi uz “Nākamās lapas” veidu, izmantojiet šo 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

Instruments dokumentu labošanai

Maz ticams, ka saskarsies ar Word problēmām un galu galā nonāks bojāts docx. Tādējādi jums nekavējoties jāveic darbības. Ātrākais veids, kā atgūt datus, ir izvēlēties kvalificētu remonta rīku.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot xls un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar