How insert emphasis for selection character

[akokin]

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

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

But it replace my selection character. If I add:

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.

[Charlize]

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

[akokin]

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

[akokin]

OK. I did it. That code:

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

[TonyJollans]

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.

[TonyJollans]

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

[fumei]

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

[akokin]

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

[akokin]

Ok. I have next 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?
Thank you!

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

[akokin]

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.

[fumei]

Ummm