Macro

Sub ANAHI()

'

' ANAHI Macro

'

'

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y nueve"

        .Replacement.Text = "79"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "setenta y ocho"

        .Replacement.Text = "78"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y siete"

        .Replacement.Text = "77"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y seis"

        .Replacement.Text = "76"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y  cinco"

        .Replacement.Text = "75"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y cuatro"

        .Replacement.Text = "74"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y tres"

        .Replacement.Text = "73"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y dos"

        .Replacement.Text = "72"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta y uno"

        .Replacement.Text = "71"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "Setenta"

        .Replacement.Text = "70"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

End Sub