Bagaimana Menambah atau Menghapus Beberapa Entri Koreksi Otomatis di Word Anda

Pada artikel di bawah ini, kami ingin memperkenalkan Anda cara menambahkan atau menghapus beberapa entri koreksi otomatis di Word Anda.

Di Word, ada fitur bawaan yang disebut koreksi otomatis. Banyak pengguna yang sudah familiar dengannya. Faktanya, banyak dari kita yang menggunakannya untuk mengoreksi kata yang salah eja dengan mudah. Meskipun Anda dapat mengimpor item sebanyak yang Anda butuhkan, Anda harus melakukannya satu per satu. Secara umum, kita harus menahannya. Namun, sejauh menyangkut makro, Anda akan dapat menghemat banyak waktu dengan membuat daftar entri koreksi otomatis dan mengimpornya sekali untuk semua dalam satu klik.

Berikut adalah detail yang menunjukkan kepada Anda bagaimana mencapainya:

Batch Tambahkan Beberapa Entri Koreksi Otomatis

1. Pertama dan terpenting, buka dokumen kosong di Word dan sisipkan tabel dengan 2 kolom dan beberapa baris.
2. Di tabel, masukkan semua kata yang salah eja di kolom pertama.
3. Dan masukkan semua kata yang benar di kolom kedua.
4. Setelah itu, tekan "Alt + F11" untuk memanggil editor VBA di Word.
5. Kemudian klik tab "Normal" dan "Sisipkan".
6. Dan pilih "Modul" pada menu drop-down.
7. Selanjutnya klik dua kali untuk membuka modul baru di sebelah kanan.
8. Sekarang tempel kode berikut di sana:

Sub BatchAddAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim objReplaceWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
    objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are added.")
End Sub

9. Terakhir, klik "Run" atau tekan "F5" untuk menjalankan makro.

Catatan:

1. Menjalankan makro akan meminta kotak hasil, yang menunjukkan semua item dalam tabel diimpor.
2. Pastikan tidak ada spasi setelah item dalam sel tabel. Jika tidak, makro akan gagal.

Hapus Batch Beberapa Entri Koreksi Otomatis

Berikut adalah kebutuhan kebalikan untuk menghapus banyak entri koreksi otomatis dalam hitungan detik. Untungnya, dengan makro, ini seharusnya mudah.

1. Pertama, buat dokumen kosong baru di Word dengan cara yang sama.
2. Kemudian sisipkan tabel dalam 1 kolom dari beberapa baris.
3. Masukkan semua kata yang salah eja yang perlu Anda hapus di tabel.
4. Selanjutnya instal dan jalankan makro dengan mengikuti langkah-langkah di atas.
5. Tapi ganti makro dengan yang ini:

Sub BatchDeleteAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    On Error Resume Next 
    AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are deleted.")
End Sub

6. Demikian juga, ada kotak hasil seperti di bawah ini:

Senjata untuk Memerangi Korupsi Dokumen

Bayangkan saja Anda telah mengerjakan laporan sepanjang hari. Dan tiba-tiba, Word berhenti merespons. Kemudian beberapa detik kemudian, Anda tidak dapat menemukan laporan Anda di mana pun di komputer. Sepertinya mereka menghilang begitu saja! Anda pasti merasa sangat putus asa! Namun, alih-alih bersilangan hati dan berdoa memohon keberuntungan, Anda membutuhkan senjata sungguhan memulihkan docx.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com