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

【问题标题】：Extracting Text Box data from multiple Microsoft Word files从多个 Microsoft Word 文件中提取文本框数据
【发布时间】：2011-12-21 06:02:03
【问题描述】：

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

每个 Word 文档的结构如下： - 有多个表有两列 - 第二列包含问题，并且在每个问题的末尾都有一个唯一标识符（例如“”） - 在包含问题的同一单元格中，唯一标识符后面有一个文本框，其中包含问题的答案

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

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

【问题讨论】：

标签： excel textbox ms-word multiple-instances vba

【解决方案1】：

here 和here 列出的答案可以告诉你如何获取文件夹中的所有文件。

以下 VBA 代码可用于检索表格第二列中的文本，以及同一单元格中形状（文本框）中的文本。如果在表格单元格中没有找到形状（文本框），则 On Error Resume Next 语句可以保持代码运行。

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

【讨论】：