Sub Main() Dim oAsmDoc As AssemblyDocument Dim Desc As String Dim Proj As String Dim Ments As String Desc = iProperties.Value(oAsmDoc, "Project", "Description") Proj = iProperties.Value(oAsmDoc, "Project", "Project") Ments = iProperties.Value(oAsmDoc, "Summary", "Comments") oAsmDoc = ThisApplication.ActiveDocument Call Iterate(oAsmDoc.ComponentDefinition.Occurrences, Desc, Proj, Ments, 1) End Sub Private Sub Iterate(Occurrences As ComponentOccurrences, Desc As String, Proj As String, Ments As String, Level As Integer) Dim oOcc As ComponentOccurrence For Each oOcc In Occurrences Dim AWSIPart As String AWSIPart = oOcc.Name Try iProperties.Value(AWSIPart, "Project", "Description") = Desc iProperties.Value(AWSIPart, "Project", "Project") = Proj iProperties.Value(AWSIPart, "Summary", "Comments") = Ments Catch MsgBox("DOH") End Try If oOcc.Type = kiPartFactoryObject Then MsgBox("ipart") End If If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then Call Iterate(oOcc.SubOccurrences, Desc, Proj, Ments, Level + 1) End If Next End Sub