如何获取WORD表格的上下行对应关系

tan133

如何获取WORD表格的上下行对应关系


精确版示例.rar (13.42 KB, 下载次数: 8)

2017-7-4 16:49 上传

点击文件名下载附件

每组数量不定

期待结果

甲组         赵一         12

甲组         张一三     23

乙组         弟子李三         34

乙组         赵四         4500000000

乙组         王五         56

丙组         刘五         67

丙组         汪七         78

补充内容 (2017-7-8 10:04):
想做一个WORD表格转EXCEL表格的完美版，搞不定，放弃了,谢谢楼下所有回答的兄弟
大家不用作答了，

tan133

数据模型已经精简并重新上传，期待大神给出解决之道

小花鹿

比较容易理解的方法是复制到EXCEL中再处理....................................................................

小花鹿

Sub test()
Dim c&, i&, s
With ThisDocument.Tables(1)
    c = .Rows(2).Cells.Count
   For i = 1 To c
        .Cell(2, i).Range.Select
        Selection.MoveUp 5, 1
        Selection.Expand 12
        s = Selection.Text
        s = s & "|" & .Cell(2, i).Range.Text
        s = s & "|" & .Cell(3, i).Range.Text
        s = Replace(Replace(s, Chr(13), ""), Chr(7), "")
        MsgBox s
        s = ""
    Next i
End With
End Sub

tan133

小花鹿 发表于 2017-7-10 11:11
Sub test()
Dim c&, i&, s
With ThisDocument.Tables(1)

谢谢谢谢
我自己都放弃了,没想到你做到了