La macro génère le texte suivant : N²_p

avec le N en italique, le 2 en exposant(superscript), et le p en indice (subscript).

 

Sub n2p()
  Selection.Font.Italic = True
  Selection.TypeText Text:="N"
  Selection.Font.Superscript = True
  Selection.TypeText Text:="2"
  Selection.Font.Superscript = False
  Selection.Font.Subscript = True
  Selection.TypeText Text:="p"
  Selection.Font.Subscript = False
  Selection.Font.Italic = False   ' Pour que ce ne soit plus en italique juste après.
End Sub