I have problem with output traditional form of sign above the constant. When I copy/paste in word it is far away up. Is there solution for this?
BB /: MakeBoxes[BB[n_], TraditionalForm] :=
RowBox[{SubscriptBox["\!\(\*
StyleBox[OverscriptBox[
StyleBox[\"A\",\nFontFamily->\"Times New Roman\",\n\
FontWeight->\"Plain\",\nFontSlant->\"Italic\"], \"^\"],\nFontFamily\
->\"Times New Roman\",\nFontWeight->\"Plain\",\nFontSlant->\"Italic\"\
]\)", RowBox[{Sequence @@
Riffle[Table["\!\(\*SubscriptBox[\(c\), \(1\)]\)", {1}], 2]}]]}]
BB[1] // TraditionalForm
BB[2] // TraditionalForm
FromCharacterCode[770]
instead ofFromCharacterCode[94]
(i.e. the ordinary ^) for the overhat. $\endgroup$ – Silvia Feb 1 '13 at 17:24