повторять вторую строку таблицы на каждой странице

[arechemist]

Всем привет.

Есть большая таблица в Word 2003, которая занимает 70 стр
В ней шапка состоит из двух строк, но на каждой странице нужно повторять только вторую строку, этой самое шапки
Каким образом можно этого добиться???

с тем чтобы повторять первые две или первую, я разобрался =)

[Alec]

Не мудри, поступи проще)))
Раздели таблицы на две - в первой только первая строка исходной таблицы, во второй - все остальное. Потом во второй можно привычно сделать заголовком первую (или несколько первых) строк.
Да, и еще размер шрифта разрыва между таблицами нужно сделать 1 пт, а в первой таблице убрать нижнюю линию.
На печати практически незаметно.

[Shurrik]

А я использую верхний колонтитул. Просто копирую туда повторяющийся элемент шапки.

[arechemist]

А я использую верхний колонтитул. Просто копирую туда повторяющийся элемент шапки.

у меня в этом случае получается слишком большое расстояние между колонтитулом и самой таблицей =(

[Shurrik]

Чтобы свести к минимуму зазор, надо поставить после шапки шрифт высотой 1. К сожалению в шапке всегда присутствует в конце пустая строка и ее не убрать.

[Sam777e]

К сожалению в шапке всегда присутствует в конце пустая строка и ее
не убрать.

Практически минимальные изменения после записи MacroRecorder ' ом.

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

Sub Macro1()
  If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
  End If
  If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  End If
 
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  ActiveDocument.AttachedTemplate.BuildingBlockEntries(" Ïóñòîé").Insert _
    Where:=Selection.Range, RichText:=True
   
  Selection.TypeText Text:="K - 111"
  Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
  Selection.Font.Color = 12611584
 
    '   Хотим видеть видеть символ конца Параграфа
  ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
    ShowAll
 
    '  Удаляем последний [ постой ] Параграф.
  Selection.MoveRight Unit:=wdCharacter, Count:=2
  Selection.Delete Unit:=wdCharacter, Count:=1
End Sub