IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Объединение файлов
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Вопрос: как можно програмно объединть несколько файлов в один. Есть 10 вордовских файлов с названиями 1.doc, 2.doc, ..., 10.doc. Их нужно объединть в один файл Plan.doc, так чтобы содержимое каждого начиналось с нового листа. Может есть пример выполнения кода, для такого типа заданий?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

Репутация: -  627  +


Цитата
как можно програмно объединть несколько файлов в один
Легко:
procedure TForm1.Button1Click(Sender: TObject);
var
MsWord : Variant;
i : integer;
begin
// Ошибки не обрабатывал
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := true;
MsWord.Documents.Add;

for i := 1 to 10 do
begin
MsWord.Selection.InsertFile(FileName := Format('F:\%d.doc', [i])); // Путь укажешь сам
MsWord.Selection.InsertBreak(Type := wdPageBreak); // wdPageBreak = 7
end;

// Всё, сохраняешь новый документ, и закрываешь Word
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Цитата(IUnknown @ 20.04.2012 12:12) *

Легко:
procedure TForm1.Button1Click(Sender: TObject);
var
MsWord : Variant;
i : integer;
begin
// Ошибки не обрабатывал
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := true;
MsWord.Documents.Add;

for i := 1 to 10 do
begin
MsWord.Selection.InsertFile(FileName := Format('F:\%d.doc', [i])); // Путь укажешь сам
MsWord.Selection.InsertBreak(Type := wdPageBreak); // wdPageBreak = 7
end;

// Всё, сохраняешь новый документ, и закрываешь Word
end;


большое спасибо!!!! ещеё такой вопрос: файлы находятся в катаоге спрограммой, то есть полный путь может разный. как записать , чтобы программа постоянно брала файлы из текущего каталога и пользователя ничего не спрашивала?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

Репутация: -  627  +


MsWord.Selection.InsertFile(FileName := Format('%s\%d.doc', [ExtractFileDir(Application.Exename), i]));
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Цитата(IUnknown @ 20.04.2012 13:30) *

MsWord.Selection.InsertFile(FileName := Format('%s\%d.doc', [ExtractFileDir(Application.Exename), i]));


good.gif Спасибо!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 21:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name