| |
|
|
| | Подскажите, как программно записать формулу в поле в колонтитулах?
У меня есть перечень документов WORD. Задача - чтобы нумерация следующего документа начиналась не с "1", а с "номер последней страницы предыдущего документа + 1".
Ручками - это сделал так:
1. Вставил в колонтитулы автотекст "- СТРАНИЦА -".
2. Изменил формулу на такую: { =SUM({ PAGE \* Arabic };19) }, где 19 - это номер последней страницы предыдущего документа.
Но как это сделать программно? Чтобы при открытии документа - сразу вместо 19 вписать текущее значение последней страницы предыдущего документа?
Я в программировании Word не силен, а с помощью автозаписи мкроса - не получилась. Мышка - недоступна.
Помогите, если есть умельцы? | |
| |
| |
| |
|
|
| | При записи макроса в ворде мышь недоступна
однако можно воспользоваться кнопками
F10 или Alt позволяет переместиться в меню
стрелки вверх вниз влево вправо - доступны
также работает Esc Enter и Tab
вообщем я клоню к тому что макрос записать рекордером можно
вот что у меня получилось (нумерация начинается с номера 19)
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 21.07.2010 snipe
'
With Selection.Sections(1).Headers(1).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = True
.StartingNumber = 19
End With
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
End Sub | |
| |
| |
|
|
