怎样从Word里面提取信息存到Excel里，表头字段已经固定的

[fhqstar]

想从Word里面提取信息存到Excel里，表头字段已经固定的。
例如：
姓名： XXX 年龄： XXX
政治面貌：XXXX 出生地：XXXX
需要把各个冒号后XXX的信息提取到Excel相应字段的里。
因为有一大批像这样的文档要处理，复制粘贴太占时间了。
Word里不是表格的，所以这个脚本不知道应该怎样写，网上说可以用正则，有人知道具体怎样写吗？我写了几个都不行。。。
就像图片上那样，上面那部分是Word文档信息，下面是想提取生成的Excel效果。

[fhqstar]

引用 1 楼 awaly 的回复:

参考： C# code?12345678910111213141516171819202122232425粘贴一下“循环遍历文件夹及子文件夹”的打开方法（更改单个 WORD 文件打开方式查找你的信息可也——楼主必须制作附件样稿多来几个文件，因为表格和文字提取方法不一样）： Sub doc2txt() On Error Resume Next Dim fd A……

遍历打开文件夹这些都没有问题，关键是我不知道怎样提取文档里面的内容，Word文档只有下划线那些内容是变的，其它内容都是一样的。

[夜予]

参考：

粘贴一下“循环遍历文件夹及子文件夹”的打开方法（更改单个 WORD 文件打开方式查找你的信息可也——楼主必须制作附件样稿多来几个文件，因为表格和文字提取方法不一样）：

Sub doc2txt()
    On Error Resume Next
    Dim fd As FileDialog, i As Long, doc As Document, p As String
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
    Set fd = Nothing
    If MsgBox("Are you sure to convert? (" & p & ")", vbYesNo + vbExclamation, "doc2txt") = vbNo Then Exit Sub
    With Application.FileSearch
        .LookIn = p
        .SearchSubFolders = True
        .FileName = "*.doc"
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
                Set doc = Documents.Open(FileName:=.FoundFiles(i))
                doc.SaveAs FileName:=Left(doc.FullName, Len(doc.FullName) - 4) & ".txt", FileFormat:=wdFormatText
                ActiveDocument.Close
            Next i
            MsgBox "Complete! There were " & .FoundFiles.Count & " file(s) converted.", vbOKOnly + vbExclamation, "doc2txt"
        Else
            MsgBox "There were no files found.", vbOKOnly + vbCritical, "doc2txt"
        End If
    End With
End Sub

[laoyebin]

不是每个字段一行，这个比较难搞 传个附件上来，我试试