Developing.ru

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

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

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

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

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

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

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

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

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

Developing.ru

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

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

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

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