Konversi Angka Menjadi Tulisan Versi Indonesia ?
Sub Convert()
Dim sDigits As String
Dim sBigStuff As String
sBigStuff = ""
' Select the full number in which the insertion point is located
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
' Store the digits in a variable
sDigits = Trim(Selection.Text)
If Val(sDigits) > 999999 Then
If Val(sDigits) <= 999999999 Then
sBigStuff = Trim(Int(Str(Val(sDigits) / 1000000)))
' Create a field containing the big digits and
' the cardtext format flag
Selection.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:="= " + sBigStuff + " \* CardText", _
PreserveFormatting:=True
' Select the field and copy it
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
sBigStuff = Selection.Text & " million "
sDigits = Right(sDigits, 6)
End If
End If
If Val(sDigits) <= 999999 Then
' Create a field containing the digits and the cardtext format flag
Selection.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:="= " + sDigits + " \* CardText", _
PreserveFormatting:=True
' Select the field and copy it
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
sDigits = sBigStuff & Selection.Text
' Now put the words in the document
Selection.TypeText Text:=sDigits
Selection.TypeText Text:=" "
Else
MsgBox "Number too large", vbOKOnly
End If
End Sub
Rekan2 sekalian yang diatas ini adalah konversi angka menjadi bilangan dalam bahasa inggris, yang berfungsi pada MSWord, sesuai dengan yang direkomendasikan oleh majalah CHIP.
Namun ada beberapa kendala ketika saya menggunakannya :
1. ketika saya ketik angka 2000 dan kemudian saya tekan convert maka angka 2000 saya ini hilang ?
2. kode2 tersebut diatas hanya bisa menterjemahkan kedalam bahasa inggris, saya ingin bisa menterjemahkan kedalam bahasa indonesia, karena saya membutuhkannya setiap saat, bagaimana ini ?
