1、VBA宏自动录入
Sub ImportWordTableToExcel()
Dim wdApp As Object, wdDoc As Object
Dim xlSheet As Worksheet
Dim wordPath As String
Dim wordTable As Object
Dim projectInfo As String, projInfoParts() As String
Set xlSheet = ThisWorkbook.Sheets("Sheet1")
wordPath = "C:\你的路径\现场问题处理记录表 20250708.docx" ' 修改为实际路径
' 启动Word
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
wdApp.Visible = False
Set wdDoc = wdApp.Documents.Open(wordPath)
