Dim oDoc As PartDocument = ThisDoc.Document 
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition 
Dim oFactory As iPartFactory = oDef.iPartFactory
Dim oRow As iPartTableRow
For Each oRow In oFactory.TableRows
	oFactory.CreateMember(oRow)
Next

iLogicVb.UpdateWhenDone = True