Word macro delete spaces

Question

У меня есть макрос, чтобы удалить пробелы между таблицами, что делает таблицы, сгенерированные файлом шаблона, объединяться, просто удаляя пространство между ними.

Проблема теперь это также удаление нижнего колонтитула в документе слова.

вот мой код.

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