Melengkapi fitur Autocorrect Pada Microsoft Office

Anda biasa mengetik sesuatu yang berulang-ulang?
Atau sering sekali melakukan kesalahan ketik pada beberapa kata yang disebabkan kurang satu huruf atau posisinya tertukar?

Jika pengetikan dalam bahasa inggris, maka fitur auto correct akan menyelesaikan tersebut secara native.
Namun jika anda mengetik dalam kalimat berbahasa Indonesia, auto correct akan "mandul".
Sebenarnya auto correct dapat diisikan secara manual melalui menu Tool, AutoCorrect Option pada Micrososft Word ataupun Excel.
Namun jika anda sering berpindah komputer dalam mengetik, haruskah anda mengulangi lagi pengisian auto correct?
Jawabnya tidak. Jadi gunakanlah Macro.

Berikut ilustrasinya:
Anda sering mengetik kata yang hurufnya kurang satu atau lebih misalnya mengetik "tetanga, yagn, sebgai" yang seharusnya "tetangga, yang, sebagai".
Atau malas menekan Shift saat mengetik "jakarta, indonesia" yang seharusnya "Jakarta, Indonesia".
Atau sering latah karena abis sms-an hingga mengetik "jg, yg", seharusnya "juga, yang".
Masih banyak alasan lain untuk kita menggunakan auto correct.

Kita akan coba memasukkan Fitur AutoCorrect pada Ms Office 2003 menggunakan macro.

• Masukkan Teks yang akan diganti dan penggantinya DIBATASI TANDA KOMA dalam satu baris.
  contoh:
  
  tetanga,tetangga
  
  sebgai,sebagai
  
  indonesia,Indonesia
  
  jakarta,Jakarta
  
  jg,juga
  
  yg,yang
  
  yagn,yang
  
  
• Jika telah selesai mengetikkan semua AutoCorrect yang dibutuhkan AKHIRI DENGAN MENGETIKKAN
  akhir,akhir
  
  
• Beri jarak baris terakhir dengan menekan ENTER beberapa kali.
  
• SAVE AS file ini dengan nama "Koreksi.txt", dan simpan di c:\
  Menyimpan di c:\ hanyalah asumsi.
  
• Aktifkan program Microsoft Word dan tekan ALT-F11, akan tampil Visual Basic Editor
  
• Insert, Module
  
• Ketik Macro berikut
  
  

  
  Sub Koreksi()
  Dim Koreksi
  Dim str() As String
  Dim i As Integer
  Open "c:\Koreksi.txt" For Input As #1
  Do While Not EOF(1)
      Line Input #1, Koreksi
      str() = Split(Koreksi, ",")
      If UCase$(str(0)) = "AKHIR" Then
          MsgBox ("Auto Correct diubah sebanyak " & i & " item.")
          Close #1
          Exit Sub
      End If
      AutoCorrect.Entries.Add str(0),str(1)
      i = i + 1
  Loop
  Close #1
  End Sub
  

  
  
• RUN (jalankan Macro Koreksi tersebut)
  
• Udah.

Jika kemudian ingin menambahkan daftar auto correct, cukup cari file di c:\ "koreksi.txt" lalu
tambahkan kata-kata yang diinginkan, lalu SAVE.
Aktifkan Word, lalu jalankan macro "Koreksi" dengan cara menekan ALT+F8. Mudah-mudahan bermanfaat.
Contoh selengkapnya, silakan download file koreksi.txt.(2kb)