Convert Number to Words in MS Word
MyNumber = Val(Selection.Text) Dim Temp Dim Rupees, Paise Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = ” Thousand ” Place(3) = ” Lakh ” Place(4) = ” Crore ” MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, “.”) If DecimalPlace > 0 Then Temp = Left(Mid(MyNumber, DecimalPlace + 1) & “00”, …