请教一个word表格用VBA定位的问题

crystal0330

一个WORD表格很大，300多页吧，如果每页的第一行第一、二列不是空白的，就把上一个非空行、列的复制到这里，用VBA如何处理呢？其实我想知道VBA是怎么定位这个表格每页的第一行的，我是新手，问题可能有点幼稚，还望高手赐教。

duquancai

Sub shishi()
    With ActiveDocument
        If .Tables.Count <> 1 Then Exit Sub
        For i = 1 To .ComputeStatistics(2)
            With .GoTo(1, 1, i)
                If .Expand(12) Then MsgBox "第" & i & "页的第一个单元内容：" & Split(.Text, Chr(7))(0)
            End With
        Next
    End With
End Sub

crystal0330

duquancai 发表于 2017-8-13 17:13
Sub shishi()
    With ActiveDocument
        If .Tables.Count  1 Then Exit Sub

感谢好心人，我回去试试，万谢！