Shortcut Kata Berulang di Microsoft Word

Ingin tahu cara membuat Shortcut Kata ulang atau berulang di Microsoft Word? Sebelum kita mulai ada baiknya dipahami dulu contoh kata ulang atau berulang, dan batasan yang bisa dilakukan dalam artikel ini. Diakhir Artikel ada link file word yang sudah dibuatkan macro untuk perulangan dan silahkan download.

Ini contoh kata ulang atau berulang :

jalan-jalan

pagi-pagi

rumah-rumah 

Batasan shortcut kata ulang atau berulang di artikel ini :

1. Hanya bisa dilakukan pada kata ulang atau berulang yang sama, tidak bisa dilakukan pada kata berulang yang mengalami perubahan bentuk, atau pengurangan karakter, seperti :

sayur-mayur

perundangan-undangan

setinggi-tingginya

2. Diuji Pada Microsoft Word 2013, seharusnya juga bisa dipakai pada Microsoft Word 2010 keatas, diakhir artikel juga bisa dicoba pada Microsoft Word 2000

Bagi pengguna Aplikasi pengolahan text seperti Microsoft Word, tentu sudah menjadi hal biasa melaksanakan pengetikan dengan menggunakan tombol-tombol alphanumerik yang ada, ada yang mampu mengetik dengan menggunakan sepuluh jari namun ada juga yang hanya menggunakan “sebelas jari” (dua telunjuk) ..
Mengetik mempunyai keasyikan tersendiri, beberapa kata dapat diringkas dengan menggunakan fasilitas auto correct. Namun dalam trik kali ini penulis akan menerangkan bagaimana membuat perulangan kata yang tidak bisa di lakukan dengan auto correct, dengan hanya menekan kombinasi tombol shortcut tersendiri adalah dengan mudah dapat melakukannya. Caranya sebagai berikut :
1. Aktifkan Microsoft Word

2. Klik Menu View, Klik Macro, Klik Record Macro (Lihat Gambar)

3. Pada Macro Name ketik KATABERULANG, Klik Keyboard

4. Ini Langkah Membuat Shorcut, Letakkan Kursor pada Input Press new shortcut key, Tekan pada keyboard tombol Ctrl tahan lanjut dengan tanda kurang/minus (Ctrl+-) , Klik Tombol Assign, Lalu Klik Close

5. Stop Macro, caranya Klik Menu View, Klik Macros, Klik Stop Recording

6. Proses Coding KATABERULANG, Tekan pada keyboard tombol Alt tahan lanjut F8 (Alt + F8), muncul daftar macro, Klik KATABERULANG, Klik Edit

7. Muncul Layar VBA, Masukan Kode Berikut :

Sub KATABERULANG()
' Macro recorded By Tekno-g.blogspot.com
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="-"
    Selection.Paste
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.TypeText Text:=" "
End Sub

8. Setelah selesai, Klik Save untuk menyimpan, atau Ctrl + s

9. Cara Menjalankanya, Sekarang pindah ke Layar Utama Microsoft Word, lakukan coba mengetik kata "jalan" (tanpa tanda petik), setelah selesai jangan tekan tombol apapun, lanjut dengan tekan tombol ctrl+- (tombol kontrol dan tanda kurang) lihat hasilnya.

Untuk Microsoft Word 2000 bisa memakai langkah-langkah sebagai berikut :

1.    Aktifkan Microsoft Word
2.    Klik Tools, Record New Macro …
3.    Dalam Macro Name ketik PERULANGAN, kemudian pada Assign Macro to Klik Keyboard, pada Press New Shortcut Key tekan Kombinasi tombol shortcut yang anda inginkan, misalnya disini saya memilih Ctrl - (tekan Ctrl diikuti tanda kurang diatas angka P), Klik Assign, Klik Close.
4.    Di lembar kerja akan muncul satu tool bar macro recorder, Klik Stop.
5.    Tekan Alt dan F11 (Tools, Macro, Visual Basic Editor)
6.    Dalam jendela VBA, cari blok program SUB KATABERULANG( )

Sub KATABERULANG()
' Macro recorded 09/09/04 by Ibnu_78
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="-"
    Selection.Paste
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.TypeText Text:=" "
End Sub

Download File Shortcut Kata ulang atau berulang di Microsoft Word

7.    Perhatikan Blok Program di atas, lima baris pertama tidak perlu anda ketik lagi, karena itu sudah disediakan oleh VBA, anda hanya perlu mengetik mulai dari selection.moveLeft …
8.    Tutup Jendela VBA
Sekarang setiap kali anda mengetik kata yang berulang setelah kata tersebut anda hanya perlu menekan Ctrl dan – maka kata itu akan terbentuk, contoh : Ketik Perusahaan, tekan spasi, tekan Ctrl –
Selamat Mencoba.