Creating Multiple Technical Sanction Orders in Few seconds

 

Multiple Technical Sanction Orders in a single click

Giving Technical Sanctions to various Works is day to day Job for Division, Circle and Region level offices.

Here 1 thing is to be noted that, the works usually comes in lists (Budget, Supplementary Budget etc.)

so we usually have a ready list.

Works lists are already categorized and accordingly if we have almost same scope then, it is quite easy to generate TS orders using

1) Mail merge function in word

2) Excel with Marathi Number to Word for all list

       This is achieved using VBA macro, copy paste following code in developer tab, then user defined function CnvToMarathi will appear in Formula bar.

Function CnvToMarathi(ByVal MyNumber)

   Dim temp

   Dim Rupees, Cents

   Dim DecimalPlace, Count

   ReDim Place(9) As String

   Place(1) = " " & ChrW$(&H939) & ChrW$(&H91C) & ChrW$(&H93E) & ChrW$(&H930) & " "

   Place(2) = " " & ChrW$(&H932) & ChrW$(&H93E) & ChrW$(&H916) & " "

   Place(3) = " " & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H91F) & ChrW$(&H940) & " "

   Place(4) = " " & ChrW$(&H905) & ChrW$(&H92C) & ChrW$(&H94D) & ChrW$(&H91C) & " "

   Place(5) = " " & ChrW$(&H916) & ChrW$(&H930) & ChrW$(&H92C) & ""

   ' 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 cents

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

      Cents = ConvertDigit(temp)

      ' Strip off cents from remainder to convert.

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

   End If

    temp = ConvertHundreds(Right(MyNumber, 3))

      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

   Count = 1

   Do While MyNumber <> ""

      ' Convert last 3 digits of MyNumber to English Rupees.

      temp = ConvertHundreds(Right(MyNumber, 2))

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

      If Len(MyNumber) > 2 Then

         ' Remove last 3 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 = " " & ChrW$(&H92B) & ChrW$(&H915) & ChrW$(&H94D) & ChrW$(&H924)          'code for Rupees

      Case "One"

         Rupees = ChrW$(&H627) & ChrW$(&H6CC) & ChrW$(&H6A9) 'code for 1 (Aik)

      Case Else

         Rupees = Rupees & " " & ChrW$(&H92B) & ChrW$(&H915) & ChrW$(&H94D) & ChrW$(&H924)      'code for Rupees

   End Select

   ' Clean up cents.

   Select Case Cents

      Case ""

         Cents = ""

      Case "One"

         Cents = ChrW$(&H627) & ChrW$(&H6CC) & ChrW$(&H6A9) 'code for 1 (Aik)

      Case Else

         Cents = " " & ChrW$(&H906) & ChrW$(&H923) & ChrW$(&H93F) & " " & Cents & " " & ChrW$(&H92A) & ChrW$(&H948) & ChrW$(&H938) & ChrW$(&H947)       'code for  aur and paisa

   End Select

   CnvToMarathi = ChrW$(&H930) & ChrW$(&H941) & ChrW$(&H92A) & ChrW$(&H92F) & ChrW$(&H947) & " " & Rupees & Cents      'code for Sirf

End Function

Private Function ConvertHundreds(ByVal MyNumber)

   Dim Result As String

   ' 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

    Result = ConvertDigit(Left(MyNumber, 1)) & " " & ChrW$(&H936) & ChrW$(&H947) & " "

    

   End If

   ' Do we have a tens place digit to convert?

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

   '   Result = Result & ConvertDigit(Mid(MyNumber, 2))

   'Else

      ' If not, then convert the ones place digit.

      Result = Result & ConvertDigit(Mid(MyNumber, 2, 2))

   '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 = ChrW$(&H62F) & ChrW$(&H633)

         Case 11: Result = ChrW$(&H6AF) & ChrW$(&H6CC) & ChrW$(&H627) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 12: Result = ChrW$(&H628) & ChrW$(&H627) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 13: Result = ChrW$(&H62A) & ChrW$(&H6CC) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 14: Result = ChrW$(&H686) & ChrW$(&H648) & ChrW$(&H62F) & ChrW$(&H6C1)

         Case 15: Result = ChrW$(&H67E) & ChrW$(&H646) & ChrW$(&H62F) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 16: Result = ChrW$(&H633) & ChrW$(&H648) & ChrW$(&H644) & ChrW$(&H6C1)

         Case 17: Result = ChrW$(&H633) & ChrW$(&H62A) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 18: Result = ChrW$(&H627) & ChrW$(&H679) & ChrW$(&H6BE) & ChrW$(&H627) & ChrW$(&H631) & ChrW$(&H6C1)

         Case 19: Result = ChrW$(&H627) & ChrW$(&H64F) & ChrW$(&H646) & ChrW$(&H6CC) & ChrW$(&H633)

         Case Else

      End Select

   Else

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

      Select Case Val(Left(MyTens, 1))

         Case 2: Result = ChrW$(&H628) & ChrW$(&H6CC) & ChrW$(&H633)

         Case 3: Result = ChrW$(&H62A) & ChrW$(&H6CC) & ChrW$(&H633)

         Case 4: Result = ChrW$(&H686) & ChrW$(&H627) & ChrW$(&H644) & ChrW$(&H6CC) & ChrW$(&H633)

         Case 5: Result = ChrW$(&H67E) & ChrW$(&H686) & ChrW$(&H627) & ChrW$(&H633)

         Case 6: Result = ChrW$(&H633) & ChrW$(&H627) & ChrW$(&H679) & ChrW$(&H6BE)

         Case 7: Result = ChrW$(&H633) & ChrW$(&H62A) & ChrW$(&H651) & ChrW$(&H631)

         Case 8: Result = ChrW$(&H627) & ChrW$(&H633) & ChrW$(&H651) & ChrW$(&H6CC)

         Case 9: Result = ChrW$(&H646) & ChrW$(&H648) & ChrW$(&H651) & ChrW$(&H6D2)

         Case Else

      End Select

      ' Convert ones place digit.

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

   End If

   ConvertTens = Result

End Function

Private Function ConvertDigit(ByVal MyDigit)

   Select Case Val(MyDigit)

Case 1: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915)

Case 2: ConvertDigit = ChrW$(&H926) & ChrW$(&H94B) & ChrW$(&H928)

Case 3: ConvertDigit = ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H928)

Case 4: ConvertDigit = ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H930)

Case 5: ConvertDigit = ChrW$(&H92A) & ChrW$(&H93E) & ChrW$(&H902) & ChrW$(&H91A)

Case 6: ConvertDigit = ChrW$(&H938) & ChrW$(&H939) & ChrW$(&H93E)

Case 7: ConvertDigit = ChrW$(&H938) & ChrW$(&H93E) & ChrW$(&H924)

Case 8: ConvertDigit = ChrW$(&H906) & ChrW$(&H920)

Case 9: ConvertDigit = ChrW$(&H928) & ChrW$(&H90A)

Case 10: ConvertDigit = ChrW$(&H926) & ChrW$(&H939) & ChrW$(&H93E)

Case 11: ConvertDigit = ChrW$(&H905) & ChrW$(&H915) & ChrW$(&H930) & ChrW$(&H93E)

Case 12: ConvertDigit = ChrW$(&H92C) & ChrW$(&H93E) & ChrW$(&H930) & ChrW$(&H93E)

Case 13: ConvertDigit = ChrW$(&H924) & ChrW$(&H947) & ChrW$(&H930) & ChrW$(&H93E)

Case 14: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H927) & ChrW$(&H93E)

Case 15: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H927) & ChrW$(&H930) & ChrW$(&H93E)

Case 16: ConvertDigit = ChrW$(&H938) & ChrW$(&H94B) & ChrW$(&H933) & ChrW$(&H93E)

Case 17: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H930) & ChrW$(&H93E)

Case 18: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H930) & ChrW$(&H93E)

Case 19: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H940) & ChrW$(&H938)

Case 20: ConvertDigit = ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 21: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 22: ConvertDigit = ChrW$(&H92C) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 23: ConvertDigit = ChrW$(&H924) & ChrW$(&H947) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 24: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 25: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 26: ConvertDigit = ChrW$(&H938) & ChrW$(&H935) & ChrW$(&H94D) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 27: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 28: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H940) & ChrW$(&H938)

Case 29: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 30: ConvertDigit = ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 31: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 32: ConvertDigit = ChrW$(&H92C) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 33: ConvertDigit = ChrW$(&H924) & ChrW$(&H947) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 34: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 35: ConvertDigit = ChrW$(&H92A) & ChrW$(&H938) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 36: ConvertDigit = ChrW$(&H91B) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 37: ConvertDigit = ChrW$(&H938) & ChrW$(&H926) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 38: ConvertDigit = ChrW$(&H905) & ChrW$(&H921) & ChrW$(&H924) & ChrW$(&H940) & ChrW$(&H938)

Case 39: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H947) & ChrW$(&H923) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 40: ConvertDigit = ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 41: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 42: ConvertDigit = ChrW$(&H92C) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 43: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 44: ConvertDigit = ChrW$(&H91A) & ChrW$(&H935) & ChrW$(&H94D) & ChrW$(&H935) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 45: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 46: ConvertDigit = ChrW$(&H938) & ChrW$(&H947) & ChrW$(&H939) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 47: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 48: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H947) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H933) & ChrW$(&H940) & ChrW$(&H938)

Case 49: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H92A) & ChrW$(&H928) & ChrW$(&H93E) & ChrW$(&H928) & ChrW$(&H93E) & ChrW$(&H938)

Case 50: ConvertDigit = ChrW$(&H92A) & ChrW$(&H928) & ChrW$(&H94D) & ChrW$(&H928) & ChrW$(&H93E) & ChrW$(&H938)

Case 51: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H928) & ChrW$(&H94D) & ChrW$(&H928)

Case 52: ConvertDigit = ChrW$(&H92C) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H928) & ChrW$(&H94D) & ChrW$(&H928)

Case 53: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H947) & ChrW$(&H92A) & ChrW$(&H928) & ChrW$(&H94D) & ChrW$(&H928)

Case 54: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H92A) & ChrW$(&H928) & ChrW$(&H94D) & ChrW$(&H928)

Case 55: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H928)

Case 56: ConvertDigit = ChrW$(&H91B) & ChrW$(&H92A) & ChrW$(&H94D) & ChrW$(&H92A) & ChrW$(&H928)

Case 57: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H928)

Case 58: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H93E) & ChrW$(&H935) & ChrW$(&H928)

Case 59: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H928) & ChrW$(&H938) & ChrW$(&H93E) & ChrW$(&H920)

Case 60: ConvertDigit = ChrW$(&H938) & ChrW$(&H93E) & ChrW$(&H920)

Case 61: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 62: ConvertDigit = ChrW$(&H92C) & ChrW$(&H93E) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 63: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H947) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 64: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 65: ConvertDigit = ChrW$(&H92A) & ChrW$(&H93E) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 66: ConvertDigit = ChrW$(&H938) & ChrW$(&H939) & ChrW$(&H93E) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 67: ConvertDigit = ChrW$(&H938) & ChrW$(&H926) & ChrW$(&H941) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 68: ConvertDigit = ChrW$(&H905) & ChrW$(&H921) & ChrW$(&H941) & ChrW$(&H938) & ChrW$(&H937) & ChrW$(&H94D) & ChrW$(&H920)

Case 69: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 70: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 71: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 72: ConvertDigit = ChrW$(&H92C) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 73: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 74: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H931) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 75: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 76: ConvertDigit = ChrW$(&H936) & ChrW$(&H939) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 77: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 78: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H939) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H924) & ChrW$(&H930)

Case 79: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 80: ConvertDigit = ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 81: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 82: ConvertDigit = ChrW$(&H92C) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 83: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 84: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H931) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 85: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 86: ConvertDigit = ChrW$(&H938) & ChrW$(&H939) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 87: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 88: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H910) & ChrW$(&H902) & ChrW$(&H936) & ChrW$(&H940)

Case 89: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94B) & ChrW$(&H923) & ChrW$(&H928) & ChrW$(&H935) & ChrW$(&H94D) & ChrW$(&H935) & ChrW$(&H926)

Case 90: ConvertDigit = ChrW$(&H928) & ChrW$(&H935) & ChrW$(&H94D) & ChrW$(&H935) & ChrW$(&H926)

Case 91: ConvertDigit = ChrW$(&H90F) & ChrW$(&H915) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 92: ConvertDigit = ChrW$(&H92C) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 93: ConvertDigit = ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H930) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 94: ConvertDigit = ChrW$(&H91A) & ChrW$(&H94C) & ChrW$(&H931) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 95: ConvertDigit = ChrW$(&H92A) & ChrW$(&H902) & ChrW$(&H91A) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 96: ConvertDigit = ChrW$(&H936) & ChrW$(&H939) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 97: ConvertDigit = ChrW$(&H938) & ChrW$(&H924) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 98: ConvertDigit = ChrW$(&H905) & ChrW$(&H920) & ChrW$(&H94D) & ChrW$(&H920) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

Case 99: ConvertDigit = ChrW$(&H928) & ChrW$(&H935) & ChrW$(&H94D) & ChrW$(&H92F) & ChrW$(&H93E) & ChrW$(&H923) & ChrW$(&H94D) & ChrW$(&H923) & ChrW$(&H935)

      Case Else: ConvertDigit = ""

   End Select

End Function 

Excel File Link --> Link

Word File Link  --> Link

Note:- Make sure Word data linked with Excel data, otherwise method will not work.