🚀 go-pugleaf

Chris--

Actually, Selection now *always* returns an Array--in 1.5, it would return an array when multiple items were selected, but would return a single object when one object was selected.



Dim myInDesign As InDesign.Application 
Dim myArray As Variant 
ReDim myArray(0) 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
If myInDesign.Documents.Count > 0 Then 
    If myInDesign.Selection.Count > 0 Then 
        For myCounter = 1 To myInDesign.Selection.Count 
            Select Case TypeName(myInDesign.Selection.Item(myCounter)) 
                Case "TextFrame" 
                    Rem Add the text frame to the array "myArray". 
                    If TypeName(myArray(0)) = "TextFrame" Then 
                        ReDim Preserve myArray(UBound(myArray) + 1) 
                    End If 
                    Set myArray(UBound(myArray)) = myInDesign.Selection.Item(myCounter) 
                Case Else 
                    Rem Do nothing 
            End Select 
        Next 
    End If 
End If 
Rem At this point, the array myArray holds all of the text frames that were 
Rem in the selection. Do with them what you will. 




Thanks,

Ole