Thursday, March 15, 2007

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. 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

No comments:

Sign Up to my searchfunds and make Cash While You search

Thursday, March 15, 2007

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. 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

Related Posts



0 comments:

Need to find someting

Search the Web:

Sign up for PayPal and start accepting credit card payments instantly.