用word统计调查问卷（非表格），如何方便统计汇总？（目前难点word带格式赋值）

jsxjd

465238836 发表于 2014-3-11 17:52
所以很头疼啊。早知道最后有这么多问卷就建议导师用现成的问卷系统了。再不济用excel也行，这下整成word， ...

判断不是默认颜色的为选中？

345976475

wudixin96 发表于 2014-3-11 17:48
效果如图。

这个级别太低实在是尴尬。每小时限制发帖数，每天限制短消息数，我这看着干着急呀。还请勿怪。突然想到可以再注册一个，我立马重新注册了一个。

看起来确实是我要的效果。我这是新手，有些基础问题不懂，还请勿怪。这段是一个子程序吗，是不是要嵌套在我的那段程序中，还是直接整段替换？如果是整段替换的话，那是不是复制一个就要改一次程序代码中的文件名？因为问卷量很大，在重复进行多次复制后，会不会造成word剪切板中的信息冗余过多导致处理速度巨慢？

最后有没有更好的方法处理我现在面对的问题“统计整理纯文本word调查问卷”

最后再一次十分感谢！

345976475

jsxjd 发表于 2014-3-11 17:55
判断不是默认颜色的为选中？

不好意思半天没回复，级别低每小时限制回复数和短消息数。我这干着急，想了半天办法也没辙只好重新注册一个。

这次遇到的问题最大的核心就是word纯文本的调查问卷怎么完成批量的统计，想了好久没想到办法，只好想办法把所有问卷中的同一个问题批量提取到一个文档中，这样在统计一个问题时能好办一点，这也是无奈之举，我想不到别的办法了。但是在用这个方法时又遇到一个问题，一楼的代码执行成功，效果预览在下面，但是这个方法只对那些填问卷时用改变答案文字的方法（比如打勾）有效，而大部分人因为省事或其他原因吧，只是在问卷上把想要勾选的答案标记成了其他颜色，这在我一楼的代码皮i昂提取后就看不出来了。所以就没办法判断具体选中的答案是什么了。
在这个无奈的解决办法中，现在就是要区分出调查问卷中用别的颜色标记出来的答案。
另外最好有别的统计的方法，方便快捷些。
最后十分感谢你的支持。

345976475

wudixin96 发表于 2014-3-11 17:48
效果如图。

另外我还想再问一句，针对我一楼中的代码，他执行批量处理时，顺序是怎么确定的，因为我处理出来的结果，不管是以文件夹目录中的顺序正着看还是倒着看（我的每个调查文档都是相同文件名后面括号数字的）都不符合呀。好奇怪。

465238836

wudixin96 发表于 2014-3-11 17:48
效果如图。

我尝试了一下你的那个语句，结果好像是把内容复制到了word默认模板里了。能不能把你的那个复制语句添加到我一楼中的语句中，实现输入目录，自动复制目录下每个文档的指定段落。我尝试了一下替换掉我的赋值语句，结果没有成功。

谢谢，请指教。

jsxjd

345976475 发表于 2014-3-11 18:26
不好意思半天没回复，级别低每小时限制回复数和短消息数。我这干着急，想了半天办法也没辙只好重新注册一 ...

比较直接的是识别颜色，要看各种各样的问卷填写情况

465238836

jsxjd 发表于 2014-3-11 21:01
比较直接的是识别颜色，要看各种各样的问卷填写情况

前面9楼朋友提到了一种方法“不用赋值，用复制粘贴”同时提供了一段代码，但是我想把它嵌入到我的代码中，实现输入一个目录，自动批量复制这个目录下的每一个文档，结果没成功。

465238836

wudixin96 发表于 2014-3-11 17:48
效果如图。

你好，参考了你的方法和代码后，我尝试修改了一下我的，得到：

1. Sub 宏1()
   
2. hb = InputBox("请输入您要合并的文件所在的路径及文件夹名称。")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set fdr = fso.GetFolder(hb)
   
5. Set sf = fdr.Files
   
6. Set A_doc = Documents.Add
   
7. For Each f1 In sf
   
8. Documents.Open (f1)
   
9. ActiveDocument.Paragraphs(5).Range.Copy
   
10. A_doc.Range.Paste
    
11. Selection.Paste
    
12. ActiveDocument.Close False
    
13. Next
    
14. A_doc.SaveAs FileName:=hb & "\合并文档.doc"
    
15. A_doc.Close True
    
16. End Sub

复制代码

在执行过程中，确实保留了原格式。但是批量执行完后“合并文档”中只有一条信息，就是最后复制的那个。请问是怎么回事呀？

465238836

jsxjd 发表于 2014-3-11 21:01
比较直接的是识别颜色，要看各种各样的问卷填写情况

你好，在参考9楼朋友的方法后，自己尝试修改了一下代码得到：

1. Sub 宏1()
   
2. hb = InputBox("请输入您要合并的文件所在的路径及文件夹名称。")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set fdr = fso.GetFolder(hb)
   
5. Set sf = fdr.Files
   
6. Set A_doc = Documents.Add
   
7. For Each f1 In sf
   
8. Documents.Open (f1)
   
9. ActiveDocument.Paragraphs(5).Range.Copy
   
10. A_doc.Range.Paste
    
11. Selection.Paste
    
12. ActiveDocument.Close False
    
13. Next
    
14. A_doc.SaveAs FileName:=hb & "\合并文档.doc"
    
15. A_doc.Close True
    
16. End Sub
    

复制代码

在执行中确实是带格式复制过来的。但是在批量执行完后“合并文档”中只有最后一条复制的信息。请指点。感谢。

jsxjd

10、11行改一下吧？
A_doc.EndKey wdStory
A_doc.Selection.Paste