Sub CharToCircumflex()
' Paul Beverley - Version 01.02.21
' Adds a circumflex to the next vowel

myChars = "aeouAEOU"
myAccents = ChrW(226) & ChrW(234) & ChrW(244) & ChrW(251) _
     & ChrW(194) & ChrW(202) & ChrW(212) & ChrW(219)

Selection.MoveUntil cset:=myChars, Count:=wdForward
Selection.MoveEnd , 1
charPos = InStr(myChars, Selection)
Selection.TypeText Mid(myAccents, charPos, 1)
End Sub