Is there any automatic way to use specific font specifically for math?

Question

I am trying to mimic the look of Wolfram|Alpha, which uses the Bitstream fonts Charter (for math and some text) and Vera Sans (for most text and things like units after numbers). Is there any automatic way to achieve this in a formatted notebook (where I am using inline math) without manual changing the font of each portion? For a better idea, take the following screenshot:

Fullform due to request:

 \!\(TraditionalForm\`\(\*SqrtBox[\(200\)]\[LineSeparator]\n 200 = 2\\ 2\\ 2\\ 5\\ 5, \\ or\\ \*SuperscriptBox[\(2\), \(2\)]\\ \*SuperscriptBox[\(5\), \(2\)]\\ 2\\ \((when\\ separated\\ into\\ squares)\), \\ so\\ \*SqrtBox[\(200\)] = \(\((2\\ 5)\)\\ \*SqrtBox[\(2\)] = 10\\ \(\*SqrtBox[\(2\)]\(.\)\)\)\)\)

Is there a way to automatically render the text in Vera while keepin the math in Charter without having to manually format each piece?

Answer 1

If I understand the question you have a Text Cell with inline Cells containing math expressions. The styling can be controlled with style sheets applied to the styles Text and InlineCell. For example:

Produced by:

Which has the Cell code:

Cell[StyleData["InlineCell"],
 MenuSortingValue->10000,
 FontFamily->"Comic Sans MS",
 FontSize->17,
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"StrikeThrough"->False,
 "Underline"->False},
 FontColor->RGBColor[1, 0, 1]]

Cell[StyleData["Text"],
 FontFamily->"Times New Roman",
 FontSize->16,
 FontWeight->"Plain",
 FontSlant->"Plain",
 FontVariations->{"StrikeThrough"->False,
 "Underline"->False},
 FontColor->RGBColor[0.6, 0.4, 0.2]]