 Объединение файлов |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| Yurka |
Сообщение
#1
|
|
Пионер  Группа: Пользователи Сообщений: 143 Пол: Мужской Репутация:  0   |
Вопрос: как можно програмно объединть несколько файлов в один. Есть 10 вордовских файлов с названиями 1.doc, 2.doc, ..., 10.doc. Их нужно объединть в один файл Plan.doc, так чтобы содержимое каждого начиналось с нового листа. Может есть пример выполнения кода, для такого типа заданий?
|
   |
 
|
  |
Ответов
| IUnknown |
Сообщение
#2
|
 Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
MsWord.Selection.InsertFile(FileName := Format('%s\%d.doc', [ExtractFileDir(Application.Exename), i]));
|
|
|
|
| Yurka |
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 143 Пол: Мужской Репутация: 0 |
Цитата(IUnknown @ 20.04.2012 13:30)  MsWord.Selection.InsertFile(FileName := Format('%s\%d.doc', [ExtractFileDir(Application.Exename), i]));
 Спасибо!!! |
|
|
|
Сообщений в этой теме
Yurka Объединение файлов 20.04.2012 15:11
IUnknown Легко:
procedure TForm1.Button1Click(Sender: TObje… 20.04.2012 16:12
Yurka
Легко:
procedure TForm1.Button1Click(Sender: TObj… 20.04.2012 16:48 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 7.05.2024 16:01 |
Связь с администрацией: bu_gen в домене octagram.name