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

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

Η επεξεργασία ενός εγγράφου στο Word συχνά απαιτεί κάτι περισσότερο από επεξεργασία. Για παράδειγμα, υποτίθεται ότι λαμβάνουμε επίσης υπόψη στοιχεία όπως στυλ, διάταξη σελίδας, κ.λπ. Και ένα από όλα τα είδη είναι η χρήση γραμματοσειρών. Δεδομένου ότι είναι πιθανό να αλλάζουμε μια γραμματοσειρά σε άλλη αρκετά συχνά, εδώ έχουμε 3 τρόπους για να μας βοηθήσετε να χειριστούμε εύκολα την εργασία.

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

1. Πρώτο και κύριοost, κάντε κλικ στην καρτέλα "Αρχική σελίδα".
2. Στη συνέχεια, κάντε κλικ στο «Αντικατάσταση» στην ομάδα «Επεξεργασία».
3. Στη συνέχεια, στο πλαίσιο διαλόγου "Εύρεση και αντικατάσταση", βεβαιωθείτε ότι βρίσκεστε στην καρτέλα "Αντικατάσταση". Τοποθετήστε τον δείκτη εισαγωγής στο πλαίσιο «Βρείτε τι» και βεβαιωθείτε ότι είναι κενός.
4. Κάντε κλικ στο κουμπί "Περισσότερα" στην κάτω αριστερή γωνία για να επεκτείνετε περισσότερες επιλογές.
5. Τώρα κάντε πρώτα κλικ στο «Μορφοποίηση».
6. Στη συνέχεια, επιλέξτε "Γραμματοσειρά" για να ανοίξετε το πλαίσιο "Εύρεση γραμματοσειράς".
7. Επιλέξτε τον τύπο «Γραμματοσειρά» που θέλετε να αντικαταστήσετε.
8. Στη συνέχεια κάντε κλικ στο "OK".
9. Στη συνέχεια, τοποθετήστε τον δείκτη εισαγωγής στο πλαίσιο κειμένου "Αντικατάσταση με" και βεβαιωθείτε ότι δεν υπάρχει ένας μόνο χαρακτήρας.
10. Επαναλάβετε τα βήματα 5 και 6. Μόνο αυτή τη φορά στο πλαίσιο «Εύρεση γραμματοσειράς», θα πρέπει να επιλέξετε τη γραμματοσειρά με την οποία θέλετε να αντικαταστήσετε. Στη συνέχεια, κάντε κλικ στο "OK".
11. Τέλος, κάντε κλικ στο "Αντικατάσταση όλων" στο πλαίσιο "Εύρεση και αντικατάσταση".

Μέθοδος 2: Χρησιμοποιήστε τη μακροεντολή για να αντικαταστήσετε τη γραμματοσειρά σε ένα έγγραφο

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

Sub ReplaceFontForOneDocument()
  Dim objSingleWord As Range
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objSingleWord In .Words
      If objSingleWord.Font.Name = "Calibri" Then
        objSingleWord.Font.Name = "Times New Roman"
      End If
    Next
  End With
End Sub

6. Τέλος, θυμηθείτε να κάνετε κλικ στο κουμπί "Εκτέλεση".

:

1. Στη γραμμή κώδικα "Αν objSingleWord.Font.Name = "Calibri" Τότε», αντικαταστήστε «Calibri” με τον τύπο γραμματοσειράς στο έγγραφο που δεν χρειάζεστε πλέον.
2. Στη γραμμή κώδικα "Font.Name = "Times New Roman"", αλλαγή "Times New Roman” με τη γραμματοσειρά που θέλετε να εφαρμόσετε για το αρχείο.

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

Οι προαναφερθείσες 2 μέθοδοι μιλούν όλες για οδηγίες αντικατάστασης γραμματοσειράς σε ένα έγγραφο. Τώρα ας ρίξουμε μια ματιά στον τρόπο αντικατάστασης της γραμματοσειράς σε πολλά έγγραφα. Η λύση εδώ, φυσικά, είναι η εκτέλεση μιας μακροεντολής Word.

1. Αρχικά, τακτοποιήστε όλα tarλήψη εγγράφων σε έναν φάκελο.
2. Στη συνέχεια, ανοίξτε το Word και ενεργοποιήστε το πρόγραμμα επεξεργασίας VBA και τον χώρο επεξεργασίας κώδικα χρησιμοποιώντας τα βήματα στη μέθοδο 2.
3. Στη συνέχεια επικολλήστε τους παρακάτω κωδικούς:

Sub BatchReplaceFont()
  Dim objDoc As Document
  Dim objSingleWord As Range
  Dim strFile As String, strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Test\Desktop\test files\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Replace a specific font with another in all files under the same folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  For Each objSingleWord In objDoc.Words
    If objSingleWord.Font.Name = "Calibri" Then
      objSingleWord.Font.Name = "Time New Roman"
    End If
  Next objSingleWord
 
  objDoc.Save
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

4. Πατήστε επιτέλους το κουμπί "Εκτέλεση".

Σημειώσεις:

1. Το "Calibri" είναι η γραμματοσειρά που δεν χρειάζεστε και το "Time New Roman" είναι αυτό που θέλετε.
2. Στη γραμμή κώδικα "strFolder = "C:\Users\Test\Desktop\test files\"", ο "C:\Users\Test\Desktop\test files\" αντιπροσωπεύει τη διαδρομή φακέλου. Και μην ξεχνάτε το τελευταίο»\» ακολουθώντας το μονοπάτι.

Διορθώστε εκπληκτικά σφάλματα του Word

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

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

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