The quickest way to get the sign below is to have it as a macro and get it in three clicks:
The Greek capital letter theta is changed to font size 8, superscripted and raised by three points, all of which takes more than three clicks if you don’t use the macro.
Sub EStd()
'type E
Selection.TypeText Text:="E"
' change to superscript and make smaller
Selection.Font.Superscript = wdToggle
With Selection.Font
.Name = "Arial"
.Size = 8
.Position = 3
End With
Selection.InsertSymbol Font:="Arial", CharacterNumber:=1012, Unicode:=True
' change back from superscript and add a space
Selection.Font.Superscript = wdToggle
With Selection.Font
.Name = "Arial"
.Size = 11
.Position = 0
End With
Selection.TypeText Text:=" "
End Sub
Chemistry Word VBA macros 