When you make an equation using Insert>Equation you can’t use superscripts to get the powers. If you try to make the powers in a smaller font it just makes the whole expression into the smaller font. My colleague Lara Dune asked me how I produce such beautiful script as:
I used to place the expression over two lines with a line drawn in. Then I found that I could dispense with the line by underlining the top line of the expression, but this went awry when underlining the powers. Inserting a maths equation looks a lot better because it straddles the line as above, but the powers are then a problem. So I use the macro below which inserts the dummy expression above with the powers raised by 3 points and in font 8, while the remainder of the equation is in font 11. Change the characters to the ones you want then run the macro here over it to convert it to Arial.
If you are producing equilibrium resources and want an expression like this:
the minus sign has to be raised by 1.3 points.
Sub MathsEquationSuperscript() Selection.OMaths.Add Range:=Selection.Range Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionFrac). _ Frac.Type = wdOMathFracBar Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdMove Selection.Font.Name = "Arial" Selection.TypeText Text:="[P]zxz2" Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove Selection.Font.Name = "Arial" Selection.TypeText Text:="[Q]zxz3" Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove For Each equation In ActiveDocument.OMaths equation.Range.Font.Name = "Arial" Next equation For Each equation In ActiveDocument.OMaths equation.Range.Font.Italic = False Next equation Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Size = 8 .Superscript = False .Subscript = False .Position = 3 End With With Selection.Find .Text = "(zxz)()" .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub