4 γρήγορες μέθοδοι για την κατάργηση ανεπιθύμητων αλλαγών σελίδας στο έγγραφο του Word

Σε αυτήν την ανάρτηση, θα επικεντρωθούμε στην εισαγωγή 4 γρήγορων μεθόδων για να αφαιρέσετε ανεπιθύμητες αλλαγές σελίδας στο έγγραφο του Word σας.

Το Word εισάγει αυτόματη αλλαγή σελίδας όταν μεταβαίνει από τη μία σελίδα στην επόμενη. Επιπλέον, μπορείτε να εισαγάγετε χειροκίνητη αλλαγή σελίδας μετά το τέλος μιας περιοχής κειμένου. Στη συνέχεια, το κείμενο θα ξεκινά στην κορυφή της επόμενης σελίδας. Για τον τρόπο εισαγωγής χειροκίνητης αλλαγής σελίδας, μπορείτε να ανατρέξετε σε αυτό το άρθρο: 5 τρόποι για να εισαγάγετε γρήγορα διαλείμματα σελίδας στο έγγραφο του Word

Ωστόσο, θα πρέπει να καταλάβετε ότι οι αυτόματες αλλαγές σελίδας είναι αόρατες και επομένως δεν μπορούν να διαγραφούν με μη αυτόματο τρόπο. Αλλά το εγχειρίδιο διαλείμματα σελίδας εισάγεται κάνει. Έτσι, το άρθρο μας θα σας προσφέρει κυρίως χρήσιμες προσεγγίσεις για την κατάργηση ανεπιθύμητων μη αυτόματων αλλαγών σελίδας στο έγγραφο του Word.   

Μέθοδος 1: Μη αυτόματη κατάργηση αλλαγών σελίδας

1. Πρώτα απ 'όλα, πρέπει να κάνετε κλικ στην εντολή "Εμφάνιση/Απόκρυψη" στην καρτέλα "Αρχική σελίδα" για να αποκαλύψετε όλα τα κρυφά σημάδια και σύμβολα στο έγγραφο, ώστε να μπορείτε να προβάλετε την αλλαγή σελίδας.
2. Στη συνέχεια, επιλέξτε μια αλλαγή σελίδας και πατήστε "Διαγραφή" για να απαλλαγείτε από αυτήν.
3. Ή μπορείτε να κάνετε κλικ στα αριστερά μιας αλλαγής σελίδας και, στη συνέχεια, να πατήσετε "Διαγραφή".

Μέθοδος 2: Χρησιμοποιήστε τη δυνατότητα "Εύρεση και αντικατάσταση"

1. Αρχικά, πατήστε "Ctrl+ H" για να ενεργοποιήσετε το πλαίσιο "Εύρεση και αντικατάσταση".
2. Στη συνέχεια, τοποθετήστε τον κέρσορα μέσα στο πλαίσιο κειμένου «Βρείτε τι» και κάντε κλικ στην καρτέλα «Περισσότερα».
3. Στη συνέχεια, κάντε κλικ στο "Ειδικό" και επιλέξτε "Μη αυτόματη αλλαγή σελίδας" σε αυτό το μενού.
4. Τέλος, αφήστε κενό το πλαίσιο «Αντικατάσταση με» και κάντε κλικ στο «Αντικατάσταση όλων» για να αφαιρέσετε κάθε αλλαγή σελίδας στο έγγραφο.

Μέθοδος 3: Εκτελέστε τη μακροεντολή για να διαγράψετε όλες τις αλλαγές σελίδας σε ένα έγγραφο

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

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Τέλος, πατήστε "F5" για να εκτελέσετε τους κωδικούς.

Μέθοδος 4: Διαγραφή όλων των αλλαγών σελίδας σε όλα τα έγγραφα σε έναν φάκελο

Για να καταργήσετε όλες τις αλλαγές σελίδας σε όλα τα έγγραφα σε έναν φάκελο, μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο.

1. Για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή, μπορείτε να ανατρέξετε στα βήματα της μεθόδου 3.
2. Και θυμηθείτε να αντικαταστήσετε με αυτήν τη μακροεντολή παρακάτω:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Η μακροεντολή θα ενεργοποιήσει το παράθυρο «Αναζήτηση». Επιλέξτε έναν φάκελο που περιέχει τα έγγραφα-στόχους σας και κάντε κλικ στο «OK» για να συνεχίσετε.

Προετοιμαστείτε για καταστροφή δεδομένων

Πολλοί από εσάς έχετε επίγνωση της τυχαίας απώλειας δεδομένων. Για τους χρήστες του Word, συνιστάται επίσης να είναι καλά προετοιμασμένοι για οποιαδήποτε καταστροφή δεδομένων. Και ένας από τους καλύτερους τρόπους είναι να αποκτήσετε ένα επισκευή docx εργαλείο εκ των προτέρων.

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

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