Macro that reads the customproperties of not active.doc parts

Hi all,
I have this function that retrive me True if it finds "value1" and "value2" existing in the active doc:

Function ControlloCustomProp() As Boolean

On Error GoTo Handler

   Set swApp = Application.SldWorks

  swApp.Visible = True

  Set swConfigMgr = swApp.ActiveDoc.ConfigurationManager

  Set SwConfig = swConfigMgr.ActiveConfiguration

  Set swCustPropMgr = SwConfig.CustomPropertyManager

 

  If swCustPropMgr.Get("Value1") <> "" And swCustPropMgr.Get("Value2") <> "" Then

   ControlloCutomProp = 1

   Exit Function

  End If

Handler:

  MsgBox ("Ops, something went wrong !!")

  ControlloCutomProp = 0

 

End Function

From now i have to open each part 1 by 1 and run this funtion... very ineffective in case of big assemblies.

Is there a way to read the custom properties from every loaded component in an assembly, without opening them ?

SolidworksApi macros