எம்எஸ்வேர்டில் ஒரு தொகையினை வார்த்தையாக மாற்றும் முறை (Convert number into words)

 1. Alt+F11 அல்லது 

        -- Click Office Button

        -- Choose Word Option 

        -- Click Developer Tab

        --Click Visual Basic

        -- Right click Project (document 1)

        -- Click Insert

        -- Click Module

            Copy and paste the below code in code window of the Module1.

2. step 2

Sub ConvertCurrencyToEnglish()

        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 "

          ' Convert MyNumber to a string, trimming extra spaces.

         MyNumber = Trim(Str(MyNumber))

          ' Find decimal place.

         DecimalPlace = InStr(MyNumber, ".")

          ' If we find decimal place...

         If DecimalPlace > 0 Then

            ' Convert Paise

            Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)

            ' Hi! Note the above line Mid function it gives right portion

            ' after the decimal point

            'if only . and no numbers such as 789. accures, mid returns nothing

            ' to avoid error we added 00

            ' Left function gives only left portion of the string with specified places here 2

             Paise = ConvertTens(Temp)

             ' Strip off paise from remainder to convert.

            MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

         End If

          Count = 1

        If MyNumber <> "" Then

             ' Convert last 3 digits of MyNumber to Indian Rupees.

            Temp = ConvertHundreds(Right(MyNumber, 3), Paise, MyNumber)

             If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees

             If Len(MyNumber) > 3 Then

               ' Remove last 3 converted digits from MyNumber.

               MyNumber = Left(MyNumber, Len(MyNumber) - 3)

            Else

               MyNumber = ""

            End If

         End If

             ' convert last two digits to of mynumber

            Count = 2

             Do While MyNumber <> ""

            Temp = ConvertTens(Right("0" & MyNumber, 2))

             If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees

            If Len(MyNumber) > 2 Then

               ' Remove last 2 converted digits from MyNumber.

               MyNumber = Left(MyNumber, Len(MyNumber) - 2)

             Else

               MyNumber = ""

            End If

            Count = Count + 1

             Loop

          ' Clean up rupees.

         Select Case Rupees

            Case ""

               Rupees = ""

            Case "One"

               Rupees = "Rupee One"

            Case Else

               Rupees = "Rupees " & Rupees

         End Select

          ' Clean up paise.

         Select Case Paise

            Case ""

               Paise = ""

            Case "One"

               Paise = "One Paise"

            Case Else

               Paise = Paise & " Paise"

         End Select

          If Rupees = "" Then

         Result = Paise & " Only"

         ElseIf Paise = "" Then

         Result = Rupees & " Only"

         Else

         Result = Rupees & " and " & Paise & " Only"

         End If

         Selection.Text = Result

     End Sub

 Private Function ConvertDigit(ByVal MyDigit)

        Select Case Val(MyDigit)

            Case 1: ConvertDigit = "One"

            Case 2: ConvertDigit = "Two"

            Case 3: ConvertDigit = "Three"

            Case 4: ConvertDigit = "Four"

            Case 5: ConvertDigit = "Five"

            Case 6: ConvertDigit = "Six"

            Case 7: ConvertDigit = "Seven"

            Case 8: ConvertDigit = "Eight"

            Case 9: ConvertDigit = "Nine"

            Case Else: ConvertDigit = ""

         End Select

 End Function

Private Function ConvertHundreds(ByVal MyNumber, ByVal Paise, ByVal OriginalNumber)

    Dim Result As String

       Result10or1 = ""

    Result100 = ""

             ' Exit if there is nothing to convert.

         If Val(MyNumber) = 0 Then Exit Function

          ' Append leading zeros to number.

         MyNumber = Right("000" & MyNumber, 3)

          ' Do we have a hundreds place digit to convert?

         If Left(MyNumber, 1) <> "0" Then

            Result100 = ConvertDigit(Left(MyNumber, 1)) & " Hundred "

         End If

          ' Do we have a tens place digit to convert?

         If Mid(MyNumber, 2, 1) <> "0" Then

            Result10or1 = ConvertTens(Mid(MyNumber, 2))

         Else

            ' If not, then convert the ones place digit.

            Result10or1 = ConvertDigit(Mid(MyNumber, 3))

         End If

           ' if 1st & 10th places are zero, place 'and' before hundreds

         ' else place before 10th place

             'if paise not exists add 100

       If (Paise <> "") Then

         Result = Result100 + Result10or1

       Else

            If (Result100 <> "") Then

                If (Result10or1 <> "") Then

                    Result = Result100 + "and " + Result10or1

                Else

                    If (Len(OriginalNumber) > 3) Then

                        Result = "and " + Result100

                    Else

                        Result = Result100

                    End If

               End If

        

            Else

                If (Result10or1 <> "") Then

                    If (Len(OriginalNumber) > 2) Then

                        Result = "and " + Result10or1

                    Else

                        Result = Result10or1

                    End If

               End If

                    

            End If

            

    End If

                 

        

         

 

         ConvertHundreds = Trim(Result)

End Function

 

 

Private Function ConvertTens(ByVal MyTens)

          Dim Result As String

 

         ' Is value between 10 and 19?

         If Val(Left(MyTens, 1)) = 1 Then

            Select Case Val(MyTens)

               Case 10: Result = "Ten"

               Case 11: Result = "Eleven"

               Case 12: Result = "Twelve"

               Case 13: Result = "Thirteen"

               Case 14: Result = "Fourteen"

               Case 15: Result = "Fifteen"

               Case 16: Result = "Sixteen"

               Case 17: Result = "Seventeen"

               Case 18: Result = "Eighteen"

               Case 19: Result = "Nineteen"

               Case Else

            End Select

         Else

            ' .. otherwise it's between 20 and 99.

            Select Case Val(Left(MyTens, 1))

               Case 2: Result = "Twenty "

               Case 3: Result = "Thirty "

               Case 4: Result = "Forty "

               Case 5: Result = "Fifty "

               Case 6: Result = "Sixty "

               Case 7: Result = "Seventy "

               Case 8: Result = "Eighty "

               Case 9: Result = "Ninety "

               Case Else

            End Select

 

            ' Convert ones place digit.

            Result = Result & ConvertDigit(Right(MyTens, 1))

         End If

 

         ConvertTens = Trim(Result)

End Function

3. Click Office Button

2. Click Word Option or Option Button

3. Click Customise

4. Choose Commands From என்ற தலைப்பின் கீழ் உள்ள Macros-னை தேர்வு செய்ய வேண்டும்

5. Normal.NewMacros.ConvertCurrencyToEnglish என்ற விருப்பத்தை தேர்ந்தெடுத்து Add>>

        என்கிற பட்டனை கிளிக் செய்யவேண்டும்.

   (தற்போது வேர்டு திரையில் Quick Access Tool Bar-ல் Macro குறியீடு சேர்ந்திருப்பதைக்   காணலாம்,