Es muß eine *.iam bzw. *.ipt geöffnet sein, wenn das Makro abläuft
Makro ist lauffähig und kann so übernommen werden!
Mfg VOSTA1
---------------------------------------
sub Eigenschaften_ipt
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
dim a as string
dim b as string
dim c as string
dim d as string
dim NeueBauteilnummer as string
a = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
b = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Author").Value
c = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value
d = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value
Msgbox ("a= " & a &" b= " & b & " c= " & c &" d= " & d)
NeueBauteilnummer = "12345678"
oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value = NeueBauteilnummer
a = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value
Msgbox a
End sub
---------------------------------------------------------------------------------------------
sub Eigenschaften_iam
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
dim a as string
dim b as string
dim c as string
dim d as string
dim NeueBauteilnummer as string
a = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
b = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Author").Value
c = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value
d = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value
Msgbox ("a= " & a &" b= " & b & " c= " & c &" d= " & d)
NeueBauteilnummer = "12345678"
oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value = NeueBauteilnummer
a = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value
Msgbox a
End sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP