急！！！批量提取word指定内容到Excel

yayahzmeng · 发表于 2017-5-27 19:22

mzbao 发表于 2017-5-27 12:29
你试试，见附件。

高手，厉害！
自定义正则函数，获得word文件range的全文，这两部分值得学习！

jaydong0330 · 发表于 2017-5-27 19:55

mzbao 发表于 2017-5-27 12:29
你试试，见附件。

非常感谢，正在研究您的代码。自定义函数太棒啦！

jiminyanyan · 发表于 2017-5-27 20:48

这个不难实现。。。。

jaydong0330 · 发表于 2017-5-27 20:56

jiminyanyan 发表于 2017-5-27 20:48
这个不难实现。。。。

对我来说就难了也谢谢您回帖了！！！

jiminyanyan · 发表于 2017-5-27 21:23

jaydong0330 发表于 2017-5-27 20:56
对我来说就难了也谢谢您回帖了！！！

熟能生巧，锁匠10几秒可开一把锁，没练习过的半天也开不了。。。。

jiminyanyan · 发表于 2017-5-28 09:10

mzbao 发表于 2017-5-27 12:29
你试试，见附件。

mzbao老师，我想请教一下，想把谈判的段落放到一个数组里，不知能不能实现，有谈判两个字，就把那一段作为数组的一个元素。。。。

jaydong0330 · 发表于 2017-5-28 11:27

mzbao 发表于 2017-5-27 12:29
你试试，见附件。

你好，又研究了下代码，发现每次运行之后都会生成一个winword.exe进程。
我查阅资料，发现在26-27之间插一句oWordApp.quit 就行了，不知道啥意思，望赐教！

mzbao · 发表于 2017-5-28 16:17

jiminyanyan 发表于 2017-5-28 09:10
mzbao老师，我想请教一下，想把谈判的段落放到一个数组里，不知能不能实现，有谈判两个字，就把那一段作 ...

老师不敢当，我也是属于学习者。
你的意思把含有谈判的段落都找出来放到一个数组里？用正则表达式
RegX.Pattern = “\n.*谈判.*”
就可以把含段落的一段文字找出来，然后你再赋给数组就可以了。
下面截图是正则表达式测试的结果

mzbao · 发表于 2017-5-28 16:30

jaydong0330 发表于 2017-5-28 11:27
你好，又研究了下代码，发现每次运行之后都会生成一个winword.exe进程。
我查阅资料，发现在26-27之间插 ...

非常感谢，以前没注意这个问题。

Set oWordApp = CreateObject("Word.Application")，这句会创建一个word进程，只是默认word窗口是隐藏的。你在这就下面加上下面这句就可以看到了
oWordApp.Visible = True

我代码后面没有将word退出，所以每运行一次，都创建一个word进程。
oWordApp.Quit 相当于退出word程序

jaydong0330 · 发表于 2017-5-28 20:44

mzbao 发表于 2017-5-28 16:17
老师不敢当，我也是属于学习者。
你的意思把含有谈判的段落都找出来放到一个数组里？用正则表达式
RegX ...

我的意思是找出“建议以最低报价”和“作为最终报价”之间的价格（截图例子为1.11元），还有“建议本项目的中标人为”后面的单位名称（截图例子为C）

		自动登录	找回密码
密码			免费注册

[求助] 急！！！批量提取word指定内容到Excel