Access и Indesign cs4 изменить стиль найденого

[current]

Пишу скрипт в Access(нужна связь с бд). Хочу в параграфе найти строчку и к примеру сделать ее bold.

К примеру в idesign есть тект "ds1122ddf1122sfdsfdsfds" Нужно первое вхождение 1122 сделать bold

Dim myInDesign As InDesign.Application
    Set myInDesign = GetObject("", "InDesign.Application.CS4")

Dim myDocument As InDesign.Document
        Set myDocument = myInDesign.Documents.Item(1)

myInDesign.FindTextPreferences = Nothing
myInDesign.ChangeTextPreferences= Nothing

Dim myFound As InDesign.FindTextPreference
Set myFound = myInDesign.FindTextPreferences
myInDesign.ChangeTextPreferences.FontStyle = "Bold"
myFound.FindWhat = "1122"
myDocument.FindText
myDocument.ChangeText

При этом bold будет и во втором вхождении. Делаю так

If  myDocument.FindText().Count <> 0 Then
 myDocument.FindText().Item(1).FontStyle = "Bold"
end if

Но тогда не задействован ChangeText. И как мне кажется это лишнее действие, что тормозит процесс. Хотелось бы обойтись только "Найти"->"Заменить"