如何用vba批量提取同路径内word文档的信息并汇总到excel中？

附件2是文档，附件1是汇总后的excel。
需求是运行vba的时候，可以让用户自己选择路径，选择完路径后，程序对该路径下所有文档对标黄的字段提取出来，并汇总到excel中，需要支持2003版office使用。

• 这有个类似的问题, 你可以参考下: https://ask.csdn.net/questions/682360
• 我还给你找了一篇非常好的博客，你可以看看是否有帮助，链接：批量获取指定文件夹下，多个同结构excel表固定位置的内容，并保存
• 除此之外, 这篇博客: 【笔记】Excel 2021｜（二）VBA删除数组中的一个元素、循环时删除一行、选择一列删除指定一行中的 方法1：利用动态数组，在循环中条件判断删除 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• 但可以结合动态数组，将删除元素的数组赋值给新数组，如下代码。其中的b数组便是删除元素后的新数组：

  arr1 = Array(1, "特定条件", 3, 999, 1, "特定条件", 3) '定义一个数组
  Dim b() As String   '定义新数组
  k = 0   '记录新数组的长度
  For i = 0 To UBound(arr1)  '用数组长度来判断是否遍历完成
      If (InStr(1, arr1(i), "特定条件", 0) <= 0) Then
          ReDim Preserve b(0 To k)    '添加到新数组
          b(k) = arr1(i)
          k = k + 1
      End If
  Next
  '结果是b = Array(1, 3, 999, 1, 3)
  

  参考：vba中怎样去掉数组中的空值-百度知道-jmeycn

  注意，用UBound获取数组长度，而不是Len。在VBA中，Len是用来获取Expression的长度的，如字符串长度；UBound返回指定数组的最大下标。
  注意2：当数组长度为0时，用UBound获取长度会产生“下标越界”错误。所以这里用k作为新数组的长度值。

• 您还可以看一下 刘欢老师的一小时搞定简单VBA编程 Excel宏编程快速入门课程中的 循环自动打印文件小节, 巩固相关知识点