3 Cara Mudah Mengganti Font dalam Dokumen Word Anda

Dalam artikel ini, kami ingin menunjukkan kepada anda 3 kaedah mudah dan berkesan untuk mengganti fon tertentu dalam dokumen Word anda.

Untuk memproses dokumen di Word sering memerlukan lebih banyak daripada menyunting. Sebagai contoh, kita juga harus mempertimbangkan unsur-unsur seperti gaya, susun atur halaman, dll. Dan salah satu jenisnya adalah penggunaan fon. Memandangkan kita cenderung menukar fon ke fon yang lain dengan kerap, di sini kita mempunyai 3 cara untuk membantu kita menangani tugas dengan mudah.

Kaedah 1: Gunakan "Cari dan Ganti" Ciri

1. Pertama sekali, klik tab "Laman Utama".
2. Kemudian klik "Ganti" dalam kumpulan "Mengedit".
3. Selanjutnya di kotak dialog "Cari dan Ganti", pastikan anda berada di bawah tab "Ganti". Masukkan penunjuk sisipan di kotak "Cari apa" dan pastikan ia kosong.
4. Klik butang "Lagi" di sudut kiri bawah untuk memperluas lebih banyak pilihan.
5. Sekarang klik "Format" terlebih dahulu.
6. Kemudian pilih "Font" untuk membuka kotak "Cari Font".
7. Pilih jenis "Font" yang ingin anda ganti.
8. Klik seterusnya "OK".
9. Kemudian letakkan penunjuk sisipan di kotak teks "Ganti dengan" dan pastikan tidak ada satu pun watak.
10. Ulangi langkah 5 dan 6. Hanya kali ini di kotak "Cari Font", anda harus memilih fon yang ingin anda ganti. Kemudian klik "OK".
11. Terakhir, klik "Ganti Semua" di kotak "Cari dan Ganti".

Kaedah 2: Gunakan Makro untuk Mengganti Font dalam satu Dokumen

1. Mula-mula, tekan "Alt + F11" untuk mencetuskan editor Word VBA.
2. Kemudian klik "Normal" dan kemudian "Masukkan".
3. Pilih "Modul" untuk memasukkan modul baru di bawah projek "Normal".
4. Klik dua kali seterusnya untuk membuka ruang penyuntingan.
5. Tampal kod berikut di sana:

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. Akhirnya, ingat untuk mengklik butang "Jalankan".

Nota:

1. Dalam baris kod "Sekiranya objSingleWord.Font.Name = "Calibri" Kemudian", Ganti"Calibri"Dengan jenis fon dalam dokumen yang anda tidak perlukan lagi.
2. Dalam baris kod "Font.Name = "Times New Roman"", ubah "Times New Roman"Dengan fon yang ingin anda lamar untuk fail tersebut.

Kaedah 3: Jalankan Makro untuk Mengganti Font dalam Beberapa Dokumen

2 kaedah yang disebutkan di atas semuanya membincangkan arahan untuk mengganti fon dalam satu dokumen. Sekarang mari kita lihat cara mengganti fon dalam beberapa dokumen. Penyelesaian di sini, tentu saja, menjalankan makro Word.

1. Untuk bermula, susun semua dokumen sasaran dalam satu folder.
2. Kemudian buka Word dan cetuskan editor VBA, dan ruang penyuntingan kod menggunakan langkah-langkah dalam kaedah 2.
3. Seterusnya tampalkan kod berikut:

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. Tekan butang "Run" akhirnya.

Nota:

1. "Calibri" adalah fon yang tidak anda perlukan dan "Time New Roman" adalah huruf yang anda mahukan.
2. Dalam baris kod "strFolder = "C: \ Users \ Test \ Desktop \ test files \"","C: \ Users \ Uji \ Desktop \ fail ujian \Mewakili jalan folder. Dan jangan lupa yang terakhir "\”Mengikuti jalan.

Betulkan Kesalahan Kata yang Mengejutkan

Kesalahan boleh muncul sesekali di Word. Dan akibatnya adalah mematikan fail Word kami. Salah satu cara untuk mengatasi keruntuhan yang mengejutkan di Word adalah dengan kerap membuat sandaran. Maka tidak ada yang perlu ditakuti. Cara lain adalah menggunakan semula fail setelah mereka rosak iaitu Produk pembaikan ralat Word docx.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pemulihan xls rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com