我有个word版本的题库，1000多道题，需要做一个投到大屏上让人抢答的功能。思路是1、把题库改成excel版本；2、用excel/vba实现随机抽题的功能

第一步，用word/vba实现自动将1000多道题目拷贝到excel中
这里出现问题了。我现在能做到的是在word中查找关键字，选中它。应为每道题最后一行都是“答案：***”
所以我就设置关键字是"答案",每次查找到关键字后，选中这行至文本顶端的所有行，剪切，拷贝到excel中。第二次，再查找关键字“答案”，同样剪切答案行以上的所有行到excel的第二行中，以此类推，实现所有题目自动剪切到excel中。
第二步，excel自动随机抽题，做好了。还需要稍微修改。但是问题不大了。

请教的问题。如何让word 自动选中“答案”行及其以上的所有行呢？