[Klaus Linke]

You could experiment with the different emphasis marks using the macro
below.

Regards,
Klaus

Sub ToggleEmphasisMarks()

' Puts emphasis mark(s) on selected letter(s), or removes them

Const c_Emphasis As Long = wdEmphasisMarkUnderSolidCircle
' other wdEmphasisMark constants to try:
' Const c_Emphasis As Long = wdEmphasisMarkOverComma
' Const c_Emphasis As Long = wdEmphasisMarkOverSolidCircle
' Const c_Emphasis As Long = wdEmphasisMarkOverWhiteCircle

If Selection.Font.EmphasisMark = c_Emphasis Then
Selection.Font.EmphasisMark = wdEmphasisMarkNone
Else
Selection.Font.EmphasisMark = c_Emphasis
End If

End Sub