Word. Повтор шапки таблицы на новой странице. VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Word. Повтор шапки таблицы на новой странице. VBA (Word)

RAN

Дата: Пятница, 25.04.2014, 12:36 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мяу!
К вопросу о борьбе с Select.

В приведенном коде для задания параметра "повторять шапку" активируется первая ячейка таблицы, что мне не очень нравится.
Но, к сожалению, это единственный вариант, который мне удалось заставить работать.
Без Select'a можно сделать?

По закладке уже понятно, буду пробовать.

[vba]

Код

Sub a()
     marker = "zzz2"
     wd.Bookmarks.Item(marker).Select
     With wa.Selection
         .PasteAndFormat (wdPasteDefault)
         .Tables(1).Select
         .Rows.HeightRule = wdRowHeightAtLeast
         .Rows.SetLeftIndent LeftIndent:=19.6, RulerStyle:=0    'wdAdjustNone
         .Range.HighlightColorIndex = wdNoHighlight
         '        .Shading.Texture = 0    'wdTextureNone
         '        .Shading.ForegroundPatternColor = -16777216    'wdColorAutomatic
         '        .Shading.BackgroundPatternColor = -16777216    'wdColorAutomatic
         .Tables(1).Columns(1).SetWidth ColumnWidth:=191.4, RulerStyle:=0    'wdAdjustNone
         .Tables(1).Columns(2).SetWidth ColumnWidth:=326, RulerStyle:=0    ' wdAdjustNone
         '        .Font.Bold = False
         ' &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
         ' не нравится этот фрагмент
         .Tables(1).cell(1, 1).Select
         .Rows.HeadingFormat = True
         ' &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
     End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

anvg

Дата: Суббота, 26.04.2014, 10:55 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Добрый день

Цитата

для задания параметра "повторять шапку" активируется первая ячейка таблицы

Вполне можно обойтись для первой строки
[vba]

Код

ThisDocument.Tables(1).Rows(1).HeadingFormat = True

[/vba]
и для первой и второй
[vba]

Код

ThisDocument.Tables(1).Rows(2).HeadingFormat = True

[/vba]

Ответить

RAN

Дата: Суббота, 26.04.2014, 12:45 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Добрый день.
Это было первое, что я попробовал
[vba]

Код

.Tables(1).Rows(1).HeadingFormat = True

[/vba]

Но, к сожаления, даже чисто в ворде получил ответ - таблица содержит объединенные столбцы, работать не буду. Хотя никаких объединенных столбцов и близко нет.

Быть или не быть, вот в чем загвоздка!

Ответить

Word. Повтор шапки таблицы на новой странице. VBA (Word)

Страница 1 из 1
1