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, Decima
Comments
Post a Comment