Seringkali kita suka penasaran berapa sih jumlah kata dan karakter yang sedang kita tulis, apalagi jika kita ditugaskan membuat sebuah tulisan dengan batasan jumlah kata atau karakter tertentu. Di artikel sederhana ini akan dibahas bagaimana melihat secara (hampir) realtime jumlah karakter dan kata yang di tulis ketika kita menggunakan aplikasi ms word.
note: Pada artikel ini, saya menggunakan ms word 2013. Cara ini mungkin bisa atau tidak bisa digunakan pada versi lain dari ms word. Versi lain dari ms word mungkin bisa juga menggunakan cara ini dengan sedikit perubahan
Untuk menampilkan jumlah karakter dan kata ketika sedang mengetik menggunakan ms word, ada beberapa cara yang bisa dilakukan, seringkali dengan menggunakan fasilitas “Word Count” yang sudah terdapat pada salah satu menu di ms word. Akan tetapi, penggunaan cara ini walau efektif, tidak praktis karena ada beberapa klik dan pergerakan mouse yang dibutuhkan. Ada satu cara menarik yang bisa dilakukan untuk menampilkan statistik yang kita perlukan tersebut tepat di atas, secara hampir realtime, tanpa perlu melakukan apa-apa selain sedikit melirik ;-)
Cara yang kita gunakan adalah menggunakan fasilitas Makro, yaitu sejenis kode pemograman yang bisa digunakan untuk memberikan perintah-perintah khusus kepada sebuah aplikasi. Makro pada Ms. Word menggunakan bahasa pemrograman yang disebut VBA alias Visual Basic for Application. Walaupun terdengar sedikit rumit, pengaplikasiannya ternyata cukup mudah loh. begini caranya, step by step, slowly…
- Buka menu makro pada aplikasi ms. word
2. Buatlah makro baru, beri nama “Statistik”
3. Ketiklah (silahkan copy paste) kode berikut
[pastacode lang=”cpp” manual=”%0ASub%20Statistik()%0ADim%20lngchar%20As%20Long%0ADim%20lngWords%20As%20Long%0ADim%20lngcharspace%20As%20Long%0ADim%20myRange%20As%20Range%0AWith%20Word.Application%0AIf%20.Windows.Count%20%26gt%3B%200%20Then%0ASet%20myRange%20%3D%20ActiveDocument.Content%0Alngchar%20%3D%20myRange.ReadabilityStatistics(2).Value%0Alngcharspace%20%3D%20myRange.ComputeStatistics(wdStatisticCharactersWithSpaces)%0AlngWords%20%3D%20myRange.ReadabilityStatistics(1).Value%0A.Caption%20%3D%20Format(lngchar%2C%20%22%23%23%2C%23%230%22)%20%26amp%3B%20%22%20Karakter%20tanpa%20spasi%2C%20%22%20%26amp%3B%20Format(lngcharspace%2C%20%22%23%23%2C%23%230%22)%20%26amp%3B%20%22%20Karakter%20dengan%20spasi%2C%20%22%20%26amp%3B%20Format(lngWords%2C%20%22%23%23%2C%23%230%22)%20%26amp%3B%20%22%20Kata%20-%20Microsoft%20Word%22%22%22%0AElse%0A.Caption%20%3D%20%22Microsoft%20Word%22%0AEnd%20If%0A.OnTime%20Now%20%2B%20TimeValue(OnTm(lngchar))%2C%20%22Statistik%22%0AEnd%20With%0A%0AEnd%20Sub%0A%0APrivate%20Function%20OnTm(ByVal%20lngWd%20As%20Long)%20As%20String%0A%0ASelect%20Case%20lngWd%201000%0ACase%200%20To%2010%0AOnTm%20%3D%20%2200%3A00%3A01%22%0ACase%2011%20To%2020%0AOnTm%20%3D%20%2200%3A00%3A05%22%0ACase%2021%20To%2030%0AOnTm%20%3D%20%2200%3A00%3A10%22%0ACase%2031%20To%2040%0AOnTm%20%3D%20%2200%3A00%3A15%22%0ACase%20Else%0AOnTm%20%3D%20%2200%3A00%3A20%22%0AEnd%20Select%0A%0AEnd%20Function” message=”” highlight=”” provider=”manual”/]
Setelah selesai mirip-mirip gambar di atas, kotak VBA tersebut boleh ditutup
Perlu diketahui, kenapa cara ini saya sebut hampir realtime karena kode diatas akan dijalankan pada interval tertentu tergantung dari panjang ketikannya. Hal ini dilakukan untuk mencegah jadi lambatnya komputer karena proses penghitungan. Untuk dokumen dengan jumlah kata dibawah 10000, perhitungan dilakukan setiap 1 detik, untuk dokumen dengan jumlah kata 20000, dilakukan setiap 5 detik, dan setiap kenaikan 10000 kata, waktu proses dilambatkan 5 detik dengan batas maksimal penghitungan setiap 20 detik untuk dokumen di atas 40000 kata
Sisanya, tinggal klik “Run”
Enjoy
