如何将word特定位置文字内容提取到Excel中

gaea0

附件上传错误啊。。。

gaea0

就是把word红字提取到Excel里，在word里字符是固定的，先谢过啦。

gaea0

大神在哪里~

zmj9151

单个文件第一个表格的数据信息提取

lzqlaj

论坛里例子很多，模仿写了一个。
Sub 提取信息()
    Application.ScreenUpdating = False
    Dim wordD As Word.Document
    Dim wordapp As Object
    Dim cPath$, cFile$, i%, arr()
    cPath = ThisWorkbook.Path & "\"
    cFile = Dir(cPath & "*.doc?")
    Set wordapp = CreateObject("word.Application")
    i = Range("A65535").End(xlUp).Row + 1
    On Error Resume Next
    Do While cFile <> ""
        Set wordD = wordapp.Documents.Open(cPath & cFile)
        With wordD.Tables(1)
            Cells(i, 3) = Split(.Parent.Paragraphs(3).Range.Text, "：")(1)
            Cells(i, 1) = Replace(.Cell(1, 2).Range.Text, Chr(7), "")
            Cells(i, 2) = Replace(.Cell(1, 4).Range.Text, Chr(7), "")
            Cells(i, 4) = Replace(.Cell(2, 2).Range.Text, Chr(7), "")
            Cells(i, 5) = Replace(.Cell(2, 4).Range.Text, Chr(7), "")
            i = i + 1
        End With
        wordD.Close
        cFile = Dir
    Loop
    Set wordD = Nothing
    wordapp.Quit
    Application.ScreenUpdating = True
End Sub