AnsweredAssumed Answered

Macro - deselect

Question asked by Kamil Kw on Nov 15, 2017
Latest reply on Nov 15, 2017 by Kamil Kw

HI, I have this macro to deselect in configuration properties in advanced options value: expiry operations. How can I do it automatically in all parts? Is there any better way to do it?


Dim swApp As Object



Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long



Sub main()



Set swApp = _




Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.EditConfiguration3("Default", "Default", "", "", 32)

End Sub



Thanks for help