Как начать нумерацию страниц с заданной страницы

Или проделайте следующее. установите курсор туда, где нужно вставить поле. дважды нажмите комбинацию клавиш ctrl+f9. в том месте, где находится курсор, напишите слово «PAGE», справа от закрывающей фигурной скобки, в которой находится это слово, вставьте скобку «)», а слева от открывающей скобки, в которой находится это слово, наберите «=(3+». затем просто обновите поле. получите нужную вам цифру.

Александр, а можете поподробнее объяснить логику заложенную в вашем варианте???
Воспроизвести его, чтобы что-то отображалось в поле - у меня не выходит.. Что у вас получается в результате? С моим вариантом вроде все понятно, простое сложение..

Блин, точно.. Я же сам использовал когда-то такое условие, чтобы не печатать в основной надписи по ГОСТ 2.104 значение поля "Лист", если листов - один..  Спасибо за напоминание, сейчас как раз пишу модуль для полностью автоматизированного создания рамок по данному ГОСТу, использование вашего варианта как раз пригодится!

Спасибо получилось) По вашему описанию просто сначало делал так в которой находится это слово (т.е. в скобках писал где это слово)  { { =(3+ PAGE ) } }

Сложные вложенные поля тяжеловато создавать потому, что нужно чётко представлять куда и что писать. Но если поле уже отлажено, то записать можно например так:

Sub CreateField()
  Dim oFld As Field
  With Selection
    .Fields.Add Selection.Range, wdFieldIf, "", False
    .MoveUntil "F"
    .MoveRight , Count:=2
    .Fields.Add Selection.Range, wdFieldPage, "", False
    .TypeText " < 4 """" "
    .Fields.Add Selection.Range, wdFieldPage, "", False
  End With
End Sub

viter.alex - ваш код не работал, пока в него не вставил конструкцию:

.Fields.ToggleShowCodes

перед движением курсора, если это не сделать, то получается ерунда..
Изменил код для своего условия (если страниц в документе больше одной, то в данном поле печатать 1, если одна страница, ничего не печатать - для штампа первой страницы по ГОСТ 2.104)
 

Dim oFld As Field
  With Selection
    .Fields.Add Selection.Range, wdFieldIf, "", False
     .Fields.ToggleShowCodes
    .MoveUntil "F"
    .MoveRight , Count:=2
    .Fields.Add Selection.Range, wdFieldNumPages, "", False
    .TypeText " > 1 1 "" "
   .Fields.Update
   End With

Главное, что заработало.. Ну а вставить дальше в код, дело техники, просто указать другой диапазон выделения..
Спасибо за пример! Пока в инете не прочитал, как работает IF c полями, ничего не мог понять, как прочитал - все встало на свои места в голове..

Отредактировано andrkar (16.04.2010 17:46:47)

нужно видеть документ

Только скажите что нужно сделать, я хочу сам попробовать исправить

Отредактировано king1990 (23.06.2010 22:26:27)

http://wordexpert.ru/forum/viewtopic.php?id=285
А этот макрос из готовых решений не пробовали использовать??
НО, в любом случае сначала необходимо удалить все лишние разделы.. Иначе и сами запутаетесь и других запутаете!!!
PS. Как нормоконтролер скажу - документ оформлен безобразно! Но, раз читаете форум и сайт - есть куда расти!

Я не заметил, чем, кроме как номером страницы у вас отличаются колонтитулы. А если нужно, чтобы они отличались, у колонтитулов есть флаг "Как в предыдущем", который можно снять. В параметрах страницы также можно выставить флаг "Отличать колонтитул первой страницы", для того, чтобы различались колонтитулы с большим штампом и следующие листы. Для того, чтобы пункт начинался с новой страницы, достаточно в свойствах абзаца установить соответствующий флаг.
Ну а по оформлению:
- если делать заголовки стилями "Заголовок 1" и далее, то содержание можно будет сформировать автоматически".
- абзацный отступ сделан табуляцией, а не задан в параметрах абзаца.
- для подобных документов выравнивание текста намного лучше смотрится, когда выравнивание - по ширине.
- зачем сделаны разрывы раздела на текущей странице - совсем непонятно, форматирование текста до и после разрыва абсолютно ничем не отличается...
- вообще не используются стили - что очень затруднит вам в дальнейшем нормально оформление документа - оформление каждого абзаца придется менять вручную.
- заголовки, занимающие более одной строки разбиты на несколько абзацев, хотя должны быть в одной строке - для правильного автоматического формирования содержания.
- в тексте, после знаков препинания отсутствуют пробелы в некоторых местах.
- абсолютно непонятно, зачем текст заголовков в некоторых местах перенесен в колонтитул???
- на 19 листе рамка вообще покоцанная..
- очень много пустых знаков абзаца и по нескольку разрывов на одной странице, которые там не нужны...

И это только после просмотра документа по диагонали, текст я вообще не читал..

а со страницами - удаляйте разделы все, кроме тех, где ориентация страниц другая, используйте нормальные поля номера страницы или изменить его, как описано мной выше в данной же теме.

Ну а также можете сделать заказ на оформление, думаю, никто не откажется заработать на своих знаниях, а заодно и вам помочь.

Отредактировано andrkar (23.06.2010 22:00:26)