🚀 go-pugleaf

Well, I figured this out myself, so I thought I would post it here so that any VB person does not have to go through the struggle that I did. The trick is the undocumented "ItemByRange" method on the Characters collection:

'Place cursor in caption, ready to enter text
    myCaptionFrame.TextContents = "<Enter Caption here>"
    Dim myChar1 As Character
    Dim myCharLast As Character
    Set myChar1 = myCaptionFrame.ParentStory.Characters.Item(1)
    Set myCharLast = myCaptionFrame.ParentStory.Characters.Item(-1)
    myInDesign.Select myCaptionFrame.ParentStory.Characters.ItemByRange(myChar1, myCharLast)

There does not appear to be any place that says that "-1" is a legit way to get the "last" character, but it seems to work.

Any comments on the above code, especially if it makes it clearer or shorter, would be appreciated.

--Jack Gregory