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)
4 komentar:
ada screen shootnya gak om??
Kendala om?
iyah debug mulu pas " If UCase$(str(0)) = "AKHIR" Then " nya...
Silakan liat2 file yg dimaksud...
koreksi.txt
Posting Komentar