Sub GetWordText改进() Dim Wb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim wdApp As Object Dim wdDoc As Object Dim FilePaths Dim FilePath Dim Arr(1 To 10000, 1 To 6) Dim n As Long Dim Index As Long Dim Regex As Object Dim Mh As Object Pattern =…