VBA Word Назначить строки заголовка таблицы

Question

У меня есть таблица, которая вставлена ​​(pasteandformat) из Excel.Теперь мне нужно, чтобы верхние строки, 1 и 2, отображались сверху на каждой странице.Проблема в том, что я не могу заставить его работать с использованием кода VBA, но делать это вручную работает.

Я просмотрел интернет, MSDN и библиотеку объектов в VBA, но я могу найтикак это сделать с кодом, так же, как если бы это было сделано вручную.

Sub test()
    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    tbl.Rows(1).HeadingFormat = True
End Sub

Ошибка времени выполнения: 5991 Не удается получить доступ к определенным строкам в выделении из-за таблицы, содержащей вертикальные объединенные ячейки

Но если я сделаю это вручную, войдите в диалоговое окно «Свойства таблицы», перейдите на вкладку «Строка» и выберите строку 1, а затем установите флажок «Повторить верхнюю строку на каждой странице», все будет работать нормально.

Answer 1

Поскольку у вас есть вертикально слитые ячейки в первых двух строках, вам нужно выбрать строки перед установкой HeadingFormat

ActiveDocument.Tables(1).Cell(1, 1).Select
With Selection
  .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  .Expand wdRow
  .Rows.HeadingFormat = True
End With