[log1st]

В общем, дело обстоит так:
Есть папка, в которой и будет находиться само приложение(Папка может меняться). В этой папке есть еще папки-года: от 1997 до 2011(1994,1995,1996 и т.д.). В каждой папке-году есть до 200-300 файлов формата .doc.

Программа выглядит так:
Три Edit'а:

• EditRaz. Он же 'Разработка'. Туда вводится ключевое слово, состоящее из пяти(не более) цифр(только цифр).
• EditGod1. Он же 'Год от'. Туда вводится год "от", состоящий из 4(не более) цифр(только цифр).
• EditGod2. Он же 'Год до'. Туда вводится год "до", состоящий из 4(не более) цифр(только цифр).
• ButtonSearch. Она же "Поиск". Нажимается для дальнейший действий.
• EditPath. Он же "Путь". Туда вводится путь для создания документа-сборщика.

Задача:
Юзер вводит название разработки в EditRaz, год начала поиска в EditGod1, год конца поиска в EditGod2, путь создания файла .doc в EditPath и нажимает на поиск ButtonSearch. Программа ищет в подпапках документы с расширением .doc по ключевому слову(т.е., введя разработку 25101, программа может найти не только 25101.doc, но и 25101_b.doc и т.д.). Если файл найден, то копируется его содержимое(текст, таблицы, картинки и т.д.) в документ, созданный в указанной папке в EditPath. И продолжается поиск. Так и до конца папок-годов. После поиска выскакивает сообщение: 'Готово!'.

Уважаемые программисты, сможете ли вы сделать такое? И код желательно бы получить. Заранее спасибо!

[Ildar-tsr]

Раздел Разное -> Работа: предложения и спрос

[Страдалецъ]

Сделать такое конечно можно, но как уже сказали ранее - однозначно в работу.

[lmikle]

Ну, в работу, а если сам хочешь, то FindFirst/FindNext/FindClose + MatchesMask, хотя если только .doc, то можно и сразу маску задать при поиске. Пример использования можно посмотреть в справке.

[Страдалецъ]

Все несколько сложнее. Как я понял, надо не файл скопировать, а содержимое этого файла добавить к уже имеющемуся документу. Т.е. сформировать новый документ содержащий в себе содержимое всех найденных файлов, а это уже несколько другое.

[NumLock]

OLE'нька нам даст решение данной проблемы

[Ildar-tsr]

Сообщение от Страдалецъ

Все несколько сложнее. Как я понял, надо не файл скопировать, а содержимое этого файла добавить к уже имеющемуся документу. Т.е. сформировать новый документ содержащий в себе содержимое всех найденных файлов, а это уже несколько другое.

Сложнее? Что может быть сложного в WholeStory-Copy-PasteAndFormat?

[NumLock]

Код:

const
  WdStory = 6;
var
  WordApplication: OleVariant;
begin
  WordApplication:=CreateOleObject('Word.Application');
  WordApplication.Documents.Open(FileName:='D:\Projects\Новая папка\Doc1.doc');
  WordApplication.Selection.EndKey(Unit:=WdStory);
  WordApplication.Selection.TypeParagraph;
  WordApplication.Selection.InsertFile(FileName:='D:\Projects\Новая папка\Doc2.doc');
  WordApplication.ActiveDocument.SaveAs(FileName:='D:\Projects\Новая папка\Doc.doc');
  WordApplication.Quit;
end;