Codeschnipsel: Durch alle Baugruppenkomponenten gehen und die Benutzerparameter ausgeben

Sub Userparam()
    Dim asm As AssemblyDocument
    Set asm = ThisApplication.ActiveDocument
    Dim Text As String
    Dim occurrence As ComponentOccurrence
    For Each occurrence In asm.ComponentDefinition.Occurrences
        If Not occurrence.Suppressed Then
            Dim partCompDef As PartComponentDefinition
            Set partCompDef = occurrence.Definition
            Dim param As UserParameter
            For Each param In partCompDef.Parameters.UserParameters
                Text = Text & vbCr & occurrence.Name & ":" & param.Name & "=" & param.Value
                Debug.Print occurrence.Name & ":" & param.Name & "=" & param.Value
            Next
        End If
    Next
    MsgBox (Text)
End Sub

[Quelle]