Как управлять полями ячейки таблицы Word из Excel

@AndreA SN · Регистрация: 26.08.2011

Author24 — интернет-сервис помощи студентам

Создал таблицу из Excel
Внес данные. Как всегда - не вмещаются

написал код

Visual Basic

rs = tbl.Cell(2, 2).Range.Start ' выделяем нужные ячейки
re = tbl.Cell(53, 17).Range.End ' 
oDocument.Range(rs, re).Select ' 
With myWord.Selection.Cells(1) ' убираем поля ячейки
    .TopPadding = 0  
    .BottomPadding = 0 
    .LeftPadding = 0 
    .RightPadding = 0 
    .WordWrap = True 
    .FitText = False 
End With

Но поля остаются.

Мало того - стоит галочка "как во всей таблице".
Я ее убираю, но макрорекордер код на это действие не пишет
Подскажите - как этим добром управлять?

@aequit · 08.04.2017, 11:28

Апну тему. Похожая проблема. Вставляю из Excel в Word таблицу, устанавливаю во всей таблице нужные поля, но результата не видно, так как в свойствах ячейки снята галочка "как во всей таблице". Подскажите, как программно добавить или снять галочку "как во всей таблице". Макрорекордер не помогает.

Добавлено через 17 минут
Единственный вариант пока работает: обнулить параметры ячеек, применив команду

Visual Basic

1	Selection.Tables(1).Style = "Сетка таблицы"

После этого галочка "как во всей таблице" в свойствах ячейки устанавливается. А снять её уже не получается программно.

@Homarty · 09.04.2017, 07:40

Галочка "как во всей таблице" программно не снимается, она используется только в режиме пользователя, для того, чтобы он мог в ручном режиме изменить параметры отдельной ячейки. Что касается вышеуказанных вопросов то может быть это поможет

Visual Basic

With tbl
'Установка полей для всей таблицы  
 .TopPadding = 0
        .BottomPadding = 0
        .LeftPadding = 0
        .RightPadding = 0
'Установка полей для конкретной ячейки
 With .Cell(2, 1)
            .RightPadding = 1
     .TopPadding = 1
     .BottomPadding = 1
     .LeftPadding = 1
        End With
End With

	09.04.2017, 07:40