有一WORD文档，里面有“姓名：张三”的内容，该内容所在位置不清楚，张三只是一个通用姓名，并不固定，如何通过VB将“姓名：”后面的“张三”等姓名赋值给一个变量？

没有任何的规律，其实就是要找出“姓名：”后面三个字符，并将其赋值给一变量。

我考虑先定位到“姓名：”后面，然后复制后面三个字符，将其赋值，就是不知道如何定位。

With oApp.Documents.Open("D:\2016年\化验单.doc)
Set myRange1 = oApp.ActiveDocument.Range(Start:=17, End:=20)
Set myRange2 = oApp.ActiveDocument.Range(Start:=30, End:=32)
Set myRange3 = oApp.ActiveDocument.Range(Start:=71, End:=80)
Set myRange4 = oApp.ActiveDocument.Range(Start:=95, End:=100)
end with

以上代码是将化验单上的姓名、年龄、送检日期、临床诊断后面的值分别赋值给myRange1、myRange2、myRange3、myRange4，我采用的是机械的定位，可是化验单上的内容所在的位置并不完全固定，所以出来的结果不准确，有的截取了前面的，有的截取了后面的，当然有的截取的是正确的。该代码运行正常，就是截取的字符不准确。

确实高手，在百度都没人解决的问题，你解决了，多谢。

还有一个问题：我查找的诊断结果位于该行的最末尾，就是这里
p = InStr(p + 1, a, "诊断结果：")
 Set myRange3 = oApp.ActiveDocument.Range(Start:=p + 2, End:=p + 5)，“End:=p + 5”如何改成行尾的位置？

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

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