MacroWord

Bikin menu baru pada word yuk!

Kali ini kita akan belajar meangaktifkan macroword. Masih tetap pada fungsi terbilang.
Caranya :

1. menjalankan Macro

Tools|Macro|Security|Low

2. Untuk mengaktifkan / membuat Makro

Tools|Macro|Visual Basic Editor (semuanya langsung Alt+F11)

Di Normal (klik + menjadi - ), kemudian Insert|Module

Copy kan, Module terbilang dari Excell, kedalam Module1

Modifikasi beberapa Statement

Excel :

Function TERBILANG(Angka As Double) As String

……

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String

'Inisialisasi

……..

……..

…….

TERBILANG = ""

For i = 1 To 15

TERBILANG = TERBILANG + Hurufke(16 - i)

Next i

End function

Word:

Sub TERBILANG()

…….

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String

D

TAK ADA DI EXCEL

im Angka As Currency

Dim Terbil As String

Angka = Val(Selection.Text)

'Inisialisasi

………

………

T

BEDA DENGAN EXCEL

erbil = ""

For i = 1 To 15

Terbil = Terbil + Hurufke(16 - i)

Next i

TAK ADA DI EXCEL

Selection.Text = Str(Angka) & " ( " & Terbil & " ) "

End Sub

3. Buat MENU baru

Tools|Customize|Command|New Menu (kamu tarik sejajar menu file,edit dll)

Pada posisi yang sama (Tools|Customize|Command), klik kanan pada New Menu, di Name : ganti New Menu dengan Terbilang

Isi Terbilang dengan Macro, (juga pada kondisi Tools|Customize), Caranya sama dengan membuat menu baru tapi taruh dibawah menu baru ya..!

Untuk menjalankan Program :

Tulis angka di WORD, kemudian di blok, dilanjutkan dengan mengklik menu Terbilang, dan pilih Terbilang (Indonesia), maka akan berubah menjadi terbilang dengan angka,

Contoh :

Tulis : 123456789012

Klik Menu : Terbilang|Terbilang (Indonesia)

Hasil : 123456789012 ( seratus dua puluh tiga miliar empat ratus lima puluh enam juta tujuh ratus delapan puluh sembilan ribu dua belas )

Klik Menu : Terbilang|Sayword (English)

Hasil : 123456789012 ( one hundred twenty three billion four hundred fifty six million seven hundred eighty nine thousand twelve )

Silakan di coba ya.....!