用vba如何能够提取word中的这些内容呢

深吸嗨罗茵 · 发表于 2016-9-3 09:53

本人有一个文件夹下面还有文件夹，文件夹下还有文件夹，里面呢有文件，我想把这些文件批量的处理，把带有【答案】的行提取到同名后加答案的doc文件中。想了很长时间，找了好多资料，无奈天生愚钝，不会呀！我现在传一个文件求大神帮忙弄一下

深吸嗨罗茵 · 发表于 2016-9-3 09:54

初次发帖，不知道能否奖励，希望大神指导

duquancai · 发表于 2016-9-3 16:18

本帖最后由 duquancai 于 2016-9-3 16:39 编辑

深吸嗨罗茵发表于 2016-9-3 09:54
初次发帖，不知道能否奖励，希望大神指导

“把带有【答案】的行提取到同名后加答案的doc文件中。” 这句话根本读不懂！（因为附件也没有说清楚！），其二，“有一个文件夹下面还有文件夹，文件夹下还有文件夹，里面呢有文件。”这叫话也是有争议（因为你附件中根本没有模拟相关的文件夹及子文件夹和文件），第一层文件夹下面包含：只有文件夹呢？还是有子文件夹和文件？第二层文件夹下面包含：只有文件夹呢？还是有子文件夹和文件？，以此类推！既然你需求不明确，那么我给你提供思路：遍历文件夹及子文件夹，循环处理文档！！！你自己编写VBA程序吧！

深吸嗨罗茵 · 发表于 2016-9-3 16:51

duquancai 发表于 2016-9-3 16:18
“把带有【答案】的行提取到同名后加答案的doc文件中。” 这句话根本读不懂！（因为附件也没有说清楚！） ...

也就是只要带“【答案】”标识的行，其他的都不要！而且每题的答案前面要带有该题的题号！这些内容保存到与源文件同名（名字后面再多“答案”两字）的word文档中。新建的这些文档保存到指定的某个文件夹下！至于文件夹下还有文件夹，也就是这些文档都在同一个达文件夹下的不同文件夹中

深吸嗨罗茵 · 发表于 2016-9-5 09:58

大神指导一下呀

深吸嗨罗茵 · 发表于 2016-9-6 16:21

duquancai 发表于 2016-9-3 16:18
“把带有【答案】的行提取到同名后加答案的doc文件中。” 这句话根本读不懂！（因为附件也没有说清楚！） ...

帮忙弄一下吧

413191246se · 发表于 2016-9-7 00:30

楼主，你的附件我觉得很好，不宜处理！我针对你的附件编了一个小宏，目的是删除《答案》到《考点》这些红色文字，之后就可以看无答案的 DOC 文档了！（至于循环遍历文件夹，先不要着急……）

Sub test()
'Sub 删除手动换行符和假段落标记()
ActiveDocument.Content.Find.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
ActiveDocument.Content.Find.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
'全文查找
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Do While Selection.Find.Execute(findtext:="【答案", Forward:=True)
Do
Selection.MoveEnd Unit:=wdCharacter, Count:=1
Loop Until Selection Like "*考点："
Do
Selection.MoveEnd Unit:=wdCharacter, Count:=1
Loop Until Selection.Characters.Last = vbCr
Selection.Delete
Loop
'Sub 创建副本()
ActiveDocument.SaveAs FileName:=Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) - 4) & "_无答案"
MsgBox "处理完毕！！！（文档已经保存！）"
End Sub

复制代码

深吸嗨罗茵 · 发表于 2016-9-9 09:27

413191246se 发表于 2016-9-7 00:30
楼主，你的附件我觉得很好，不宜处理！我针对你的附件编了一个小宏，目的是删除《答案》到《考点》这些红色 ...

您好，其实我是只想保留答案的那一行！原题和解析都不要，答案要有题号！我这有个别人帮我做的差不多的宏，你可以看一下，但是遇到数学公式，就运行不下去了，不知道为什么

深吸嗨罗茵 · 发表于 2016-9-9 09:34

深吸嗨罗茵发表于 2016-9-9 09:27
您好，其实我是只想保留答案的那一行！原题和解析都不要，答案要有题号！我这有个别人帮我做的差不多的宏 ...

您可以帮忙看一下

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

[求助] 用vba如何能够提取word中的这些内容呢