интервал между таблицей и текстом

[darklumen]

Господа, как сделать интервал между таблице и текстом программно?
или как просто вставить перед и после таблицы по пустой строке?

[Busine2009]

У меня всё примитивно до безобразия:

Код: Выделить всё

Sub InsertZeroParagraph()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
    oTable.Select
    Selection.MoveUp
    Selection.TypeParagraph
    Selection.MoveDown
    Selection.Tables(1).Select
    Selection.MoveDown
    Selection.TypeParagraph
Next
End Sub

Для первой таблицы не сработает.

[Busine2009]

Нет, не работает. Поспешил.
Вот так будет правильней:

Код: Выделить всё

Sub InsertZeroParagrap()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
    oTable.Select
    Selection.MoveUp
    Selection.EndKey
    Selection.TypeParagraph
    Selection.MoveDown
    Selection.Tables(1).Select
    Selection.MoveDown
    Selection.TypeParagraph
Next
End Sub

Вот так просто Интервалы можно сделать:

Код: Выделить всё

Sub InsertZeroParagrap()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
    oTable.Select
    Selection.MoveUp
    Selection.ParagraphFormat.SpaceAfter = 6
    Selection.MoveDown
    Selection.Tables(1).Select
    Selection.MoveDown
    Selection.ParagraphFormat.SpaceBefore = 6
Next
End Sub

Я имел ввиду первую таблицу, находящуюся в самом начале документа.