Bagaimana Menambah Batch atau Menghapus Banyak Entri AutoCorrect dalam Word Anda

Dalam artikel di bawah ini, kami ingin memperkenalkan anda cara untuk menambah atau memadamkan berbilang entri pembetulan automatik dalam Word anda.

Dalam Word, terdapat ciri terbina dalam yang dipanggil autocorrect. Ramai pengguna sudah biasa dengannya. Sebenarnya, ramai di antara kita menggunakannya untuk membetulkan perkataan yang mudah tersalah eja. Walaupun anda boleh mengimport seberapa banyak item yang anda perlukan, anda perlu melakukannya satu demi satu. Secara umumnya, kita perlu bersabar dengannya. Tetapi, setakat makro, anda akan dapat menjimatkan banyak masa dengan membuat senarai entri autocorrect dan mengimportnya sekali untuk semua dalam satu klik.

Berikut ialah butiran yang menunjukkan kepada anda cara untuk mencapainya:

Batch Tambah Berbilang Entri AutoCorrect

1. Pertama dan utamaost, buka dokumen kosong dalam Word dan masukkan jadual 2 lajur dan berbilang baris.
2. Dalam jadual, masukkan semua perkataan yang salah eja dalam lajur pertama.
3. Dan masukkan semua perkataan yang betul dalam lajur kedua.
4. Selepas itu, tekan "Alt+ F11" untuk menggunakan editor VBA dalam Word.
5. Kemudian klik tab "Normal" dan "Insert".
6. Dan pilih "Module" pada menu drop-down.
7. Klik dua kali seterusnya untuk membuka modul baharu di sebelah kanan.
8. Sekarang tampal kod 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. Akhir sekali, klik "Jalankan" atau tekan "F5" untuk menjalankan makro.

Nota:

1. Menjalankan makro akan menggesa kotak hasil, menunjukkan semua item dalam jadual diimport.
2. Pastikan tiada ruang mengekor selepas item dalam sel jadual. Jika tidak, makro akan gagal.

Batch Padamkan Berbilang Entri AutoCorrect

Berikut ialah keperluan yang bertentangan untuk memadamkan berbilang entri pembetulan automatik dalam beberapa saat. Nasib baik, dengan makro, ini sepatutnya mudah.

1. Pertama, buat dokumen kosong baharu dalam Word dengan cara yang sama.
2. Kemudian masukkan jadual dalam 1 lajur berbilang baris.
3. Masukkan semua perkataan salah eja yang anda perlu alih keluar dalam jadual.
4. Seterusnya pasang dan jalankan makro mengikut langkah tepat di atas.
5. Tetapi gantikan 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. Begitu juga, terdapat kotak hasil seperti di bawah:

Senjata untuk Melawan Rasuah Dokumen

Bayangkan anda telah membuat laporan sepanjang hari. Dan secara tiba-tiba, Word berhenti bertindak balas. Kemudian beberapa saat kemudian, anda tidak boleh menemui laporan anda di mana-mana pada komputer. Nampaknya mereka hilang begitu sahaja! Betapa terdesak yang anda rasakan! Namun, daripada terlintas di hati dan berdoa untuk nasib baik, anda memerlukan senjata yang sebenar pulihkan docx.

Pengenalan Pengarang:

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