word中加索引 ( 积分: 100 )

word文档已存在，索引字段是从数据库中找到的，用一个循环读取，当数据库中字段与文中找到的文字匹配市，将该文字定义为索引
现在的问题是，索引定义的都在第一页，不是跟在找到文字后面，导致生成索引目录时，页数都是第一页，不知道怎样才能将光标定位到找到文字后
建索引用语句：
WordApplication1.ActiveDocument.Indexes.MarkEntry(WordApplication1.Selection.Range, entry, entryAutoText,
CrossReference, CroReferenceAutoText, BookmarkName, bold, Italic, Reading);
查找时，已用了论坛中提到的定位光标方法：
//查找
TextRange.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);
pos := TextRange.End_;
TextRange.SetRange(pos,pos);
col := wordapplication1.Selection.Information[wdFirstCharacterLineNumber];
showmessage(IntTostr(col));
但是col显示出来的仍然是第一页
不知道为什么，谢谢大家赐教

word文档已存在，索引字段是从数据库中找到的，用一个循环读取，当数据库中字段与文中找到的文字匹配市，将该文字定义为索引
现在的问题是，索引定义的都在第一页，不是跟在找到文字后面，导致生成索引目录时，页数都是第一页，不知道怎样才能将光标定位到找到文字后
建索引用语句：
WordApplication1.ActiveDocument.Indexes.MarkEntry(WordApplication1.Selection.Range, entry, entryAutoText,
CrossReference, CroReferenceAutoText, BookmarkName, bold, Italic, Reading);
查找时，已用了论坛中提到的定位光标方法：
//查找
TextRange.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);
pos := TextRange.End_;
TextRange.SetRange(pos,pos);
col := wordapplication1.Selection.Information[wdFirstCharacterLineNumber];
showmessage(IntTostr(col));
但是col显示出来的仍然是第一页
不知道为什么，谢谢大家赐教