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

Программирование на Visual Basic for Applications
arechemist
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 173
Зарегистрирован: 24.10.2003 (Пт) 8:45

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

Сообщение arechemist » 16.07.2012 (Пн) 15:52

Всем привет.

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

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

Alec
Бывалый
Бывалый
 
Сообщения: 275
Зарегистрирован: 31.08.2008 (Вс) 0:15
Откуда: Ростов-на-Дону

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

Сообщение Alec » 16.07.2012 (Пн) 23:38

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

Shurrik
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 110
Зарегистрирован: 20.05.2004 (Чт) 5:35
Откуда: Керчь, Крым

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

Сообщение Shurrik » 17.07.2012 (Вт) 6:22

А я использую верхний колонтитул. Просто копирую туда повторяющийся элемент шапки.
Колесо: Хочешь жить? Умей вертеться.

arechemist
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 173
Зарегистрирован: 24.10.2003 (Пт) 8:45

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

Сообщение arechemist » 17.07.2012 (Вт) 8:14

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

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

Shurrik
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 110
Зарегистрирован: 20.05.2004 (Чт) 5:35
Откуда: Керчь, Крым

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

Сообщение Shurrik » 18.07.2012 (Ср) 6:04

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

Sam777e
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 157
Зарегистрирован: 16.09.2010 (Чт) 4:33

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

Сообщение Sam777e » 19.07.2012 (Чт) 12:24

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


Практически минимальные изменения после записи 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
Здоровья и удачи


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

    TopList