Hello Philip,

Thank you very much again for your kind help! This works very well.

I just found that I need another functionality: that is, a text can be indexed in multiple index styles, and these texts must be found as well...

I think "$doc.textIndexStyleNames" should be used, but how...??

Thank you so much again.

Best regard,

Nobumi Iyanaga
Tokyo,
Japan

> On Apr 13, 2016, at 12:31 AM, spaelti <[log in to unmask]> wrote:
> 
> Hello again,
> 
> Here is a macro which should do this, I think:
> 
> # Macro Select Next Multiply Indexed Item
> 
> $doc = Document.active
> $indexStyles = $doc.textIndexStyleNames
> 
> # Get the name of the index style
> $indexName = Active Text Index Name
> 
> # Go through the document and look for indexed items
> $sel = TextSelection.active
> $loc = $sel.bound
> $txt = $sel.text
> 
> while $loc < $txt.length
> $attr = $txt.attributesAtIndex $loc
> $range = $txt.rangeOfAttributesAtIndex $loc
> $topic = $attr.textIndexTopicsForStyleName($indexName)
> # If an indexed item is found, check if it is multiply
> # indexed and if so, select it and quit
> if Defined $topic
> if $topic.count > 1
> $indexed = TextSelection.new $txt, $range
> $doc.setSelection $indexed
> Prompt $indexed.substring, 'Indexed as :' & $topic
> Exit
> end
> end
> $loc = $range.bound
> end
> 
> # If nothing is found
> Prompt 'No indexed items found.'
> 
> # end of macro
> 
> best
> Philip
> 
> 
>> On Apr 12, 2016, at 17:32 , Nobumi Iyanaga <[log in to unmask]> wrote:
>> 
>> Hello all,
>> 
>> Another macro I would need is one which would find the next text in a document which is indexed with more than one "topic" (any topics). Is such a macro possible to create?
>> 
>> I would be very grateful to anyone (Philip, perhaps??) who would write a macro for this purpose.
>> 
>> Best regard,
>> 
>> Nobumi Iyanaga
>> Tokyo,
>> Japan
> 
> Philip Spaelti
> [log in to unmask]
> 
> 
> 
> 
>