How to Convert Number into Words in MS Word in Shortcut Key | Convert Numbers Into Words in MS Word

বন্ধুরা কেমন আছো সবাই? নিশ্চয খুব ভাল । আমিও আল্লাহর রহমতে ভাল আছি। আজকে দেখাবো কিভাবে এমএস ওয়াডেৃ নাম্বারকে ওয়ার্ড বানাতে হয়। অনেক সময় দেখা যায় অফিসিয়াল অনেক কাজ এম এস ওয়ার্ডে  করা হয়। সাধারণত ডাটা এন্ট্রির কাজ মাইক্রোসফট এক্সেলে করা হয়। সেখানে যাবতীয় ডাটা এন্ট্রির কাজ খুব চমৎকার ভাবে করা হয়ে থাকে। কিন্তু আপনাদের মধ্যে অনেকেই আছেন যারা  মাইক্রোসফট অফিস ওয়ার্ডে  ডাটা িএন্ট্রির কাজ করতে আগ্রহী। এক্সেলে যে কাজ করা যায়, সেই কাজ কেন ওয়ার্ডে  করা যাবে না।  বিস্তারিত জানতে নিচের ভিডিও লিংকে ক্লিক করুন- 

How to Convert Number into Words in MS Word in Shortcut Key

Sub abrar()

'UpdatebyExtendoffice20181010

    Dim xDigit As Double

    Dim xBuff As String

    On Error Resume Next

    Selection.MoveLeft wdWord, 1, wdMove

    Selection.MoveRight wdWord, 1, wdExtend

    xDigit = Val(Trim(Selection.Text))

    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub

    If xDigit > 999999 Then

        If xDigit <= 999999999 Then

            xBuff = Trim(Int(Str(xDigit / 1000000)))

            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True

            Selection.MoveLeft wdWord, 1, wdExtend

            xBuff = Selection.Text & " million "

            xDigit = Right(Str(xDigit), 6)

        End If

    End If

    If xDigit <= 999999 Then

        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True

        Selection.MoveLeft wdWord, 1, wdExtend

        xDigit = xBuff & Selection.Text

        Selection.TypeText xDigit + " "

    Else

        MsgBox "Number too large", vbOKOnly, "Kutool for Word"

    End If

End Sub