Word sənədinizdə şrifti əvəz etməyin 3 asan yolu

Bu yazıda sizə Word sənədinizdə müəyyən bir şrifti əvəz etməyin 3 asan və təsirli üsulunu göstərmək istəyirik.

Word-də bir sənədi emal etmək çox vaxt redaktə etməkdən daha çox tələb edir. Məsələn, üslub, səhifənin tərtibatı və s. kimi elementləri də nəzərə almalıyıq. Bütün növlərdən biri də şrift istifadəsidir. Nəzərə alsaq ki, biz tez-tez bir şrifti başqa birinə dəyişdirə bilərik, burada tapşırığın öhdəsindən asanlıqla gəlmək üçün 3 üsulumuz var.

Metod 1: "Tap və dəyişdir" funksiyasından istifadə edin

1. Əvvəlcə "Əsas səhifə" sekmesini vurun.
2. Sonra "Redaktə" qrupunda "Əvəz et" düyməsini basın.
3. Sonrakı "Tap və Dəyişdir" informasiya qutusunda, "Əvəz et" sekmesinin altında olduğunuzdan əmin olun. Daxiletmə göstəricisini "Nə tapın" qutusuna qoyun və boş olduğundan əmin olun.
4. Daha çox seçimi genişləndirmək üçün aşağı sol küncdəki "Daha çox" düyməsini basın.
5. İndi əvvəlcə "Format" düyməsini basın.
6. Sonra "Şrift tap" qutusunu açmaq üçün "Şrift" seçin.
7. Əvəz etmək istədiyiniz "Şrift" növünü seçin.
8. Sonra "OK" düyməsini basın.
9. Sonra daxil etmə göstəricisini "Əvəz et" mətn qutusuna qoyun və tək simvol olmadığından əmin olun.
10. 5 və 6-cı addımları təkrarlayın. Yalnız bu dəfə “Şrifti tapın” qutusunda siz əvəz etmək istədiyiniz şrifti seçməlisiniz. Sonra "OK" düyməsini basın.
11. Nəhayət, "Tap və dəyişdir" qutusunda "Hamısını dəyişdir" düyməsini basın.

Metod 2: Bir sənəddə şrifti əvəz etmək üçün makrodan istifadə edin

1. Əvvəlcə Word VBA redaktorunu işə salmaq üçün “Alt+ F11” düyməsini sıxın.
2. Sonra "Normal" və sonra "Daxil et" düyməsini basın.
3. “Normal” layihəsinin altına yeni modul daxil etmək üçün “Modul” seçin.
4. Sonra redaktə sahəsini açmaq üçün üzərinə iki dəfə klikləyin.
5. Aşağıdakı kodları oraya yapışdırın:

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əhayət, "Çalış" düyməsini basmağı unutmayın.

Qeydlər:

1. Kod xəttində "Əgər objSingleWord.Font.Name = “Calibri” Sonra", əvəz et"Cihazlar” artıq ehtiyacınız olmayan sənəddəki şrift növü ilə.
2. Kod xəttində "Font.Name = "Times New Roman""dəyişmək"Times New Roman” faylı üçün müraciət etmək istədiyiniz şriftlə.

Metod 3: Çox Sənəddə Şrifti Dəyişmək üçün Makronu işə salın

Yuxarıda qeyd olunan 2 metodun hamısı bir sənəddə şriftin dəyişdirilməsi təlimatlarından bəhs edir. İndi bir neçə sənəddə şriftin necə dəyişdirilməsinə nəzər salaq. Burada həll yolu, əlbəttə ki, Word makrosunu işə salmaqdır.

1. Başlamaq üçün bütün hədəf sənədləri bir qovluğa düzün.
2. Sonra Word-ü açın və 2-ci üsuldakı addımlardan istifadə edərək VBA redaktorunu və kodu redaktə sahəsini işə salın.
3. Sonra aşağıdakı kodları yapışdırın:

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. Nəhayət, "Çalış" düyməsini basın.

Qeydlər:

1. “Calibri” sizə lazım olmayan şriftdir, “Time New Roman” isə istədiyiniz şriftdir.
2. Kod xəttində "strFolder = “C:\Users\Test\Desktop\test faylları\”","C:\Users\Test\Masaüstü\test faylları\” qovluq yolunu təmsil edir. Və sonuncunu unutma”\” yolu izləyir.

Təəccüblü Söz Səhvlərini düzəldin

Səhvlər Word-də hərdən görünə bilər. Nəticə isə Word fayllarımız üçün ölümcül olur. Word-də təəccüblü çökmələrin öhdəsindən gəlməyin bir yolu tez-tez ehtiyat nüsxəsini çıxarmaqdır. Sonra qorxacaq bir şey yoxdur. Başqa bir yol, faylları zədələdikdən sonra geri götürməkdir, yəni a Word docx xəta təmiri məhsulu.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş xls bərpa aləti və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com