VBA error

[k14348]

Sub TitleUpdate()

Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

Dim oPartDoc As PartDocument
Dim oProp As Property

For Each oPartDoc In oAsmDoc.AllReferencedDocuments
    For Each oProp In oPartDoc.PropertySets.Item("Inventor Summary Information").Item("Title")
    oProp.Value = "Comp"
    Next
Next
End Sub

Hi all,

       Can anybody help on this code error? 

Thanks,

Regards,

Karth

[JelteDeJong · Accepted solution]

the problem is that its only possible to iterate lists. You are trying to iterate 1 iProperty. try this:

Sub TitleUpdate()

    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = ThisApplication.ActiveDocument
    
    Dim oPartDoc As PartDocument
    Dim oProp As Property
    
    For Each oPartDoc In oAsmDoc.AllReferencedDocuments
        oPartDoc.PropertySets.Item("Inventor Summary Information").Item("Title").Value = "Comp"
    Next
End Sub