Different Fonts Mash-up for text and numbers

Solution 1:

This can be done with VBa. Depending on the size of your file (how many words you have) it may be slow.

It also assumes that you only use 2 fonts. If you use other fonts, it will overwrite them!!

It's VBa so remember, save it first to create a back up (there is no undo)

Sub updateFont()

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer    
For i = 1 To doc.Range.Characters.Count

     If IsNumeric(doc.Range.Characters(i)) Then
        doc.Range.Characters(i).Font.Name = "Algerian"
        Else
        doc.Range.Characters(i).Font.Name = "Verdana"
     End If
Next i

End Sub

Screenshot before (using an italic font)

and after

How do I add VBA in MS Office?