vba word合并表

附件

合并表.rar(6.38 KB)

2011-4-21 09:16, 下载次数: 6

复制内容到剪贴板

代码:

Sub TabsMer()
    Dim Ind As Long, Rng As Range, Par As Paragraph
    For Ind = 1 To Me.Tables.Count
        If Ind = Me.Tables.Count Then Exit Sub
        Set Rng = Me.Range(Me.Tables(Ind).Range.End, Me.Tables(Ind + 1).Range.Start)
        For Each Par In Rng.Paragraphs
              If Len(Par.Range) > 1 Then GoTo NX
        Next
        Rng.Delete
        Ind = Ind - 1
NX:
    Next
End Sub