Колонтитул MS Word - автоматическое отображение первого слова на следующей странице

[Makov]

Здравствуйте!
Подскажите пожалуйста, можно ли в MS Word 2016 настроить нижний или верхний колонтитул таким образом, чтобы в правом нижнем углу отображалось слово, с которой начинается следующая станица?

Причём чтобы это было на "автомате", т.е. при форматировании текста слово должно "подставляться" само.

Большое спасибо!

 

[splxgf]

Вот именно такого момента не припомню, обычно делаются выкрутасы с полем styleref, но это в пределах текущей страницы.
Но макросами задача решаемая, хотя на лету обновляться не будет.

 

[Makov]

Вот именно такого момента не припомню, обычно делаются выкрутасы с полем styleref, но это в пределах текущей страницы.
Но макросами задача решаемая, хотя на лету обновляться не будет.

А есть уже готовые макросы?
И как его самому сделать?

 

[Валера1966]

Книга должна называться «"Visual Basic" для чайников».

 

[Makov]

Книга должна называться «"Visual Basic" для чайников».

Это всё понятно...
Придумал ещё вариант - просто копировать прямоугольник со страницы на страницу и вводить в него нужный текст...Только вот как копировать объекты то же самое место на новую страницу? А то постоянно "уезжает" на каждой последующей....

 

[splxgf]

Ну объект размещать на странице не проблема, привязать к абсолютному положению на странице (Формат-Положение-Дополнительные параметры разметки).

 

[Makov]

Ну объект размещать на странице не проблема, привязать к абсолютному положению на странице (Формат-Положение-Дополнительные параметры разметки).

Так привязывать каждый раз придется? Или только первый, а дальше свойства будут копироваться?

 

[NNN5]

Это колонтитул словарного типа? Есть такое в Word, это точно. Без макросов. Поищу.

 

[Makov]

Это колонтитул словарного типа? Есть такое в Word, это точно. Без макросов. Поищу.

Практически. Приведу пример: Идёт текст, сплошной. А в самом низу, в правом нижнем углу - слово, с которого начинается текст на следующей странице.

Это сделано для того, чтобы не прерывать чтение, когда переворачиваешь страницу.

 

[kstati]

Не по теме:

Это сделано для того, чтобы не прерывать чтение, когда переворачиваешь страницу.

Странная логика. Экономия времени сомнительна.

 

[splxgf]

Это колонтитул словарного типа? Есть такое в Word, это точно

Колонтитул словарного типа есть, это половина проблемы... а проблема вытащить инфу со следующей страницы.

 

[Makov]

Колонтитул словарного типа есть, это половина проблемы

Как его вставить? Я бы и вручную слова заполнил, это не так долго....Просто главное, чтобы он хоть всё время в том же месте страницы был и не "ездил" вправо-влево и вверх-вниз.

 

[splxgf]

Так привязывать каждый раз придется? Или только первый, а дальше свойства будут копироваться?

Ну проще проверить. В крайнем случае простым макросом это легко лечится. Делается нужная текстовая рамка, копируется в буфер и

Selection.Paste
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    Selection.ShapeRange.Left = 36#
    Selection.ShapeRange.Top = 36#

Можно пройтись циклом, а можно Ctrl+PgDown и хоткей на макрос.

 

[NNN5]

Заводите символьный стиль с названием, допустим, "Последнее слово". Открываете колонтитул. Появляется вкладка "Работа с колонтитулами". Нажимаете Экспресс-блоки > Поле...
Выбираете StyleRef. Параметры:
Имя стиля "Последнее слово" (он у нас символьный!)
Начинать поиск с конца страницы - включено.

Далее можете назначить этот символьный стиль хоть всему тексту. Он найдёт последний на странице.

 

[kstati]

Далее можете назначить этот символьный стиль хоть всему тексту. Он найдёт последний на странице.

А цель — первое вхождение на следующей.

 

[splxgf]

Далее можете назначить этот символьный стиль хоть всему тексту. Он найдёт последний на странице.

Ну в том то и дело что последний на странице, а нужно первое слово со следующей страницы. Про styleref я еще во втором сообщении писал, но с ним такие фишки не провернуть.

 

[Makov]

Он найдёт последний на странице.

Так нужен не последний, а первый...

 

[Makov]

В крайнем случае простым макросом это легко лечится. Делается нужная текстовая рамка, копируется в буфер и

А можно подробнее про макрос этот? Я в них не разбираюсь и времени вникать в программирование сейчас нет. Куда код этот вставлять?

 

[splxgf]

А можно подробнее про макрос этот? Я в них не разбираюсь и времени вникать в программирование сейчас нет

Переключить панель "Разработчик", нажать "Запись макроса" (заодно повесить на него шорткат "Назначить макрос клавишам"), сделать любые действия и нажать "Остановить запись".
Затем нажать "Макросы" найти имя записанного макроса "Макрос1" и нажать "Изменить".
Между Sub и End Sub поместить приведенные строчки, должно получиться что-то вроде

Sub Макрос1()
'
' Макрос1 Макрос
    Selection.Paste
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    Selection.ShapeRange.LeftRelative = -999999
    Selection.ShapeRange.TopRelative = -999999
    Selection.ShapeRange.Left = -999996
    Selection.ShapeRange.Top = -999997
End Sub

Затем можно настроить надпись нужного размера, скопировать в буфер обмена и по шорткату она будет вставляться и помещаться в правый нижний угол.
P.S. Макрос чуть поменялся, поскольку обычно использую 2003 версию, а тут добрался до новой.

 

[Makov]

и по шорткату она будет вставляться и помещаться в правый нижний угол

Не получается...Вылезает такая ошибка:

Делал, как Вы сказали:

1. Запустил запись макроса, набрал три слова, остановил запись. При этом назначил клавишу F2.
2. Зашёл в макросы, поменял код на нужный, закрыл все окошки.
3. Создал текстовую рамку, настроил её.
4. Выделил эту рамку и нажал "скопировать"
5. Поставил курсор на следующей, пустой странице, нажал F2 - и вылезает эта ошибка.

Может я что-то не так сделал?