求助：关于word自动组卷程序问题

借鉴论坛里的一些代码，改组成了一个自动组卷程序，程序运行后发现：组成的试卷从第5道题起选项的编号会延续上一题的编号，另外所抽取的试题与原题库里的题目编号不一致。请高手帮忙查找原因。程序和题库见附件。

[ 本帖最后由 sakyu 于 2010-12-24 10:18 编辑 ]

经过测试，最后是加了一句就搞定选项序号错误的问题：

            Set tempRange = Doc.Bookmarks("\EndofDoc").Range
            tempRange.FormattedText = myRange.FormattedText
            tempRange.ListFormat.ConvertNumbersToText

作用是把编号转换为文字。

[ 本帖最后由 csnAlex 于 2010-12-24 11:40 编辑 ]

抽题错误的问题见下面修改：

    For i = 0 To CInt(a) - 1  '以新文档按顺序输出提取结果
        .Parent.WholeStory
        If Num(i) = 1 Then
            .Text = "[\[（(][abcde ]@[\]）)][ ]@1[、]@"
        Else
            .Text = "^13[\[（(][abcde ]@[\]）)][ ]@" & Num(i) & "[、]@"
        End If
        If .Execute Then