如何读取不规则表格中一列的数据，

附件

新建 Microsoft Word 文档.rar(3.28 KB)

2010-12-29 13:33, 下载次数: 8

复制内容到剪贴板

代码:

Sub test()
Dim i%, cc%, str$
With Tables(1)
    cc = .Columns.Count
    For i = 1 To cc
        If InStr(.Cell(1, i), "测试用例") Then Exit For
    Next
    .Cell(1, i).Select
End With
With Selection
    .MoveDown wdLine, 1
    Do While .Information(wdWithInTable)
        .Expand
        str = str & Replace(Replace(.Range.Text, Chr(7), ""), Chr(13), "") & Chr(13)
        .MoveDown wdLine, 1
    Loop
End With
MsgBox str
End Sub