关于word内容的提取求大神指点

youngme · 发表于 2015-4-1 09:27:35

如何获取这样的word对象的内容啊
$oDoc.Shapes(1).TextFrame.TextRange.text
这样可以获得文本框内容
那如何获得2个文本框之间的内容啊
$oDoc.Range($oDoc.Shapes(1).TextFrame.TextRange.end,$oDoc.Shapes(2).TextFrame.TextRange.start).text
这样的获取不到啊怎么去大题之间的小题序号啊

怎么给list加水平滚动条啊

$mylist = GUICtrlCreateList("", 40,32,497,345,BitOR($GUI_SS_DEFAULT_LIST,$WS_HSCROLL))
;GUICtrlSendMsg($mylist,$WS_HSCROLL,0,0)
;_SendMessage($mylist, 0x0194)
都试过了没效果的

youngme · 发表于 2015-4-1 09:29:42

@kevinch @7649650

kevinch · 发表于 2015-4-1 18:47:47

附件，说明，结果模拟，一个都不能少

youngme · 发表于 2015-4-3 14:45:58

回复 3# kevinch
大神可算找到你了已经获取了文本内容。文本框是浮在上面的，所以没取到。
现在碰到了新问题
For $i=1 To $oDoc.Paragraphs.Count
StringReplace($oDoc.Paragraphs($i).Range.text,"．",".",1)
Next
我想将所以段落首个小数点替换成这个英文的点要怎么实现啊

kevinch · 发表于 2015-4-4 08:06:23

回复 4# youngme
上个附件看下，没附件没办法测试，也不知道你所说的小数点长啥样

youngme · 发表于 2015-4-4 11:28:49

回复 5# kevinch

大神就是这个试卷第一大题的各个小题好号的点就不一样

kevinch · 发表于 2015-4-4 13:57:20

$oDoc.range.find.execute("．",default,default,default,default,default,default,default, False,". ",1)
这个试下

youngme · 发表于 2015-4-5 11:25:51

大神碉堡了回复 7# kevinch

youngme · 发表于 2015-4-5 11:30:16

回复 7# kevinch

大神还是不可以我改用正则了^\d+[．.]

youngme · 发表于 2015-4-6 16:21:23

回复 7# kevinch

大神如何计算填空题的空，就是那个下划线的总数啊想要实现空的数量等于大题分比上每空分数

		自动登录	找回密码
密码			加入

[AU3基础] 关于word内容的提取求大神指点

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

[AU3基础] 关于word内容的 提取 求大神指点

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

[AU3基础] 关于word内容的提取求大神指点