关于在Word中Range对象的定义问题，苦恼中

小菜

试试下面的代码，选择第2段第5-10个字符：

1. Sub test()
   
2.     Dim lStart As Long, lEnd As Long
   
3.     lStart = ActiveDocument.Paragraphs(2).Range.Start + 5
   
4.     lEnd = ActiveDocument.Paragraphs(2).Range.Start + 10
   
5.     ActiveDocument.Range(lStart, lEnd).Select
   
6. End Sub

复制代码