''This macro wil marc all parameters for export
''Macro created by Teun Ham
''Copyright by Inventor Wizard (http://www.inventorwizard.be)
''Use this macro at your own risk.
''You may only copy/modify this or part of the code if you leave this header!

Public Sub MarkAllParametersForExport()

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

Dim oParameter As Parameter
For Each oParameter In oPartDoc.ComponentDefinition.Parameters
oParameter.ExposedAsProperty = True
Next oParameter

MsgBox "Done!", vbInformation

End Sub