6 τρόποι για να μετατρέψετε όλες τις υποσημειώσεις σε σημειώσεις και αντίστροφα στο έγγραφο του Word σας

Σε αυτό το άρθρο, θα σας παρέχουμε 6 τρόπους για να μετατρέψετε όλες τις υποσημειώσεις σε τελικές σημειώσεις και αντίστροφα στο έγγραφο του Word.

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

Μέθοδος 1: Μη αυτόματη μετατροπή όλων των υποσημειώσεων σε Σημειώσεις σε ένα έγγραφο

Εδώ παραμένουν συνήθως οι υποσημειώσεις και οι υποσημειώσεις:

1. Αρχικά, κάντε κλικ στην καρτέλα "Αναφορές" και, στη συνέχεια, κάντε κλικ στο κουμπί βέλους στην ομάδα "Υποσημειώσεις" για να ανοίξετε το πλαίσιο διαλόγου "Υποσημείωση και σημείωση".
2. Στη συνέχεια κάντε κλικ στο κουμπί "Μετατροπή".
3. Στη συνέχεια, επιλέξτε "Μετατροπή όλων των υποσημειώσεων σε τελικές σημειώσεις".
4. Και κάντε κλικ στο "ΟΚ".
5. Τέλος, κλείστε το πλαίσιο "Υποσημείωση και σημείωση".

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

Μέθοδος 2: Μη αυτόματη μετατροπή όλων των σημείων σε υποσημειώσεις σε ένα έγγραφο

Η μετατροπή των τελικών σημειώσεων σε υποσημειώσεις είναι σχεδόν ίδια.

1. Επαναλάβετε τα βήματα 1 και 2 στη μέθοδο 1.
2. Αυτή τη φορά επιλέξτε "Μετατροπή όλων των τελικών σημειώσεων σε υποσημειώσεις".
3. Ωστόσο, επαναλάβετε τα βήματα 4 και 5 στη μέθοδο 1.

Ελέγξτε το ακόλουθο αποτέλεσμα:

Μέθοδος 3: Μετατροπή όλων των υποσημειώσεων σε Σημειώσεις σε ένα έγγραφο μέσω VBA

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

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Τέλος, κάντε κλικ στο "Εκτέλεση".

Μέθοδος 4: Μετατροπή όλων των σημείων σε υποσημειώσεις σε ένα έγγραφο μέσω VBA

Ομοίως, ακολουθήστε τα ίδια βήματα στη μέθοδο 3 για εγκατάσταση και εκτέλεση μακροεντολής. Αλλά, αντικαταστήστε τη μακροεντολή με την παρακάτω:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Μέθοδος 5: Μετατροπή παρτίδων όλων των υποσημειώσεων σε Σημειώσεις σε πολλαπλά έγγραφα μέσω VBA

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

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Η εκτέλεση αυτής της μακροεντολής θα εμφανίσει ένα πλαίσιο εισαγωγής όπου θα πρέπει να εισαγάγετε τη διαδρομή του φακέλου. Και μην ξεχνάτε ότι πρέπει να υπάρχει ένα \ "στο τέλος της διεύθυνσης φακέλου.

Μέθοδος 6: Μετατροπή παρτίδας όλων των σημείων σε υποσημειώσεις σε πολλαπλά έγγραφα μέσω VBA

Τέλος, εδώ είναι η μακροεντολή για τη μαζική μετατροπή τελικών σημειώσεων σε πολλά έγγραφα σε υποσημειώσεις αυτόματα:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Τρόπος επίλυσης προβλημάτων του Word

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

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

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