🚀 go-pugleaf

Hi Steve,

Instead, why not use SelectCase to filter the selection? You can see this approach in many of the example scripts that work with text. Something like this:



Set myInDesign = CreateObject("InDesign.Application.CS2") 
If myInDesign.Documents.Count <> 0 Then 
    If myInDesign.Selection.Count = 1 Then 
        Select Case TypeName(myInDesign.Selection.Item(1)) 
            Case "Word", "TextStyleRange", "Line", "Paragraph", "TextColumn", "Text", "TextFrame" 
                Rem Get the contents of the selection. We'll display it in a message box; 
                Rem a real script would do something more interesting with it. 
                myString = myInDesign.Selection.Item(1).Contents 
                MsgBox "The selection contains: " & myString, vbOKOnly 
            Case Else 
                MsgBox "Please select one or more characters and try again." 
        End Select 
    Else 
         MsgBox "Please select some text and try again." 
    End If 
Else 
    MsgBox "No documents are open. Please open a document, select some text, and try again." 
End If



Also, don't use For Each...Next constructions with InDesign objects. To prevent crashes, we limit For Each...Next to 255 iterations. Instead use a For...Next loop with a counter variable.

Thanks,

Ole