Hi Dennis,

You could use an EQUATION field (or an empty field) instead of the Equation
Editor, and simply input the text in whatever format you require.

For example (based on a solution I provided for another thread recently):

Sub Overline()
Dim sChar As String
Dim i As Integer
sChar = InputBox("Enter characters to overline", "Overline")
With Selection
   For i = 1 To Len(sChar)
       .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
       PreserveFormatting:=False
       .Delete Unit:=wdCharacter, Count:=1
       With .Font
           .Name = "Arial"
           .Size = 22
           .Bold = True
       End With
       .TypeText Text:="EQ \s\up6(\f(," + Mid(sChar, i, 1) + "))"
       .Fields.Update
       .MoveRight Unit:=wdCharacter, Count:=1
   Next
End With
End Sub

Cheers