word和excel vba综合编程

发布网友发布时间：2022-05-04 20:20

共4个回答

热心网友时间：2022-06-25 14:59

在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

热心网友时间：2022-06-25 14:59

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

热心网友时间：2022-06-25 15:00

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

热心网友时间：2022-06-25 15:00

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