Vba Word宏删除空格

我有一个宏来删除表之间的空格，这使得模板文件生成的表只需删除它们之间的空格就可以连接起来

现在的问题是，它还在删除word文档中的页脚

这是我的密码

Sub AllignTables()

Dim oPara As Paragraph

For Each oPara In ActiveDocument.range.Paragraphs

        If Not oPara.range.Information(wdWithInTable) Then

            If Len(oPara.range) = 1 Then

                oPara.range.Style = "Normal"

                oPara.range.Delete

            End If

        End If

    Next oPara

End Sub

谢谢这可能对你有用

oPara In ActiveDocument.StoryRanges(wdMainTextStory).Paragraphs