请教delphi遍历word模版书签的顺序问题

Question

for i:=1 to myDoc.BookMark.count do
begin
  myBookMark := myDoc.BookMark.Item(i);
end;上段程序遍历是按照名称顺序来的，如有书签：lb1,lb2,ch1,ch2。遍历的顺序是：ch1,ch2,lb1,lb2。而不是按照位置顺序。
请大家指教，如何按位置顺序遍历？

Answer 1

WordDocument.BookMarks.DefaultSorting := wdSortByLocation;

Answer 2

上面的代码只影响BOOKMARK插入对话框中的排列顺序,不影响BOOKMARKS的排列顺序.所以取出来总是按字母顺序排列.................WordDocument.BookMarks.DefaultSorting := wdSortByLocation; //wdSortByNameWordApplication.Application.Dialogs.Item(wdDialogInsertBook).Show(EmptyParam);..................还没有解决你的问题