Изменить размер шрифта нумерации страниц

[alexan0308]

Здравствуйте. Как добавить автоматически нумерацию страниц я представляю. Но как при этом указать шрифт и размер? и расположить на 2-3 мм пониже, так как иногда почему то "прилипает" к тексту.

Еще бы хотелось узнать параметры уже имеющейся нумерации. То есть основная задача сделать 12пт и Times New Roman, а если оно в документе таково и есть, не менять...

Узнать с помощью записи макроса не получается, блокируется поле номера страницы...

[Скрипт]

alexan0308, какая версия у вас программы "Word" - 2003, 2010 или другая?

[alexan0308]

Ну хотел бы чтобы работало во всех версия ворд, начиная с 2003... если в 2003 невозможно, то в 2010

[Скрипт]

Условия тестирования кода:
колонтитул в первом разделе в активном документе пустой.

Вставка номера страницы и прямое форматирование номера страницы (прямое форматирование - это форматирование текста без использования стилей):

Sub Procedure_1()

    Dim mySection As Word.Section
    Dim myPageNumberRange As Word.Range
    
    '1. Даём VBA-имя первому разделу в документе.
    Set mySection = ActiveDocument.Sections(1)
    
    '2. Вставляем виртуальную закладку "myPageNumberRange" 
        'в обычный нижний колонтитул (всего 3 вида колонтитулов).
    Set myPageNumberRange = mySection.Footers(wdHeaderFooterPrimary).Range
    
    '3. Вставляем в то место, где находится закладка, номер страницы.
        'Номер страницы - это "поле".
    'Часть кода получена с помощью макрорекордера.
    myPageNumberRange.Fields.Add Range:=myPageNumberRange, Type:=wdFieldEmpty, _
        Text:="PAGE", PreserveFormatting:=True
        
    '4. Форматируем фрагмент колонтитула, где находится виртуальная закладка.
    With myPageNumberRange
    
        .Font.Size = 12
        .Font.Name = "Times New Romans"
    
    End With

End Sub

[Скрипт]

Вставка номера страницы и применения к номеру страницы стиля "Номер страницы". Это позволит в дальнейшем, если вдруг будут изменения в оформлении документов, изменять не каждый номер страницы отдельно, а просто, изменив параметры стиля "Нижний колонтитул":

Sub Procedure_2()

    Dim mySection As Word.Section
    Dim myPageNumberRange As Word.Range
    
    Set mySection = ActiveDocument.Sections(1)
    Set myPageNumberRange = mySection.Footers(wdHeaderFooterPrimary).Range
    myPageNumberRange.Fields.Add Range:=myPageNumberRange, Type:=wdFieldEmpty, _
        Text:="PAGE", PreserveFormatting:=True
    
    'Форматируем стиль, который применим к номеру страницы.
    'Некоторые стили имеют специальные названия, что удобно использовать,
        'если макросу надо будет работать в программах "Word"
        'с разными языками.
    With ActiveDocument.Styles(wdStylePageNumber)
        .Font.Size = 12
        .Font.Name = "Times New Romans"
    End With
    
    'Применяем к фрагменту нижнего колонтитула, где находится
        'виртуальная закладка "myPageNumberRange", стиль "Нижний колонтитул".
    With myPageNumberRange
    
        .Style = ActiveDocument.Styles(wdStylePageNumber)
    
    End With

End Sub

[alexan0308]

Ок, спасиб.....