如何按位置顺序得到一个word的所有书签?谢谢！

[87607047]

妖哥以前的代码是按名称顺序的，如何按位置顺序得到书签列表呢？谢谢！

Variant vBookmarks = vDoc.OlePropertyGet("bookmarks");
// 书签的总数
int nBookmarkCount = vBookmarks.OlePropertyGet("Count");

// 遍历所有书签，并获取到名字，输出到界面上的Memo中
String strName;
for (int i = 0; i < nBookmarkCount; i++)
{
strName = vBookmarks.OleFunction("Item", i + 1).OlePropertyGet("Name");

Memo1->Lines->Add(strName);
}

[ccrun.com]

OLE专业户来也！！！闲人退散。

int __fastcall CrnSortObject(TStringList *lst, int nIndex1, int nIndex2)
{
    int n1 = (int)lst->Objects[nIndex1];
    int n2 = (int)lst->Objects[nIndex2];

    if (n1 < n2) return -1;
    else if (n1 > n2) return 1;
    else return 0;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // 要打开的Doc文件名
    WideString strDocName = L"D:\\ccrun\\csdn.doc";

    // 创建Word对象
    Variant vWordApp;
    try
    {
        vWordApp = Variant::CreateObject("Word.Application");
    }
    catch(...)
    {
        MessageBox(Handle, "启动Word出错！",
                Application->Title.c_str(), MB_OK | MB_ICONERROR);

        return;
    }

    // 使Word界面可视
    vWordApp.OlePropertySet("Visible", true);

    // 打开指定的Word文档
    Variant vDoc = vWordApp.OlePropertyGet("Documents").
            OleFunction("Open", strDocName);

    // 获取所有书签对象
    Variant vBookmarks = vDoc.OlePropertyGet("bookmarks");
    // 书签的总数
    int nBookmarkCount = vBookmarks.OlePropertyGet("Count");

    // 遍历所有书签，并获取到名字和起始位置
    Variant vBookmark;
    String strName;
    int nStart;
    TStringList *lst = new TStringList;

    for (int i = 0; i < nBookmarkCount; i++)
    {
        vBookmark = vBookmarks.OleFunction("Item", i + 1);
        strName = vBookmark.OlePropertyGet("Name");
        nStart = vBookmark.OlePropertyGet("Start");

        lst->AddObject(strName, (TObject *)nStart);
    }

    // 根据起始位置排序
    lst->CustomSort(CrnSortObject);

    // 将排序后的结果添加到Memo中
    Memo1->Lines->Assign(lst);

    delete lst;

    // 后续代码依旧略过
    // ...
}

[87607047]

明白的了，不知道 vBookmark.OlePropertyGet("Start");这个用法，这种资料不知道哪里可以找到，关于ole 操作的资料太少了

谢谢妖哥！