How insert emphasis for selection character

Hi. How can insert acute accent for selection of character into word?
For example, I inserting acute accent like this:

Code:

---

Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=769, Unicode:=True

---

But it replace my selection character. If I add:

Code:

---

Selection.Collapse direction:=wdCollapseEnd

---

that nothing do

There is screenshot that show what I want: http://img.photobucket.com/albums/v1...n/toaccent.gif
or http://img.photobucket.com/albums/v1...toaccent-2.gif

acute accent is diacritical mark.

- type your letter ?
- directly push the keys shift and left arrow
- push the keys shift and F3
- push right arrow

or you could try this macro[vba]Sub accent_e_to_accent_E()
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdNextCase
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub[/vba]or[VBA]Sub o_accent()
Selection.TypeText Text:="?"
End Sub[/VBA]

Quote:

---

Originally Posted by Charlize

- type your letter ?
- directly push the keys shift and left arrow
- push the keys shift and F3
- push right arrow
...

---

Thank you but it not that I want. I want to insert acute accent (or to accent or emphasis). That you suggested is letter case.

OK. I did it. That code:

Code:

---

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertSymbol CharacterNumber:=769, Unicode:=True

---

If I understand correctly ...

Unicode character 301 (decimal 769) is the combining acute accent.

If you want one by itself use U+00B4 (decimal 180) instead.

Looks like I didn't understand - and still don't :)

Neither do I. Why are you adding (or combining as Tony mentions) an accent? For example, why are you adding the accent to the "E" of "YELLOW"??????

I have put an accent sign on Y but probably was mistaken.

Ok. I have next code:

Code:

---

Sub accent()
Dim selChar As Long
selChar = AscW(Selection.Range.Characters(1))
If Selection.Type = wdSelectionIP Then
  MsgBox prompt:="Nothing selection", Title:="Select a character"
Else
' How delete accent mark? Check here.
  With Selection
    .Collapse direction:=wdCollapseEnd
    .InsertSymbol CharacterNumber:=769, Unicode:=True
  End With
End If
End Sub

---

Now I want delete Character (769) from selection text (if it exist).
How I can delete it? :banghead:
Thank you!

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???????

Quote:

---

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:

Code:

---

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.

Ummm