1 Тема от ivolga-07

  • ivolga-07
  • рядовой
  • Неактивен
  • Зарегистрирован: 13.05.2013
  • Сообщений: 9

Тема: абзац до и после таблицы

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

2 Ответ от Alex_Gur

  • абзац до и после таблицы
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Re: абзац до и после таблицы

Предлагаю следующее возможное решение для вставки таблицы 3х3:

Sub PutTable()

    ' Вставка пустого абзаца перед таблицей
    Selection.TypeParagraph

    ' Вставка таблицы 3х3
    ActiveDocument.Tables.Add Range:=Selection.Range, _
    NumRows:=3, _
    NumColumns:=3, _
    DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With

    ' Переход к следующей строке после таблицы
    Selection.Tables(1).Select
    Selection.MoveDown Unit:=wdLine, Count:=1

    ' Вставка пустого абзаца после таблицы
    Selection.TypeParagraph

End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.