Вставить номера страниц в виде текста

[Serge_Bliznykov]

Добрый день.

возникла одна бредовая задача.
Подскажите, пожалуйста, если у кого есть какие-нибудь идеи..

задача такая - вставить внизу страницы номера страниц. Но только не в виде полей, а в виде текста (то есть обычный текст 1, 2, 3 и т.д.)

Может кто макрос какой подсобит? ну или идейку/ссылку какую полезную даст?

Буду весьма признателен!

[Вождь]

Макрос по перебору страниц не сложен. Но судя по задаче важно еще и где вставлять: в тексте (последней строкой на странице) или в виде надписи (в районе колонтитула). Уточните...

[Serge_Bliznykov]

Вождь, прежде всего спасибо огромное за ответ!

Макрос по перебору страницен нужен.
Проще, имхо вставлять последней строчкой (я понимаю, что при этом остальные страницы "поплывут" - ничегот страшного - мне главное, чтобы после расстановки номеров страниц уже ничего не изменялось!

Про надпись я, честно говоря, вообще не подумал.
Возможно, что это даже ещё лучше будет.

Поможете?... (с любым вариантом...)

[Вождь]

Вариант для последней строки.

Public Sub Номер_страницы_в_последней_строке()

Dim D As Word.Document
Dim P As Word.Pane
Dim R As Word.Range
Dim N&
    
    Set D = ActiveDocument ' документ
    Set P = D.ActiveWindow.ActivePane ' панель
    P.View.Type = wdPrintView ' разбивка на страницы
    N = 1 ' номер страницы
    
    ' перебор страниц
    Do While N < P.Pages.Count
        ' последняя строка страницы
        With P.Pages(N).Rectangles
            With .Item(.Count).Lines
                Set R = .Item(.Count).Range
            End With
        End With
        ' вставка номера
        R.Collapse wdCollapseStart
        If R.Start <= 0 Then
        ElseIf AscW(R.Previous.Text) >= 30 Then
            R.InsertBefore vbCr
        End If
        R.InsertAfter CStr(N) & vbCr
        Set R = R.Paragraphs.Last.Range
        ' формат номера
        R.Style = wdStyleNormal
        R.ParagraphFormat.Alignment = wdAlignParagraphCenter
        ' разрыв страницы
        R.Collapse wdCollapseEnd
        R.InsertBreak wdPageBreak
        ' следующий номер
        N = N + 1
    Loop
    
    ' вставка на последней станице
    Set R = D.Range
    R.Collapse wdCollapseEnd
    R.InsertBefore vbCr & CStr(N)
    Set R = R.Paragraphs.Last.Range
    R.Style = wdStyleNormal
    R.ParagraphFormat.Alignment = wdAlignParagraphCenter
        
End Sub

Минус макроса, что в последней строке обязательно должен быть простой текст, а не например таблица. Поэтому вариант с надписью удобнее и макрос попроще, но опять же смотря для чего. Чуть позже закину...

[Serge_Bliznykov]

Вождь, спасибо большое-пребольшое!

в последней строке обязательно должен быть простой текст

в моём случае асболютно не критично- весь мой документ - исключительно текст - без стилей, форматирования и прочая, прочая... да ещё и моноширным шрифтом (Courier New)...

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

Спасибо опять таки!
p.s. Если возникнут проблемы/сложности при реализации, Вы особо не упорствуйте... Надеюсь, я не сильно много Вашего времени отнял?...

[Aent]

Serge_Bliznykov, а вариант оставить поля в клонтитуле а потом сделать
Fields.Update и Fields.Unlink вас никак не устроит ?
Или необходимо что бы номер страницы присутствовал именно в теле документа?

[Serge_Bliznykov]

Aent, спасибо!

Сообщение от Aent

Fields.Update и Fields.Unlink вас никак не устроит ?

мне стыдно признаться, но я не знаю, что это за Fields.Unlink...
можно пояснить чуток?

при печати они обновляться не будут?
А вообще, для чего нужно то, что я пытаюсь сделать:
если я выделю из этого документа, скажем 28 страницу и 100 страницу и эти две страницы перенесу в новый документ. У них останутся номера 28 и 100 в этом документе, где кроме этих страниц больше ничего не будет?
Если да - то да, такое решение вполне устроит!!!

[Sasha_Smirnov]

Сообщение от Serge_Bliznykov

что это за Fields.Unlink

Превращение полей в то, что в них вычислилось, в данном случае в текст.

Например, конструкция {page}*) при обновлении (по F9) вычисляет номер страницы, где она впечатана (неважно, в колонтитуле или в основном тексте) — происходит обновление (update) поля — и отображает его, по Shift-F9 (или Alt-F9).

А когда мы жмём Ctrl-Shift-F9 (разорвать связи), выделив это поле (или весь текст), то получаем обычный текст.
___________________________________ __
*) фигурные скобки надо вводить по Ctrl-F9

[Serge_Bliznykov]

А когда мы жмём Ctrl-Shift-F9 (разорвать связи), выделив это поле (или весь текст), то получаем обычный текст.

Спасибо!!!

не, я не такой тёмный, я знаю, что такое поля в MS Word, только не знал, что их можно превратить в текст! Теперь знаю! Спасибо за науку!

Погодите ка... А если поле в колонтитуле.
И мы превращаем это в простой текст - то что будет на каждой странице?! Или для колонитулов такой трюк проделавать нельзя?...

почему спрашиваю - потому как рабочий файл на работе -
и смогу все советы/(и ма-ма-макрос == код (с) уважаемого Вождя) проверить только завтра!

[Aent]

Большое спасибо Serge_Bliznykov за поднятие интересного вопроса.
Их к сожалению последнее время очень мало

Извините, не сообразил сразу уточнить:
Если поле в колонтитуле то всё несколько сложнее
Колонтитул (Footer) общий для всего раздела.
Отдельные Footer на каждой странице можно получить если каждая страница
оформленна отдельным разделом (Section) и убрав в колонтитуле признак
"как в предыдущем".

  .Sections(i).PageSetup.DifferentFirstPageHeaderFooter = True

По поводу разделения документа на секции
можно посмотреть: http://www.sql.ru/forum/actualthread...300911&hl=word
Вопрос не тривиальный.
При конвертировании страниц в секции можно воспользоваться в цикле и конструкцией типа

ActiveDocument.Bookmarks("\Page").Range.Cut

(Вырезав страницу - вставляем её секцией в формируемый документ)
Здесь "\Page" ссылка на предопределённую встроенную закладку Word см http://support.microsoft.com/kb/182586
В Вашем случае этим можно и обойтись (без полей )
В общем же случае сложного документа IMHO целесообразно помещать номер страницы именно в footer.
Мне как то пришлось иметь дело с документом в котором требованием заказчика было наличие в колонтитуле
хэш кода по содержанию страницы