因此，我有一个相当大的Word调查表。它中有几个类似的不规则表（意味着有些行合并了单元格，有些则没有）。我需要读取每个表中的3个特定值，并在下一个单元格中获取响应并将其移至新的Excel电子表格中，这样我才能将该数据导入Access中。自从我在vbscript中进行此类操作以来，这确实是一个乡村时光。我从另一个线程收集了此脚本，但是我不记得该怎么做。
[码] 设置objWord = CreateObject（“ Word.Application”） objWord.Visible = False objWord.DisplayAlerts = False objWord.Documents.Open“ C：\ Users \ TheRev \ Desktop \ AllObj.docx”，False，True 设置objDoc = objWord.ActiveDocument
设置objExcel = CreateObject（“ Excel.Application”） objExcel.Visible = False objExcel.DisplayAlerts = False objExcel.Workbooks.Add 设置objSheet = objExcel.ActiveSheet
dstRow = 0 对于objDoc.Tables中的每个tbl 对于srcRow = 1到tbl.Rows.Count col = 0 对于tbl.Rows（srcRow）.Cells中的每个单元格 如果单元格=“家庭号”，则 wscript.echo“找到了” 其他 col = col + 1 objSheet.Cells（dstRow + srcRow，col）.Value =左（cell.Range.Text，Len（cell.Range.Text）-1） 万一 下一个 下一个 dstRow = dstRow + SrcRow 下一个 objExcel.ActiveWorkbook.SaveAs“ C：\ Users \ TheRev \ Desktop \ SurveyResults.xlsx” objExcel.Quit [/码]
这基本上将我所有的表都转换为excel工作簿。不是我所需要的。
我需要做的是读取每个Word表的第一列，特别是每一行的第一个单元格数据，如果该单元格显示“ Objective number”，则需要将下一个单元格的数据复制到Excel电子表格的A列中，然后将Word doc的数据从第一个复制的文本向下2个单元格（技术）中复制到Excel的B列中，并将Word doc的下一个单元格向下（问题）复制到Excel列C中。然后，它需要继续读取Word doc的第一列，直到它会找到下一个“目标编号”文本，并重复执行直到它位于Word文档的末尾。
谢谢你一百万
牧师
我随附了330个目标问卷的样本，因此您可以了解我正在尝试做的事情。
