2 γρήγοροι τρόποι για να αλλάξετε τον τύπο διαλείμματος ενότητας στο έγγραφο του Word

Σε αυτό το άρθρο, θα υπάρχουν 2 γρήγοροι τρόποι για να αλλάξετε τον τύπο αλλαγών ενότητας στο έγγραφο του Word.

Οι πιο χρησιμοποιούμενοι τύποι αλλαγής ενότητας στο Word είναι η «Επόμενη Σελίδα» και η «Συνεχής». Η εισαγωγή της πρώτης σημαίνει ότι ξεκινάτε μια νέα σελίδα για τη νέα ενότητα. Αυτό διαιρεί τις ενότητες σε καθαρή προβολή. Αλλά όταν πρόκειται για εκτύπωση, θα χρειαστούν χαρτιά εξαγωγής. Σίγουρα, δεν είναι ένας φιλικός προς το περιβάλλον τρόπος. Στη συνέχεια, μπορείτε να εξετάσετε το ενδεχόμενο χρήσης της «Συνεχούς» αλλαγής, η οποία μπορεί να σας εξοικονομήσει πολλά χαρτιά, αλλά μπορεί να μην ανταποκριθεί στις απαιτήσεις διαχωρισμού.

Επομένως, θέλουμε να εισαγάγουμε τρόπους που μπορείτε να επιλέξετε σύμφωνα με συγκεκριμένες απαιτήσεις.

Μέθοδος 1: Αλλαγή της ρύθμισης σελίδας

1. Πρώτα απ 'όλα, τοποθετήστε τον κέρσορα μέσα σε μια ενότητα προορισμού και κάντε κλικ στην καρτέλα "Διάταξη σελίδας" στην Κορδέλα.
2. Στη συνέχεια, κάντε κλικ στο κουμπί βέλους στην ομάδα "Ρύθμιση σελίδας" για να ανοίξετε το παράθυρο διαλόγου με το ίδιο όνομα.
3. Στη συνέχεια, κάντε κλικ στην καρτέλα "Διάταξη" στο πλαίσιο.
4. Και επιλέξτε τον επιθυμητό τύπο αλλαγής ενότητας από το σύνθετο πλαίσιο "Έναρξη ενότητας".
5. Στη συνέχεια στο σύνθετο πλαίσιο "Εφαρμογή σε", επιλέξτε ένα εύρος εφαρμογής. Μπορείτε επίσης να αλλάξετε τον τύπο ενός διαλείμματος ενότητας ή πολλών. 

Εδώ είναι το αποτέλεσμα:

Μέθοδος 2: Εκτελέστε μακροεντολή Word για να αλλάξετε τον τύπο όλων των διακοπών ενότητας σε ένα έγγραφο

1. Αρχικά, πατήστε "Alt+F11" για να ενεργοποιήσετε τον επεξεργαστή VBA στο Word.
2. Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο και κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή μενού.
3. Στη συνέχεια, επιλέξτε "Module" στο αναπτυσσόμενο μενού.
4. Στη συνέχεια, κάντε διπλό κλικ στη νέα ενότητα για να το ανοίξετε.
5. Τώρα στον χώρο επεξεργασίας, απλώς επικολλήστε αυτούς τους κωδικούς:

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. Πατήστε "F5" για να εκτελέσετε τη μακροεντολή.

Αυτή η μακροεντολή θα αλλάξει όλα τα διαλείμματα ενότητας στον τύπο "Επόμενη σελίδα" σε "Συνεχής". Το αποτέλεσμα είναι το ίδιο με αυτό της μεθόδου 1.

Τώρα, εάν πρέπει να αλλάξετε όλες τις συνεχείς αλλαγές ενότητας στον τύπο "Επόμενη σελίδα", χρησιμοποιήστε την ακόλουθη μακροεντολή:

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

Εργαλείο για την επισκευή εγγράφων

Δεν είναι απίθανο να συναντήσετε ζητήματα του Word και να καταλήξετε κατεστραμμένο docx. Επομένως, πρέπει να λάβετε μέτρα αμέσως. Και ο πιο γρήγορος τρόπος για να ανακτήσετε τα δεδομένα σας είναι να επιλέξετε ένα εξειδικευμένο εργαλείο επισκευής.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com