2 nopeaa tapaa vaihtaa Word-asiakirjan osionkatkojen tyyppi

Tässä artikkelissa on kaksi nopeaa tapaa vaihtaa Word-asiakirjan lohkokatkojen tyyppi.

Most Wordin osiotyypit ovat ”Seuraava sivu” ja ”Jatkuva”. Ensimmäisen lisääminen tarkoittaa starta uusi sivu uudelle osastolle. Tämä jakaa osiot selkeään näkymään. Mutta kun on kyse tulostamisesta, tarvitaan otepapereita. Varmasti se ei ole ympäristöystävällinen tapa. Sitten voit harkita “Jatkuva” -taukoa, mikä voi säästää monia papereita, mutta ei välttämättä onnistu tyydyttämään erotuskysyntää.

Siksi haluamme esitellä tapoja, jotka voit valita tiettyjen vaatimusten mukaan.

Tapa 1: Muuta Sivun asetukset

1. Aseta ensin kohdistin a: n sisään tarosio ja napsauta "Sivun asettelu" -välilehteä valintanauhassa.
2. Napsauta seuraavaksi nuolinäppäintä Sivun asetukset -ryhmässä avataksesi saman nimen valintaikkunan.
3. Napsauta sitten ruudussa Asettelu-välilehteä.
4. Ja valitse haluamasi leikkaustyyppi ”Lohkojen start ”.
5. Valitse seuraavaksi Yhdistä-yhdistelmäruudusta soveltuva alue. Voit muuttaa myös yhden tai useamman osionvaihdon tyypin. 

Tässä on tulos:

Tapa 2: Suorita Word-makro muuttaaksesi asiakirjan kaikkien osionkatkojen tyyppiä

1. Kohteeseen starKäynnistä VBA-editori Wordissa painamalla ”Alt + F11”.
2. Napsauta seuraavaksi Normaali-projekti ja napsauta valikkorivin Lisää-välilehteä.
3. Valitse sitten avattavasta valikosta "Moduuli".
4. Kaksoisnapsauta sitten uutta moduulia avataksesi sen.
5. Liitä nyt muokkaustilaan vain nämä koodit:

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. Napsauta "F5" makron suorittamiseksi.

Tämän makron on muutettava kaikki ”Seuraava sivu” -tyyppisten osioiden katkokset ”Jatkuva” -jaksoksi. Tulos on sama kuin menetelmässä 1.

Jos sinun on nyt vaihdettava kaikki jatkuvat jaksokatkot seuraavaksi sivuksi, käytä seuraavaa makroa:

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

Työkalu asiakirjojen korjaamiseen

On epätodennäköistä, että kohtaat Word-asioita ja päädyt siihen vaurioitunut docx. Siksi sinun on ryhdyttävä toimiin välittömästi. Nopein tapa palauttaa tietosi on valita pätevä korjaustyökalu.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata xls ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com