Originally Posted by
fumei
I am not following this at all. You ask how to add the accent, now you are asking how to delete it?
What are you doing???????
Sorry if I confused you. I just wanted to get solution that first set accent and then delete it (for selection text). I solved this problem:
Sub accent2()
Dim rAcc As Range
Dim rTmp As Range
Set rTmp = Selection.Range
If Selection.Type = wdSelectionIP Then
MsgBox prompt:="Selection not found", Title:="Check"
ElseIf Len(rTmp) = 2 Then
For Each rAcc In rTmp.Characters
If AscW(Right(rAcc, 1)) = 769 Then
rAcc = Left(rAcc, 1)
End If
Next rAcc
Else
Selection.Collapse direction:=wdCollapseEnd
Selection.InsertSymbol characternumber:=769, unicode:=True
End If
End Sub
Thank you very much.