从多个Microsoft Word文件中提取文本框数据

Question

我有一个包含40-50个Microsoft Word文档的文件夹。

每个字的文件的结构如下： - 有多个表有两列 - 第二列包含的问题，并且在每个问题的末端有一个唯一的标识符（例如，“<＃Q123＃ >“） - 在包含该问题的同一单元格中，包含问题答案的唯一标识符后面有一个文本框

我正在尝试在Microsoft Word中开发一个宏，该宏将打开每个Word文档在该文件夹中，搜索紧接在指定的唯一标识符后面的文本框，并将其粘贴到具有宏的新文件中。

如果可以从文本框中将数据提取到Excel文件中，而不是将文本框复制并粘贴到Word文档中，那将是可取的，但我不确定这是否可能（因为一些文本框可能包含

Answer 1

的答案上市here和here可以告诉你如何让你的文件夹中的所有文件。

下面的VBA代码可以用于检索在第二列中的文本的表格以及形状（文本框）中位于同一单元格中的文本。On Error Resume Next语句已就位以保持代码r如果在表格单元格中找不到形状（文本框），则为unning。

Dim cll As Cell 
Dim question As String 
Dim answer As String 
Dim tbl As Table 

'Gets the first table in the active document. 
'In your code you would assign the Word document that you have 
'just opened to a document variable. 
Set tbl = ActiveDocument.Tables(1) 

On Error Resume Next 
For i = 1 To tbl.Rows.Count 
    Set cll = tbl.Cell(i, 2) 

    question = cll.Range.Text 
    answer = cll.Range.ShapeRange.TextFrame.TextRange.Text 

    'Once you have these two strings, you can do whatever you want with them.   
Next