LEN(A)应该是整个文档的末尾吧，我要的是“诊断结果：”所在行的末尾。

Set myRange3 = oApp.ActiveDocument.Range(Start:=p + 4, End:=instr(p+5,a,vbcrlf))

你真是个高手，有个VB读取SQL的问题你能解决吗？
   在VB中使用V语句：sql = "select   name   from   sysobjects   where   type='U'" 可以将数据库中的表名全部列出来，可是我需要将这些表名赋值给变量，怎么办？

如果这个帖子问题解决就结贴吧。关于13楼问题在另一个帖子里有版主给你提示了，都是基础问题。