В чем причина? Ошибка на сервере. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFA

[Geradot]

For Strok = 1 To KolStolb.Value
 For Stolb = 1 To KolStrok.Value

...
 myTextFrame = myDocument.TextFrames.Add
 myTextFrame.GeometricBounds = intMyArray
 myTextFrame.Contents = "FileName.eps"
 myFont = myInDesign.Fonts.Item("Arial")
 myParagraph = myTextFrame.Paragraphs.Item(1)
 REM Change the font, size, and alignment.
 If TypeName(myFont) <> "Nothing" Then
 myParagraph.AppliedFont = myFont
 End If
 myParagraph.PointSize = 48
 myParagraph.Justification = 1667591796
 Next
 Next

Строка myParagraph.AppliedFont = myFont на второй итерации выдает ошибку Ошибка на сервере. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

Не пойму почему.


Сама задача: В цикле создаются фреймы и в них текст должен быть написан определенным шрифтом и размером.

Вопрос 1: Почему возникает ошибка?
Вопрос 2: Как правильно реализовать задачу?