Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / WORD: как указать из DELPHI с какой цифры начать нумерацию страниц / 6 сообщений из 6, страница 1 из 1
07.06.2021, 12:17
    #40076054
ISH_2021
ISH_2021
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
Добрый день.
Подскажите, как указать из DELPHI, что нужно начать нумеровать страницы с цифры, например, 23?
Суть: есть шаблон. Он открывается из DELPHI. Пользователь в WORD заполняет текст. А перед сохранением текста нужно в DELPHI проставить номера страниц не с 1, а с, например,23.
Файл с шаблоном /пустым/ такой - ТИ1_07_06_пустой.docx
А после того, как пользователь поработал с шаблоном, WORD проставил номера страниц с 1 по 2 (см. файл ТИ1_07_06_2021.docx)
Но командами DELPHI /перед сохранением текста файла/ нужно изменить нумерацию страниц на 23, 24 (вместо 1,2). [ вот это не знаю как сделать ]
И потом сохранить итоговый файл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2021, 12:19
    #40076056
ISH_2021
ISH_2021
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
Это второй файл заполненный
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2021, 12:53
    #40076073
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
ISH_2021,

Для таких случаев придумали сохранение макросов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2021, 04:38
    #40076268
ISH_2021
ISH_2021
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
Ага. Макрос вот такой начать нумерацию страниц с 23

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
    With Selection.HeaderFooter.PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = 23
    End With


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

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
  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 для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2021, 11:08
    #40076306
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
ISH_2021
Подскажите, как правильно макрос перевести на Delphi!

Код: pascal
1.
2.
3.
4.
//добавляем колонтитул и работаем с нумерацией
 App.ActiveDocument.Sections.Item(1).Headers.Item(1).PageNumbers...
 //добавляем текст нижний колонтитул
 App.ActiveDocument.Sections.Item(1).Footers.Item(1).range.Text:=...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2021, 05:21
    #40077557
ISH_2021
ISH_2021
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD: как указать из DELPHI с какой цифры начать нумерацию страниц
Gerasimenko, Спасибо за помощь!!! ЗАРАБОТАЛО!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / WORD: как указать из DELPHI с какой цифры начать нумерацию страниц / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]