Membuat Makro untuk WordCount | Ms.Word 2000/XP/2003
Sumber: Tips & Trik CHIP-DVD 1/2006
Fasilitas Wordcount biasanya digunakan untuk mengetahui jumlah kata, karakter, kalimat, paragraf, dan halaman yang terdapat dalam satu dokumen. Fasilitas ini dapat Anda aktifkan dari menu “Tools”. Namun, fasilitas ini biasanya digunakan pada dokumen yang telah jadi atau pada dokumen yang sedang Anda edit. Jadi, Anda harus mengetikkan kata atau kalimatnya terlebih dahulu, baru Anda dapat mengetahui berapa jumlah kata atau kalimat tadi melalui Wordcount.
Apabila Anda diberi tugas membuat dokumen dengan jumlah kata yang telah ditentukan, tampaknya dengan cara ini Anda akan sedikit kerepotan. Apabila kata-kata yang Anda ketik ternyata lebih dari yang disyaratkan, tentunya Anda harus memotong beberapa kata. Sebaliknya, jika kata-kata yang Anda ketik jumlahnya kurang dari yang disyaratkan,Anda harus menambahnya dengan beberapa kata lagi. Sedikit merepotkan bukan? Akan lebih baik jika Anda dapat mengetahui jumlah kata yang diketik saat itu juga (realtime) sehingga Anda tidak usah membuang-buang waktu untuk mengeditnya kembali.
Jawaban dari masalah tadi dapat Anda temukan dalam trik Word kali ini. Namun, Anda harus menggunakan fasilitas macro yang terdapat dalam Microsoft Word. Untuk melakukannya, buka Microsoft Word dari menu “Start” lalu buat dokumen baru. Selanjutnya, buka “Visual Basic Editor” dari menu “Tools | Macro”. Dari program Visual Basic Editor inilah Anda dapat membuat makro untuk masalah tadi. Caranya, klik “Insert | Module” dan salin list makro seperti yang tertera di dalam boks.
Sub WordCount()
Set myBar = CommandBars("Formatting")
Set myControls = myBar.Controls
NumButtons = myControls.Count
ButtonLoc = 0
For J = 1 To NumButtons
If myControls(J).Type = msoControlButton Then
ButtonName$ = myControls(J).OnAction
If ButtonName$ = "WordCounter" Then ButtonLoc = J
End If
Next J
If ButtonLoc = 0 Then
ButtonLoc = NumButtons + 1
Set newControl = myControls.Add(Type:=msoControlButton)
newControl.OnAction = "WordCounter"
newControl.Style = msoButtonCaption
End If
Set myRange = ActiveDocument.Content
WdCount = myRange.ReadabilityStatistics(1).Value
With myControls(ButtonLoc)
.Caption = WdCount
End With
Application.OnTime When:=Now + TimeSerial(0, 0, 5), Name:="WordCounter"
End Sub
Setelah list tersalin dengan rapi, jalankan perintah “Debug | CompileProject”. Jika sudah, tutup program registry editor untuk kembali ke lembar kerja. Kini, Anda dapat memasukkan satu tombol khusus ke dalam menubar untuk mempermudah penggunaan makro yang Anda buat ini. Buka saja “Tools | Macro | Macros”. Di dalam jendela “Macros” yang terbuka, klik pilihan “WordCount” dan tekan tombol “Organizer”. Di dalam jendela “Organizer”, aktifkan tab “Macro Project Item” dan copy “Module1″ yang berada di bagian kiri ke bagian “In Normal.dot” yang berada di kanannya. Setelah selesai, tutup dengan mengklik “OK”.
Langkah selanjutnya, Anda harus membuka “Customize” dari menu “Tools”. Di dalam jendela “Customize”, aktifkan tab “Commands” dan pilih “Macros” yang berada di bagian “Categories”. Di bagian kanannya, yaitu di bagian “Command”, drag “Normal.Module1.WordCount” ke bagian menubar yang masih kosong. Klik kanan tombol baru tersebut dan ubah namanya menjadi “WordCount” saja. Anda juga bisa menambahkan icon di sampingnya melalui “Change Button Image”.
Terakhir, tutup dengan mengklik “OK” untuk kembali ke lembar kerja. Sekarang, Anda dapat mencobanya dengan membuat satu dokumen baru. Mulailah mengetik di dalamnya dan lihat di bagian akhir “Formatting Toolbar”. Informasi mengenai jumlah kata yang Anda ketik dapat Anda ketahui dari sini. Informasi ini akan terus meng-update dirinya sampai Anda berhenti mengetik.
Desmal.Andi@CHIP.co.id
