PDA

View Full Version : Programming MS Word Macro dan VBA 1



yopibest
11-08-2012, 10:11 PM
Penjelasan sederhana tentang VBA dan Macro ini mudah-mudahan dapat membantu para pemula yang BARU memperdalam Word.
Bagi yang sering berurusan dengan ketik-mengetik, kemungkinan besar pernah menginginkan suatu kata yang akan ditulis berulang-ulang, dibuat menjadi lebih singkat pengetikannya, atau menggunakan kode tertentu. Misalnya saja, menuliskan nama atasan (Bos ..) yang panjang, atau nomor anggota/induk, alamat resmi, Motto, dan lain-lain.

Fitur ini biasa disebut Auto Correct Option. Misalnya mengetik "alamatku" otomatis dituliskan menjadi "Jl. Panen Raya Orde Baru No.7", atau mengetik "nama bos" dituliskan menjadi "Drs. Susno Cokro, MA, Rsc".

Mengatur Auto correct dengan dapat dilakukan dengan cara: Excel Option --> Auto Correct Options, dilanjutkan dengan memasukkan kata yang diganti dan kata gantian. Namun ini akan merepotkan jika: Kata yang diganti berjumlah banyak, sering berpindah komputer, atau komputer sering di reset (install lagi..).

Solusinya adalah dengan VBA/Macro. Langkahnya sebagai berikut:

Kode macro berikut disimpan dalam sebuah file teks (.TXT)
untuk mempermudah, simpanlah dialamat system drive dengan nama Auto.txt (mis: C:\auto.txt)

File ini berisi:
- Kata yang diganti (cth: alamatku)
- Dibatasi koma (,)
- Kata gantian (cth: Jl. Panen Raya Orde Baru No.7)
sehingga menjadi sbb:

alamatku,Jl. Panen Raya Orde Baru No.7
nama bos,Drs. Susno Cokro, MA, Rsc
dan seterusnya........

Pada bagian baris terakhir, masukkan kata berikut ini sebagai pembatas:

akhir,akhir

Masih pada file Auto.TXT, lanjutkan mengetik yang sepertinya macro berikut ini:
(dapat diketik sesukanya, kecuali pada bagian "Sub Koreksi()" hingga "End Sub")

'################################################# ##############
'================================================= ==============
Sub Koreksi()
Dim Koreksi
Dim str() As String
Dim i As Integer
Open "c:\Auto.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
'Macro By: Yopibest©2003
End Sub
'================================================= ==============
'################################################# ##############

Jika telah selesai membuat file Auto.txt, save dan letakkan di C:\


Tiba saatnya mengaplikasikan pada macro MS Word. Langkahnya adalah:

Buka file c:\Auto.TXT, dan select (blok) bagian "Sub Koreksi()" hingga "End Sub"
Copy bagian ini.
Aktifkan Ms Word.
Tampilkan Microsoft Visual Basic for Application dengan cara menekan tombol ALT dan F11.
Klik menu Insert --> Module
Paste.
Dengan cursor masih didalam blok Sub Koreksi,
tekan F5 untuk eksekusi macro ini.


Kesimpulannya adalah, kita hanya perlu menenteng file Auto.TXT dan jika diperlukan tinggal letakkan file tersebut di system drive (C:\), Copy bagian macro, aktifkan MS Word, tambahkan module baru, paste, dan eksekusi macro tersebut.

Auto.TXT (http://idws.us/bgfiibf)

Sekian, mudah-mudahan dapat membantu. Dan jika tidak, saya mohon maaf.