CreateMember для iPart

[filat]

Я на VBA использовал цикл для генерации производных компонентов iPart - все работает нормально. А при попытке адаптировать код под AddIn - ничего не работает и вырубается. Не помогает даже отработчик ошибок:

Код: [Выделить]

                Dim oFactory As iPartFactory
                oFactory = m_Doc.ComponentDefinition.iPartFactory
                Dim i As Integer
                For i = 1 To oFactory.TableRows.Count
                        oFactory.DefaultRow = oFactory.TableRows(i)
                        Try
                            oFactory.CreateMember()
                        Catch ex As Exception
                           
                        End Try
                Next

[Владимир Ананьев]

Попробуйте сделать тестовую программу на VB в виде внешнего приложения (exe).
Цель - тестирование одной этой процедуры.
Включите опции Option Explicit и Option Strict On и заставьте процедуру работать. 
Только потом уже перенесите ее в addin.