Word宏删除空格

Question

我有一个宏来删除表之间的空格，这使得模板文件生成的表只是通过删除它们之间的空格来连接。

现在的问题是它还在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

由于

Answer 1

这可能适合你

oPara In ActiveDocument.StoryRanges(wdMainTextStory).Paragraphs