Sub CharToVariousAccents()
' Paul Beverley - Version 01.02.21
' Adds various accents

myChars = "ncNC"
myAccents = ChrW(241) & ChrW(231) & ChrW(209) & ChrW(199)

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