如何在vc中选择word中的一段文字？

各位大侠好：
      我用vc操作word，往word里写一段文字，然后选择它，做成超级链接。部分代码如下：
_Document adoc;
        /*这是一段测试程序*/
        Selection sel=app.GetSelection();
        sel.TypeText(_T("这是一段测试程序,"));
        sel.TypeParagraph();
sel.TypeText("看这段文字是否能独立成段,");
sel.TypeParagraph();
sel.TypeText(_T("为以后做准备！"));
sel.TypeParagraph();
         Paragraphs paragraphs1;           
Paragraph paragraph1;        
paragraphs1=adoc.GetParagraphs();//有问题
paragraph1=paragraphs1.Item(1);  //
//paragraph1=paragraphs1.GetFirst();
Range r1=paragraph1.GetRange(); //选中第一段*/
CString str=r1.GetText(); //取得文本存入str中，用于超级链接的文字。
     编译通过，运行时程序总是异常终结，我调试跟踪发现当运行到paragraphs1=adoc.GetParagraphs()时，出错。请高手指点，问题在哪里。我怀疑是文字选择方法不对，但是看了好多资料，都说这样可以。请大家帮忙，看看应该怎么解决！万谢先！