求助WORD的VBA编程问题

如何获取一段文字在WORD中的行数？
就是在已经设置好了字体的WORD里，用VBA插入一段文字后，因为要用到绘画的功能，所以想要知道文字插入后的具体位置，可以清楚地知道这段文字的行数是多少。以方便在指定的位置上画上（VBA程序自动画）所需要的图。
好象不调用WORD的内部数据是无法计算出具体的行数的，因为WORD会进行自动运算，特别是在有英文单词、标点及其它特殊内容的情况下。