Макрос для постановки ударения

[Nord18]

Доброго времени суток! Нашел вот такой макрос для постановки ударения:

Sub SetAndDeleteAccent()
Dim rAcc As Range
Dim rTmp As Range
Set rTmp = Selection.Range
If Selection.Type = wdSelectionIP Then
MsgBox prompt:="Не выделена буква"
ElseIf Len(rTmp.Characters(1)) = 1 Then
rTmp.Collapse direction:=wdCollapseEnd 
rTmp.InsertSymbol CharacterNumber:=769, Unicode:=True 
Selection.Collapse direction:=wdCollapseEnd 
Else
For Each rAcc In rTmp.Characters
If AscW(Right(rAcc, 1)) = 769 Then 
rAcc = Left(rAcc, 1) 
End If
Next rAcc
End If
End Sub

Хочу поменять символ 769 на 61448 или 61449 в двоичном исчеслении (F008 и F009 в шестнадцатеричном). Макрос перестал работать. Подскажите как исправить, чтобы работал?!
Заранее благодарен! С уважением, Nord18

[viter.alex]

Гм, странно, но работает. Чтобы записать число в шестнадцатиричной форме, достаточно перед ним поставить &H, т.е. можно записать в такой форме:

rTmp.InsertSymbol CharacterNumber:=&HF008, Unicode:=True

[Nord18]

Огромное спасибо!!!!!! А какими еще символами можно ставить ударение в Word'е?

[viter.alex]

Понятия не имею, а что этих мало?

[Nord18]

Сообщение от viter.alex

Понятия не имею, а что этих мало?

Ну да...Я увлекся...Спасибо!!!