WITHOBJECT "CorelVentura.Automation.8" 

.TextCharRight 1, TRUE 

.FormatSelectedText 

.Kerning = 231 

.TextCharRight 1, FALSE 

.InsertSymbol "Symbol", -94 

.TextCharLeft 2, TRUE 

.FormatSelectedText 

.ShiftUp = 13 

END WITHOBJECT 

Суть его сводится к следующему: ставите курсор слева от той гласной, над которой должно быть ударение и запускаете скрипт. При этом гласная выделяется, ей присваивается определенный отрицательный кернинг (величина его зависит от гарнитуры), затем вводится символ ударения шрифта Symbol и поднимается на 2pt вверх. 

Попробуйте. Алексей Шадрин.