[a_axe]

Самый незатейливый вариант - заходите в колонтитулы, жмете alt-f9 (при этом значения ваших номеров страниц будет отображаться в виде кодов - приблизительно "{PAGE \*MERGEFORMAT}".
Ставите курсор в то место, где должен быть ваш номер с особенной нумерацией, жмете сочетание ctrl+f9, получаете пару скобок {}. Жмете это сочетание два раза чтобы было {{}}.
Затем добиваете в эти готовые скобки {={page}+10}. Жмете alt-f9, чтобы отобразились значения вместо кодов.

В этом поле нумерация должна выдавать на 10 большие по значению, чем номер страницы. Прибавьте или отнимите нужную вам цифру (как я понимаю - {={page}-85})
Соответственно, возможно - в документ будет необходимо вставить разрывы разделов, чтобы колонтитулы были разные.

Аналогичный вариант

в произвольном месте документа пишем поле {set Delta{={FILLIN "Введите номер первой страницы"}}}
Номер получаем с помощью поля {=Delta+{page}-1} в колонтитуле (формула вбивается исходя из логики, что вы хотите получить - page нумерация страницы, Delta - разница которую вы закладываете).
Соответственно, если поставить курсор на первое поле и нажать F9, отобразится окно, в которое можно вбить значение для Delta, что будет удобнее, чем ковыряться в маленьком квадратике углового штампа, меняя число.

[Sandre]

Удалось сделать первым способом, спасибо, а вот вторым не получается(.

ПРи нажати Ф9 ничего не просиходит

Кстати, минус один же не нужно писать

По идее

a_axe, вы владеете программой mathtype?

[a_axe]

ПРи нажати Ф9 ничего не просиходит »

Ага, в моем посте опечатка в первом поле - закрывать строчку должны три фигурных скобочки: {set Delta{={FILLIN "Введите номер первой страницы"}}} , скобочки нужно ставить используя ctrl+f9.
Соответственно, если установить курсор внутри этой строчки и нажать f9, должно выскочить окошко, куда можно забить значение для Delta. Удобство спорное. По хорошему, поля можно подобрать так, что будет считать и автоматом.

Кстати, минус один же не нужно писать »

Зависит от того результата, который Вы хотите получить. (Обычно под Delta понимают сам номер, с которого должна начинаться нумерация, тогда -1 нужен. Все же от задачи зависит)

a_axe, вы владеете программой mathtype? »

К сожалению не владею, даже никогда не видел.

[Sandre]

a_axe, спасибо, разобрался). Есть ещё вопрос. Мне нужно скопировать в отдельный файл ворда один из разделов диплома с полностью неизменным форматированием и колонтитулами. К сожалению, не получается так. Что посоветуете? П.С. стили экспортировал - не дало результата

a_axe, как подобрать, что бы автоматом считало?

[Iska]

a_axe, как подобрать, что бы автоматом считало? »

Sandre, в общем случае простого решения с полями не существует: либо у Вас сплошная нумерация, либо нумерация с единицы в каждом разделе.

Дабы не править числа в каждом разделе «ручками» каждый раз, когда меняется число страниц в разделах, можно использовать макрос такого вида:

Скрытый текст

Код:

Option Explicit

Sub ReNum()
    Dim objSection As Section
    
    Dim intPageCount As Integer
    
    
    intPageCount = 0
    
    For Each objSection In ThisDocument.Sections
        With objSection
            With .Headers.Item(wdHeaderFooterPrimary)
                .LinkToPrevious = False
                
                With .Range.Fields
                    .Add Range:=.Parent, Type:=wdFieldPage, PreserveFormatting:=False
                    .Parent.InsertBefore "=" & CStr(intPageCount) & "+"
                    .Add Range:=.Parent, Type:=wdFieldEmpty, PreserveFormatting:=False
                End With
            End With
            
            intPageCount = intPageCount + .Range.Information(wdActiveEndAdjustedPageNumber)
            
            With .Footers.Item(wdHeaderFooterPrimary)
                .LinkToPrevious = False
                
                With .PageNumbers
                    .RestartNumberingAtSection = True
                    .StartingNumber = 1
                End With
                
                .Range.Fields.Add Range:=.Range, Type:=wdFieldPage, PreserveFormatting:=False
            End With
        End With
    Next
End Sub

Общий принцип следующий:

• колонтитулы разделов отсоединены от предыдущих;
• в нижнем колонтитуле ведётся нумерация по разделам, для чего для каждого из них нумерация страниц устанавливается в «Начинать с: 1»;
• в верхнем колонтитуле ведётся сплошная нумерация, для чего используется вышеуказанный коллегой a_axe способ с вычисляемым полем {= …}, содержимым которого являются два слагаемых: «общая сумма страниц предыдущих разделов» и «номер страницы в текущем разделе».

Выглядит сие примерно так:

Скрытый текст

Скрытый текст

Если Вас подобное устроит, посмотрю на его адаптацию непосредственно к Вашему документу.

Мне нужно скопировать в отдельный файл ворда один из разделов диплома с полностью неизменным форматированием и колонтитулами. К сожалению, не получается так. Что посоветуете? »

Создать копию исходного документа, в которой удалить всё лишнее.

[a_axe]

в общем случае простого решения с полями не существует »

ну как... вроде же работает рабоче-крестьянский вариант, только обновлять нужно вручную через F9, неудобно. По-сути аналогично вашему макросу, только через поля, и нумерация сквозная, а отнимаем мы от сквозной нумерации на каждой странице дельту, значение которой присваивается через поле в последней строчке раздела 1:

1. вставляем в книгу новый раздел, убираем в разделе 2 опцию "как в предыдущем" (чтобы колонтитулы для Раздела 1 и Раздела 2 были разными)
2. последней строчкой Раздела 1 (не в колонтитуле, а именно в основном тексте) пишем поле {set Delta{={page}}}
3. В колонтитуле Раздела 1 сверху пишем поле {page}
4. В колонтитуле Раздела 2 сверху также пишем поле {page}, в нижнем колонтитуле пишем {={page}-delta}
Результатом будет книга с непрерывной нумерацией сверху листа, и с нумерацией Раздела 2 снизу листа с отсчетом начиная с единицы.

Безусловным неудобством такого метода будет то, что поле {set Delta{={page}}} должно всегда находится на последней странице Раздела 1.

Обновлять каждый раз через F9 неудобно, можно использовать такой макрос:

Sub Field_update() ActiveDocument.Fields.Update End Sub

[Iska]

a_axe, я понимаю. А в третьем, четвёртом и так далее разделах — что пишем?

По сути же, выбор того или иного варианта основной нумерации будет зависеть от того, на какую именно нумерацию (сплошную или раздельную) ссылается в тексте документа коллега Sandre. Условно говоря, если стоит ссылка вида «см. рис. 5.1 "Очень красивый рисунок" на стр.18», то какую нумерацию должна будет использовать данная ссылка — ту и придётся выбрать в качестве основной, дабы эти кросс-ссылки работали.

Обновлять каждый раз через F9 неудобно, »

Достаточно однократно задать в параметрах обновление полей при печати и затем пользовать предварительный просмотр.

[a_axe]

А в третьем, четвёртом и так далее разделах — что пишем? »

Свои переменные Delta1, Delta2, Delta3, я полагаю.

ту и придётся выбрать в качестве основной, дабы эти кросс-ссылки работали. »

Как я понимаю - через поля кросс-ссылки не реализовать?

Достаточно однократно задать в параметрах обновление полей при печати и затем пользовать предварительный просмотр. »

Спасибо, возьму на заметку .

[Iska]

Свои переменные Delta1, Delta2, Delta3, я полагаю. »

a_axe, спасибо, теперь полностью ясно.

Как я понимаю - через поля кросс-ссылки не реализовать? »

Ох, возни будет чересчур. Они ведь и так сами по себе полями организованы.