I need some help to develop a macro to work in Word so that every time a character is encountered, it changes it to font EurekaSans-Regular, and when it encounters a number, it changes it to font EurekaSans-RegularCaps.....what I have so far is
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
If Asc(Selection.Text) >= 48 And Asc(Selection.Text) <= 57 Then
Selection.Font.Name = "EurekaSans-RegularCaps"
If Asc(Selection.Text) >= 65 And Asc(Selection.Text) <= 122 Then
Selection.Font.Name = "EurekaSans-Regular"
but I can't make to scan the entire document......