How do I set font for text but keep font in equations in Word with VBA?

Question

I want to set the font of all texts to Times New Roman, and I wrote these codes:

Selection.WholeStory
With Selection.Font
    .NameAscii = "Times New Rom