Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
alexan0308
61 / 45 / 4
Регистрация: 07.06.2011
Сообщений: 378
Записей в блоге: 2
1

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

21.03.2013, 16:40. Просмотров 2543. Ответов 4
Метки нет (Все метки)

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

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

Узнать с помощью записи макроса не получается, блокируется поле номера страницы...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2013, 16:40
Ответы с готовыми решениями:

Как изменить размер шрифта Canvas?
Подскажите пожалуйста, как изменить размер шрифта canvas?

Delphi - Dynamic Skin Form. Не могу изменить размер шрифта
Не могу изменить размер шрифта у кнопки spSkinButton1. Я изменяю у него...

В книге n страниц, сколько цифр будет использовано для нумерации?
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d:integer; begin...

Изменить размер шрифта в редакторе Дельфи
Как изменить размер шрифта в юните делфи? У меня большой монитор и я смотрю на...

Как изменить размер TImage под текущий размер Picture ?
Доброго времени суток! Есть задача (Delphi 7). В TImage загружается Picture с...

4
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26130 / 17523 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
21.03.2013, 17:30 2
Нумерации каких страниц, можно уточнить? В Word-е, что-ли?
0
alexan0308
61 / 45 / 4
Регистрация: 07.06.2011
Сообщений: 378
Записей в блоге: 2
21.03.2013, 17:34  [ТС] 3
Цитата Сообщение от UI Посмотреть сообщение
Нумерации каких страниц, можно уточнить? В Word-е, что-ли?
Ах, да )) в Word. Надо создать подраздел COM ))
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26130 / 17523 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
21.03.2013, 18:56 4
В зависимости от того, где показываются номера страниц (в Header-е или в Footer-е), вот так:
Delphi
1
2
3
4
5
6
7
8
9
10
uses ..., WordXP;
 
  wordapp.documents.open(widestring(fn));
  wordapp.ActiveDocument.Sections.Item(1).{Headers}Footers.
    Item(wdHeaderFooterPrimary).PageNumbers.Item(1).Select;
  wordapp.selection.font.size := 22; // Далее можно менять и сам шрифт, и все что нужно
 
  // Следующие 2 строки - чтобы привести страницу к изначальному виду
  wordapp.ActiveWindow.Panes.Item(2).Close;
  wordapp.ActiveWindow.View.Type := wdPrintView;
(проверялось на Delphi XE2 + Office XP)
1
alexan0308
61 / 45 / 4
Регистрация: 07.06.2011
Сообщений: 378
Записей в блоге: 2
22.03.2013, 00:18  [ТС] 5
проверил на Delphi XE3 + Office 2010 =)

Добавлено через 3 часа 59 минут
Страницы перестали везде определяться ((
Delphi
1
2
3
var Straniza : integer; 
...
Straniza:=Selection.Information[3];
Всегда -1...
0
22.03.2013, 00:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2013, 00:18

Размер шрифта
Как сделать чтобы размер шрифа можно было изменять в отдельном окне как в...

Размер шрифта
Вот столкнулся с такой проблемкой,известно что при изменении размера шрифта в...

Размер шрифта в Delphi XE
Подскажите, где можно увеличить размер шрифта в самой среде Delphi, а не в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru