Hat denn keiner eine Lösung?
Ich komme einfach nicht weiter.
Ich habe zwar dieses Beispiel:
Private Sub ParameterChange()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oRefedDoc As Document
Dim oRefedPartDoc As PartDocument
Dim orefedAssDoc As AssemblyDocument
Dim oParameter As Parameter
For Each oRefedDoc In oDoc.AllReferencedDocuments
If TypeOf oRefedDoc Is PartDocument Then
Set oRefedPartDoc = oRefedDoc
Set oParameter = oRefedPartDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
oParameter.Value = 123 '...usw
ElseIf TypeOf oRefedDoc Is AssemblyDocument Then
Set orefedAssDoc = oRefedDoc
Set oParameter = orefedAssDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
oParameter.Value = 123 '... usw
End If
Next
End Sub
Allerdings kommt bei: Set oParameter = oRefedPartDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
eine Fehlermeldung und dann geht's einfach nicht weiter :-(
Gruß Chris
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP