3 τρόποι μαζικής αλλαγής μορφής κειμένου σε όλα τα πλαίσια κειμένου στο έγγραφο του Word

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

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

Μέθοδος 1: Χρησιμοποιήστε τη δυνατότητα "Σύνθετη εύρεση"

1. Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Αρχική σελίδα" και μεταβείτε στο κουμπί βέλους πίσω από την εντολή "Εύρεση" στην ομάδα "Επεξεργασία".
2. Στη συνέχεια στην αναπτυσσόμενη λίστα, επιλέξτε "Σύνθετη Εύρεση" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
3. Βάλτε τον κέρσορα στο πλαίσιο κειμένου "Εύρεση τι" και εισαγάγετε "^?" εκεί.
4. Στη συνέχεια, κάντε κλικ στο κουμπί "Εύρεση σε" και επιλέξτε "Πλαίσια κειμένου στο κύριο έγγραφο".
5. Τώρα μπορείτε να δείτε όλα τα κείμενα σε πλαίσια κειμένου είναι επιλεγμένα. Σε περίπτωση που ξεχάσετε τη συμβολοσειρά που θα τοποθετηθεί στο πλαίσιο "Εύρεση τι", μπορείτε να κάνετε κλικ στο κουμπί "Περισσότερα" για να ανοίξετε περισσότερες επιλογές στο πλαίσιο και στη συνέχεια κάντε κλικ στο "Ειδικό". Στη συνέχεια επιλέξτε "Οποιοσδήποτε χαρακτήρας".
6. Με όλα τα κείμενα που επιλέγονται, απλώς μορφοποιήστε τα όπως απαιτείται.

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

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

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

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

Αυτή η μακροεντολή ορίζει όλα τα κείμενα του πλαισίου κειμένου στη γραμματοσειρά "Arial" στα 16 pt. Μπορείτε να αλλάξετε αυτές τις ρυθμίσεις ανάλογα με τις ανάγκες.

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

Τώρα που μιλάμε για επεξεργασία παρτίδας, δεν μπορούμε να εξαλείψουμε την ανάγκη να το κάνουμε μεταξύ πολλών αρχείων.

1. Αρχικά, τακτοποιήστε όλα τα έγγραφα-στόχους στον ίδιο κατάλογο.
2. Επόμενη εγκατάσταση και εκτέλεση μακροεντολής όπως κάνετε στη μέθοδο 2. Αυτή τη φορά αντικαταστήστε αυτούς τους κωδικούς με τους ακόλουθους:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Κατά την εκτέλεση της μακροεντολής, θα εμφανιστεί ένα πλαίσιο εισαγωγής, όπως παρακάτω:
4. Εισαγάγετε τη διεύθυνση φακέλου στο πλαίσιο κειμένου και κάντε κλικ στο "OK". Μην ξεχάσετε να προσθέσετε ένα "\" στο τέλος της συμβολοσειράς διαδρομής. Τότε απλώς περιμένετε το Word να κάνει τη δουλειά του.

Πραγματοποιήστε πλήρη προετοιμασία όσο μπορείτε

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

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

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