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

Question

我有一个文件夹，里面有 40-50 个 Microsoft Word 文档。

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

我正在尝试在 Microsoft Word 中开发一个宏，它将打开文件夹中的每个 Word 文档，搜索文本框，然后将其粘贴到包含宏的新文件中。

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

Answer 1

列出的答案这里和此处 可以向您展示如何获取文件夹中的所有文件。

以下 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