3 mënyra të thjeshta për të zëvendësuar një font në dokumentin tuaj Word

Në këtë artikull, ne duam t'ju tregojmë 3 metoda të thjeshta dhe efektive për të zëvendësuar një font specifik në dokumentin tuaj Word.

Për të përpunuar një dokument në Word shpesh nevojitet më shumë se redaktimi. Për shembull, ne gjithashtu supozohet të marrim parasysh elementë të tillë si stili, faqosja e faqes, etj. Dhe një nga të gjitha llojet është përdorimi i fontit. Duke pasur parasysh se ka të ngjarë të ndryshojmë një font në një tjetër mjaft shpesh, këtu kemi 3 mënyra për të na ndihmuar të trajtojmë lehtësisht detyrën.

Metoda 1: Përdorni funksionin "Gjeni dhe zëvendësoni".

1. E para dhe e paraost, klikoni në skedën "Home".
2. Pastaj klikoni "Zëvendësoni" në grupin "Redaktimi".
3. Më pas në kutinë e dialogut "Gjej dhe Zëvendëso", sigurohu që të jesh nën skedën "Zëvendëso". Vendosni treguesin e futjes në kutinë "Gjeni çfarë" dhe sigurohuni që të jetë bosh.
4. Klikoni butonin "Më shumë" në këndin e majtë poshtë për të zgjeruar më shumë opsione.
5. Tani klikoni së pari "Format".
6. Pastaj zgjidhni "Font" për të hapur kutinë "Gjeni Font".
7. Zgjidhni llojin "Font" që dëshironi të zëvendësoni.
8. Pastaj klikoni "OK".
9. Pastaj vendosni treguesin e futjes në kutinë e tekstit "Zëvendësoni me" dhe sigurohuni që nuk ka asnjë karakter të vetëm.
10. Përsëritni hapin 5 dhe 6. Vetëm këtë herë në kutinë "Gjeni fontin", duhet të zgjidhni fontin me të cilin dëshironi të zëvendësoni. Pastaj klikoni "OK".
11. Së fundi, klikoni "Zëvendësoni të gjitha" në kutinë "Gjeni dhe zëvendësoni".

Metoda 2: Përdorni makro për të zëvendësuar fontin në një dokument

1. Së pari, shtypni "Alt+ F11" për të aktivizuar redaktuesin Word VBA.
2. Pastaj klikoni "Normal" dhe më pas "Fut".
3. Zgjidhni "Modul" për të futur një modul të ri nën projektin "Normal".
4. Pastaj klikoni dy herë mbi të për të hapur hapësirën e redaktimit.
5. Ngjitni kodet e mëposhtme atje:

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. Në fund, mos harroni të klikoni butonin "Run".

Shënime:

1. Në rreshtin e kodit "Nëse objSingleWord.Font.Name = “Calibri” Atëherë", zëvendësoni "mat” me llojin e fontit në dokument që nuk ju nevojitet më.
2. Në rreshtin e kodit "Font.Name = "Times New Roman"", ndrysho"Times New Roman” me fontin që dëshironi të aplikoni për skedarin.

Metoda 3: Ekzekutoni Macro për të zëvendësuar fontin në shumë dokumente

2 metodat e lartpërmendura flasin të gjitha për udhëzime për të zëvendësuar fontin në një dokument. Tani le të hedhim një vështrim se si të zëvendësojmë fontin në dokumente të shumta. Zgjidhja këtu, natyrisht, është ekzekutimi i një makro Word.

1. Për të filluar, rregulloni të gjitha tarmerrni dokumente në një dosje.
2. Pastaj hapni Word dhe aktivizoni redaktorin VBA dhe hapësirën e redaktimit të kodit duke përdorur hapat në metodën 2.
3. Më pas ngjisni kodet e mëposhtme:

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. Më në fund shtypni butonin "Run".

Shënimet:

1. "Calibri" është fonti që nuk ju nevojitet dhe "Time New Roman" është ai që dëshironi.
2. Në rreshtin e kodit "strFolder = "C:\Users\Test\Desktop\skedarët test\"","C:\Përdoruesit\Test\Desktop\skedarët test\” paraqet shtegun e dosjes. Dhe mos harroni të fundit”\” duke ndjekur rrugën.

Rregulloni gabimet befasuese të fjalës

Gabimet mund të shfaqen herë pas here në Word. Dhe pasoja është vdekjeprurëse për skedarët tanë Word. Një mënyrë për të trajtuar kolapset befasuese në Word është të bëni kopje rezervë shpesh. Atëherë nuk ka asgjë për t'u frikësuar. Një mënyrë tjetër është të reduktoni skedarët pasi ato të korruptohen që është a Produkt për riparimin e gabimeve Word docx.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mjet i korruptuar i rimëkëmbjes xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com