Question

word和excel vba综合编程

小弟参加了一个社会调查，调查问卷的形式有填空和选择，现在领导要求将所有的数据输入到excel中，以便统计数据。一个个输入实在是太麻烦，小弟想能不能通过vba编程将word中的数据读取到excel中呢，每一分问卷在excel中为一行，每一个问题为一列。小弟初学vba，不知道如何实现，尤其是如何在word中的指定位置读取不确定的字符信息，并按照次序一次导入到excel的单元格中？小弟恳请各位高手不吝赐教，给个思路，感激涕零！
思路对头追加100
word答卷既有填空又有选择，填空既有横线的形式又有表格的形式，选择一般是选择1或者2，包含题干部分。。每个题也不单独占一行。多谢这位大哥关注。调查卷太多，不好传，我的qq495952466，我们可以详细讨论。多谢帮助！

Answer 1

在Excel下编程，使用下列语句打开Word文档
Dim Wrd
Set Wrd = CreateObject("Word.Application")
Wrd.documents.Open Filename:=DOCFile, ReadOnly:=True '以只读方式打开Word文档
Wrd.Visible = True '让其可见(只读状态打开时，默认不可见)

通过类似于下面的语句，可以访问Word文档中的表格数据(注意：返回的数据去掉最后两个字符(回车和表格符))
Wrd.documents(DOCFile).Tables(4).Cell(9, 3).Range.Text 'Word文档中第4个表格的第9行第3列的文本。
至于文本，要通过设定选择集(Selection，可通过查找题目，然后改变选择区域的大小(Collapse方法))来复制和粘贴数据(查看Word的VB帮助)
得到Word文档中的数据后，往Excel文档对应的单元格赋值即可。
实际编写起来工作量较大，不超过几千份问卷，还是手工做吧！(初学者做完这个程序，估计要3、5天)
详细可联系：591zheteng@sina.com

Answer 2

你说下，你的word答卷是怎样的。是包括题干部分，还是仅有题号和答案？是不是每题单独一行（一个段落）最好发个样卷上来，好有针对性的解决问题

Answer 3

非得用VB么?
word 内容直接转成EXCEL不行?

Answer 4

能发文件到我的信箱yanjieeee@sina.com中吗，我熟悉VBA，可以看看！