Sub En2Fa()

Dim Ch, Ch2, MyRange, MyNumber As String

    Dim Dot As Integer

    Dim IsItNumber As Boolean

    Dim EmptyRange As Range

    IsItNumber = True

    Dot = 0

    With Selection.Find

        Do

            .ClearFormatting

            .Execute FindText:="^#", Forward:=True, Wrap:=wdFindAsk

        Loop While (Selection.LanguageID = 1065 And Selection.Find.Found = True)

    End With

    Selection.MoveEnd Unit:=wdCharacter, Count:=-1

    Do

        If Ch = "." Then

            Dot = Dot + 1

            Selection.MoveEnd Unit:=wdCharacter, Count:=1

            Ch2 = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)

                If (Ch2 = "1" Or Ch2 = "2" Or Ch2 = "3" Or Ch2 = "4" Or Ch2 = "5" Or Ch2 = "6" Or Ch2 = "7" Or Ch2 = "8" Or Ch2 = "9" Or Ch2 = "0") Then

                    IsItNumber = True

                Else

                    IsItNumber = False

                    Selection.MoveEnd Unit:=wdCharacter, Count:=-2

                End If

        End If

        Selection.MoveEnd Unit:=wdCharacter, Count:=1

        Ch = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)

    Loop While (IsItNumber = "false" Or Ch = "1" Or Ch = "2" Or Ch = "3" Or Ch = "4" Or Ch = "5" Or Ch = "6" Or Ch = "7" Or Ch = "8" Or Ch = "9" Or Ch = "0" Or Ch = "." Or Ch = ",")

    MyRange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)

    MyNumber = MyRange

    Selection.Delete

    Application.Keyboard (1065)

    Selection.LanguageID = 1065

    Set EmptyRange = Selection.Range

    EmptyRange.Start = Selection.Start

    Selection.TypeText Text:="ا"

    EmptyRange.End = Selection.End

    If (Dot > 0) Then

        Spl = Split(MyRange, ".")

        If (Dot = 1) Then

            Selection.TypeText Text:=Spl(1) & "/" & Spl(0)

        Else

            For i = 0 To (Dot - 1)

                Selection.TypeText Text:=Spl(i) & "-"

            Next

            Selection.TypeText Text:=Spl(Dot)

        End If

    Else

        Selection.TypeText Text:=MyNumber

    End If

EmptyRange.Text = ""

Application.Keyboard (1033)

Selection.LanguageID = 1033

End Sub

Sub Fa2En()

Dim Ch, Ch2, MyRange, MyNumber As String

    Dim Dot As Integer

    Dim IsItNumber As Boolean

    Dim EmptyRange As Range

    IsItNumber = True

    Dot = 0

    With Selection.Find

        Do

            .ClearFormatting

            .Execute FindText:="^#", Forward:=True, Wrap:=wdFindAsk

        Loop While (Selection.LanguageID = 1033 And Selection.Find.Found = True)

    End With

    Selection.MoveEnd Unit:=wdCharacter, Count:=-1

    Do

        If Ch = "/" Then

            Dot = Dot + 1

            Selection.MoveEnd Unit:=wdCharacter, Count:=1

            Ch2 = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)

                If (Ch2 = "1" Or Ch2 = "2" Or Ch2 = "3" Or Ch2 = "4" Or Ch2 = "5" Or Ch2 = "6" Or Ch2 = "7" Or Ch2 = "8" Or Ch2 = "9" Or Ch2 = "0") Then

                    IsItNumber = True

                Else

                    IsItNumber = False

                    Selection.MoveEnd Unit:=wdCharacter, Count:=-2

                End If

        End If

        Selection.MoveEnd Unit:=wdCharacter, Count:=1

        Ch = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)

    Loop While (IsItNumber = "false" Or Ch = "1" Or Ch = "2" Or Ch = "3" Or Ch = "4" Or Ch = "5" Or Ch = "6" Or Ch = "7" Or Ch = "8" Or Ch = "9" Or Ch = "0" Or Ch = "/")

    MyRange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)

    MyNumber = MyRange

    Selection.Delete

    Application.Keyboard (1033)

    Selection.LanguageID = 1033

    Set EmptyRange = Selection.Range

    EmptyRange.Start = Selection.Start

    Selection.TypeText Text:="?"

    EmptyRange.End = Selection.End

    If (Dot > 0) Then

        Spl = Split(MyRange, "/")

        If (Dot = 1) Then

            Selection.TypeText Text:=Spl(1) & "." & Spl(0)

        Else

            For i = 0 To (Dot - 1)

                Selection.TypeText Text:=Spl(i) & "-"

            Next

            Selection.TypeText Text:=Spl(Dot)

        End If

    Else

        Selection.TypeText Text:=MyNumber

    End If

EmptyRange.Text = ""

Application.Keyboard (1065)

Selection.LanguageID = 1065

End Sub