Macro Kata Ulang

Dalam penulisan bahasa Indonesia dan Melayu, seringkali kita menggunakan kata ulang. Sebagai contoh kata masing-masing, tamu-tamu, jalan-jalan dan lain sebagainya. Untuk mempercepat pengetikan maka kita dapat menggunakan macro dengan listing di bawah ini Untuk membuatnya maka copykan macro ini ke menu Tools - Macro sehingga muncul dialog box seperti di bawah ini. Kemudian ketik kata “ulang” pada Macro Name: dan tekan tombol perintah Create

Selanjutnya akan muncul window baru sebagai berikut:

Copykan perintah dibawah ini kedalam window sehingga menjadi sebagai berikut::

Klik toolbar atau menu File – Save Normal, dan tutup windows tersebut.

Agar macro tersebut dapat di akses dengan menekan tombol ALT –U, maka langkah selanjutnya adalah sebagai berikut::

1. menu Tools – Customize sehingga muncul dialog seperti di bawah ini, kemudian geser Catagories sampai ketemu dengan Macros dan click pada kata tersebut untuk memastikan bahwa macro telah dimasukkan yaitu pada Commands: Normal.NewMacros.Ulang
2. Tekanlah tombol perintah Keyboard pada Customize dialog sehingga muncul sebagai berikut
3. 
4. Selanjutnya pada click pada Press new shortcut key , dan tekanlah Alt-U, kemudian Clik tombol perintah Assign, selanjutnya Close Customize Keyboard dialong dan Close Customize dialog.

Sekarang anda dapat mencoba menuliskan kata-kata ulang dengan mengetikkan hanya sekali dan Alt-U

Listing Macro Ulang

Sub Ulang()

'

' Ulang Macro

' Makro ini digunakan untuk membuat kata ulang yang banyak

' digunakan dalam pengetikan kata di bahasa indonesia dan melayu

' Sebagai contoh kata Masing-masing, jalan-jalan dll.

' Untuk mengetikan kata-kata tsb kita cukup menuliskan satu kata

' kemudian menekan dan tahan tombol Alt - dan tekan tombol U pada Keyboard

' Macro recorded 3/8/2007 by Aurino R A Djamaris

' mailto: aurinodjamaris@gmail.com

'

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="-"

Selection.PasteAndFormat (wdPasteDefault)

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.TypeBackspace

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Range.Case = wdLowerCase

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.TypeText Text:=" "

End Sub