Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
ISH_2021
Member

Откуда:
Сообщений: 4
Добрый день.
Подскажите, как указать из DELPHI, что нужно начать нумеровать страницы с цифры, например, 23?
Суть: есть шаблон. Он открывается из DELPHI. Пользователь в WORD заполняет текст. А перед сохранением текста нужно в DELPHI проставить номера страниц не с 1, а с, например,23.
Файл с шаблоном /пустым/ такой - ТИ1_07_06_пустой.docx
А после того, как пользователь поработал с шаблоном, WORD проставил номера страниц с 1 по 2 (см. файл ТИ1_07_06_2021.docx)
Но командами DELPHI /перед сохранением текста файла/ нужно изменить нумерацию страниц на 23, 24 (вместо 1,2). [вот это не знаю как сделать]
И потом сохранить итоговый файл.

К сообщению приложен файл (ТИ1_07_06_пустой.docx - 25Kb) cкачать

Сообщение было отредактировано: 7 июн 21, 12:08
7 июн 21, 12:17    [22332193]     Ответить | Цитировать Сообщить модератору
 Re: WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
ISH_2021
Member

Откуда:
Сообщений: 4
Это второй файл заполненный

К сообщению приложен файл (ТИ1_07_06_2021.docx - 27Kb) cкачать
7 июн 21, 12:19    [22332197]     Ответить | Цитировать Сообщить модератору
 Re: WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4664
ISH_2021,

Для таких случаев придумали сохранение макросов.
7 июн 21, 12:53    [22332221]     Ответить | Цитировать Сообщить модератору
 Re: WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
ISH_2021
Member

Откуда:
Сообщений: 4
Ага. Макрос вот такой начать нумерацию страниц с 23

    With Selection.HeaderFooter.PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = 23
    End With

Пытаюсь на DELPHIсделать так:

  pWord:=GetOleObject('Word.Application');
  pWord.Visible:=true;  
  s_path:='F:\'; 
  name_f:=s_path+'\ТИ1_07_06_пустой.docx';

  YourWordDocument := name_f;
  pWord.Documents.Open(YourWordDocument, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  Doc := pWord.ActiveDocument;

  Doc.Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection:=true;
  Doc.Selection.HeaderFooter.PageNumbers.StartingNumber:=23;

Выдает ошибку: Metod 'Selection ' not supported by automation object
Подскажите, как правильно макрос перевести на Delphi!

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.


Сообщение было отредактировано: 8 июн 21, 17:13
8 июн 21, 04:38    [22332628]     Ответить | Цитировать Сообщить модератору
 Re: WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4664
ISH_2021
Подскажите, как правильно макрос перевести на Delphi!

//добавляем колонтитул и работаем с нумерацией
 App.ActiveDocument.Sections.Item(1).Headers.Item(1).PageNumbers...
 //добавляем текст нижний колонтитул
 App.ActiveDocument.Sections.Item(1).Footers.Item(1).range.Text:=...


Сообщение было отредактировано: 8 июн 21, 17:13
8 июн 21, 11:08    [22332722]     Ответить | Цитировать Сообщить модератору
 Re: WORD: как указать из DELPHI с какой цифры начать нумерацию страниц  [new]
ISH_2021
Member

Откуда:
Сообщений: 4
Gerasimenko, Спасибо за помощь!!! ЗАРАБОТАЛО!
15 июн 21, 05:21    [22335213]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить