如何把word中的数据汇总到excel中的指定位置

下了夏天-17

如附件所示，数据源是底稿.docx，如何把 底稿.docx 汇总到 问题汇总.xlsx 表格中的指定位置，实现“项目名称”、“审计内容”、“审计日期”、“事实陈述”、“审计问题”、“审计建议”、“附件”的自动汇总。

约定的童话

Sub 提取()
    Application.ScreenUpdating = False '关闭屏幕刷新
    Dim DocApp As Object, strPath As String, fn As String
    Dim arr(1 To 1000, 1 To 5), i%
    Cells.Clear
    Set DocApp = VBA.CreateObject("word.application")
    With DocApp.Documents.Open(ThisWorkbook.Path & "\准考证.docx")
        For i = 1 To 8
            n = n + 1
            For j = 1 To 5
                arr(n, j) = .Tables(1).Cell(i, j).Range
            Next
        Next
        .Close 0
    End With
    DocApp.Quit
    [a1].Resize(UBound(arr), 5) = arr
    [A:E].Replace "", "", xlPart
    [A:E].Replace Chr(13), "", xlPart
    Set DocApp = Nothing
End Sub
给你段代码自己改下呢

下了夏天-17

约定的童话 发表于 2020-6-2 14:31
Sub 提取()
    Application.ScreenUpdating = False '关闭屏幕刷新
    Dim DocApp As Object, strPath  ...

老师您好，vba小白，我自己修改完代码之后一直报错，出不来效果，麻烦您能帮我写一下吗