怎样修改上下标的字符大小

Question

我用VB调用word生成文件，用域生成了公式，比如生成t的平方，但生成的指数2和t的字符一样大，如图所示：，请大家帮帮忙，怎样出来才能使指数2的字符变小一些，谢谢。
我生成的代码如下：
……
  Set myField = WordApp.Selection.Fields.Add(Range:=WordApp.Selection.Range, Type:=wdFieldEmpty, Text:="EQ \s\up0(t)\s\up5(2) ", PreserveFormatting:=False)
……
恳请大家帮帮忙，万分感激！

Answer 1

Selection.Font.Superscript = True'上标
Selection.Font.Subscript = True'下标
没试,不知实际效果,仅供参考

Answer 2

楼上的朋友，你好，谢谢你的回复，你说的这个方法我试过，对于简单的可以，但是对于有分数的情况或者有根号的情况就不行啦，不知道这个该怎么解决！，比如
Set myField = WordApp.Selection.Fields.Add(Range:=WordApp.Selection.Range, Type:=wdFieldEmpty, Text:="EQ \f(t\s\do3(1)\s\up4(2),t\s\do3(1)\s\up4(2) +  t\s\do3(2)\s\up4(2))", PreserveFormatting:=False)
出来的效果是
Set myField = WordApp.Selection.Fields.Add(Range:=WordApp.Selection.Range, Type:=wdFieldEmpty, Text:="EQ \f(t\s\up4(2),2t)", PreserveFormatting:=False)
出来的效果是