如何通过VB将光标移到WORD文档中指定字符的后面 - 编程论坛

#2

xzlxzlxzl2016-11-18 11:02

题主可否提供你读取word文档代码及部分word文档，这样会有针对性的帮你解决问题（提取文字必须知道分隔符的规律）。

#3

xfwxian2016-11-18 15:36

回复 4楼 xzlxzlxzl

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

#4

xfwxian2016-11-18 15:41

回复 5楼 xfwxian

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

#5

xzlxzlxzl2016-11-18 19:20

你现在做了哪些工作？把代码发上来别人才能帮你。

#6

xfwxian2016-11-20 07:52

回复 5楼 xzlxzlxzl

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，我采用的是机械的定位，可是化验单上的内容所在的位置并不完全固定，所以出来的结果不准确，有的截取了前面的，有的截取了后面的，当然有的截取的是正确的。该代码运行正常，就是截取的字符不准确。

#7

xzlxzlxzl2016-11-20 10:33

不知道你的化验单具体内容，自己随便弄个word文档试验，可以达到获取姓名，试验word内容如下：
化验单
似懂非懂三姓名：张三三玩儿发送到舒服个电饭锅电饭锅姓名：李四四
热帖有任何热通过姓名：王五五
梵蒂冈地方姓名：赵六六水电费广东省姓名：张七七

程序代码：

  Dim a As String, p As Integer, oApp As Word.Application, myRange1 As Word.Range, myRange2 As Word.Range, myRange3 As Word.Range
  Set oApp = CreateObject("Word.Application")
  oApp.Documents.Open "e:\化验单.doc"
  p = 0
  a = oApp.ActiveDocument.Range.Text     '首先获取全部word内容
  p = InStr(p + 1, a, "姓名：")            '定位第一个 “姓名：”的位置
  Set myRange1 = oApp.ActiveDocument.Range(Start:=p + 2, End:=p + 5)  '获取该位置后面的姓名，后面重复操作
  p = InStr(p + 1, a, "姓名：")
  Set myRange2 = oApp.ActiveDocument.Range(Start:=p + 2, End:=p + 5)
  p = InStr(p + 1, a, "姓名：")
  Set myRange3 = oApp.ActiveDocument.Range(Start:=p + 2, End:=p + 5)
  oApp.Quit

#8

xfwxian2016-11-21 09:56

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

#9

xfwxian2016-11-21 10:27

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

#10

xzlxzlxzl2016-11-21 11:08

p = InStr(p + 1, a, "诊断结果：") '“姓名：”长度为3，所以Start:=p + 2，“诊断结果：”长度为5，所以Start:=p + 4
Set myRange3 = oApp.ActiveDocument.Range(Start:=p + 4, End:=len(a))

'如果提供一个word样本感觉应该有更高效、更智能的提取所需字符的方法

#11

xfwxian2016-11-21 11:28

回复 10楼 xzlxzlxzl

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

#12

xzlxzlxzl2016-11-21 12:47

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

#13

xfwxian2016-11-22 08:43

回复 12楼 xzlxzlxzl

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

#14

xzlxzlxzl2016-11-22 18:46

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