Как изменить часть абзаца

[Alexxxander]

В абзаце нужно, скажем, текст, находящийся в скобках, сделать курсивом. Как это сделать?
Определить скобки просто (n1=InStr(str,"("), n2=InStr(str,"(") для VBS). А как теперь изменить атрибуты?
Можно, конечно, в цикле для каждого символа что-то вроде

for i=n1 to n2
para.Characters(i).FontStyle = "Italic"
next

Но как-то это неоптимально.