2 gyors módszer a szakasztörések típusának megváltoztatására a Word-dokumentumban

Ebben a cikkben 2 gyors módot mutatunk be a Word-dokumentum szakasztöréseinek módosítására.

A Wordben a leggyakrabban használt szakasztörés-típusok a „Következő oldal” és a „Folyamatos”. Az első beszúrása azt jelenti, hogy az új szakasz új oldalt kezd. Ez jól látható módon elválasztja a szakaszokat. Nyomtatáskor azonban szükség lesz papírlapokra. Természetesen ez nem környezetbarát módszer. Ilyenkor érdemes lehet a „Folyamatos” szakasztörést használni, ami sok papírt takaríthat meg, de nem biztos, hogy jól teljesíti az elválasztási igényt.

Ezért szeretnénk bevezetni azokat a módokat, amelyeket az Ön igényei szerint választhat.

1. módszer: Módosítsa az oldalbeállítást

1. Először is, vigye a kurzort a célterületre, és kattintson a „Oldalelrendezés” fülre a menüszalagon.
2. Ezután kattintson a nyíl gombra az „Oldalbeállítás” csoportban az azonos nevű párbeszédpanel megnyitásához.
3. Ezután kattintson az „Elrendezés” fülre a mezőben.
4. És válassza ki a kívánt szakasztörés típusát a „Szakasz kezdete” kombinált listából.
5. Az „Alkalmazás erre” kombinált mezőben válassza ki az alkalmazási tartományt. Kiválaszthatja, hogy egy vagy több szakasztörés típusát is módosítsa. 

Íme az eredmény:

2. módszer: Futtassa a Word makrót a dokumentum összes szakasztörésének típusának módosításához

1. Kezdésként nyomd meg az „Alt+F11” billentyűkombinációt a VBA szerkesztő elindításához a Wordben.
2. Ezután kattintson a „Normál” projektre, majd kattintson a „Beszúrás” fülre a menüsorban.
3. Ezután válassza a „Modul” lehetőséget a legördülő menüből.
4. Ezután kattintson duplán az új modulra a megnyitásához.
5. Most illessze be ezeket a kódokat a szerkesztési területre:

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. Nyomja meg az „F5” gombot a makró futtatásához.

Ez a makró az összes szakasztörést „Következő oldal” típusban „Folyamatos”-ra módosítja. Az eredmény ugyanaz, mint az 1. módszernél.

Ha most az összes folyamatos szakasztörést „Következő oldal” típusra kell módosítania, használja a következő makrót:

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

Eszköz a dokumentumok javításához

Nem valószínű, hogy Word-problémákkal találkozik, és a végén az lesz sérült docx. Ezért azonnal intézkednie kell. Az adatok helyreállításának leggyorsabb módja egy minősített javítóeszköz kiválasztása.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás xls és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com