How to select from currently opened CATParts and CATProducts?

[Kattmandu]

Programming is not my expertise. With that said, I'm looking to implement a CATScript that asks the user to select from a list of currently opened CATParts and CATProducts listed under the "Window" pull down menu in CatiaV5. What would code look like to get the "window" items into a selectable list and save that filename into a variable?

Dim windows1 As Windows
Set windows1 = CATIA.Windows
Dim numberOfWindows As Integer
numberOfWindows = Windows1.Count
Sub FillArray() 
 Dim array(numberOfWindows) 
 Dim intI As Integer 
 For intI = 1 to numberOfWindows 
 array(intI) = CATIA.Windows.Item(intI)
 Next 
End Sub

 

[LWolf]

if it is a GUI, then you need to do it in VBA.

regards,
LWolf