1 Тема от alexan0308

  • alexan0308
  • Заблокирован
  • Неактивен
  • Зарегистрирован: 18.03.2013
  • Сообщений: 39
  • Поблагодарили: 7

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

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

2 Ответ от Alex_Gur

  • Изменить размер шрифта нумерации страниц
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

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

Какая у вас версия Word?
Вы хотите добавить нумерацию с помощью макроса или стандартным способом с помощью интерфейса?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от alexan0308

  • alexan0308
  • Заблокирован
  • Неактивен
  • Зарегистрирован: 18.03.2013
  • Сообщений: 39
  • Поблагодарили: 7

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

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

4 Ответ от Alex_Gur

  • Изменить размер шрифта нумерации страниц
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

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

К сожалению, я еще не встречал установку нумерации страниц с помощью макроса.
Если найдете решение, поделитесь им, пожалуйста, в этой ветке.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5 Ответ от alexan0308

  • alexan0308
  • Заблокирован
  • Неактивен
  • Зарегистрирован: 18.03.2013
  • Сообщений: 39
  • Поблагодарили: 7
  • За сообщение: 1

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

В общем я сделал, но у меня все на Delphi. При желании перевести на язык макросов несложно.
Итак, добавление нумерации страниц

mySection:=W.ActiveDocument.Range.Sections.item (1);
MyPageNuraber:=mySection.Footers.item(1).PageNumbers.Add(PageNumberAlignment:=wdAlignPageNumberCenter,  FirstPage:=False);

Форматирование нумерации:

W.ActiveDocument.Sections.Item(1).Footers.
    Item(wdHeaderFooterPrimary).PageNumbers.Item(1).Select;
   W.Selection.font.size:=12;

Здесь можно сделать что угодно