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

465238836

jsxjd 发表于 2014-3-12 22:00
10、11行改一下吧？
A_doc.EndKey wdStory
A_doc.Selection.Paste

很感谢你回复，在一个人陷入绝境时任何的希望的是灿烂的（每当看到右上角的新提醒，总是很激动）。我按照你的建议修改了一下，运行返回错误“运行时错误438，对象不支持该属性或方法”点调试看到“A_doc.EndKey wdStory”这一句标黄了。请指点。

jsxjd

465238836 发表于 2014-3-12 23:06
很感谢你回复，在一个人陷入绝境时任何的希望的是灿烂的（每当看到右上角的新提醒，总是很激动）。我按照 ...

1. Sub 宏1()
   
2.     hb = "D:\Docs"
   
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.         
    
11.         Set R = A_doc.Content
    
12.         R.Collapse Direction:=wdCollapseEnd
    
13.         R.Paste
    
14.         ActiveDocument.Close False
    
15.     Next
    
16.     A_doc.SaveAs FileName:=hb & "合并文档.doc"
    
17.     A_doc.Close True
    
18. End Sub

复制代码

465238836

jsxjd 发表于 2014-3-13 09:37

抱歉昨天驾校考试，没有上网。今天一回来就测试成功了诶，十分感谢。好开心。

4rain

所以还是应该在设计问卷的时候采用excel，在无法用商用问卷系统实现要求功能的前提下