Forums

こんにちは。

選択した文字列を索引参照ページ登録するスクリプトを作成しているのですが、
どういうわけか、表の後にある文字列を選択して登録すると、索引マーカーが
選択した文字列より数文字後のところに挿入されてしまいます。

表がなければ、正常に選択した文字列の先頭文字の前のInsertionPointに索引マーカが
挿入されます。

以下のスクリプトなのですが、何がいけないのでしょうか。
ご教授いただければ幸いです。

====
Dim myInDesign As InDesign.Application
myInDesign = CreateObject("InDesign.Application.CS2_J")

Dim myIndex As InDesign.Index
' Dim myTopic As InDesign.Topic
Dim i As Integer

myIndex = myInDesign.ActiveDocument.Indexes.Item(1)

Try
myType = TypeName(myInDesign.Selection(1))
Catch ex As Exception

End Try

If myType = "Character" Or _
myType = "Text" Or _
myType = "Word" Then

myTopic = myIndex.Topics.Add(myInDesign.Selection(1).Contents)
myTopic.PageReferences.Add(myInDesign.Selection(1))

End If

=======