Доброго времени дня. Помогите пожалуйста с реализацией задачи. Мой блок программы импортирует текст из MEMO в блокнот, а надо в MS Word.

try
  Fo_First.Memo2.Lines.LoadFromFile(Folder+'mo01061.txt');
except
  on EFOpenError do
  begin
    tryexcept:=tryexcept+chr(13)+'mo01061.txt';
    tryexcepterror:=1;
  end;
end;
if tryexcepterror=0 then
begin
  for i:=1 to 6 do Fo_First.Memo2.Lines.Delete(0);
  while true do
  begin
    Fo_First.Memo2.Lines.Delete(18);
    LinesTMP:=Fo_First.Memo2.Lines[18];
    if LinesTMP[1]='-' then Break;
  end;
  Fo_First.Memo1.Text:=Fo_First.Memo1.Text+Fo_First.Memo2.Text;
end;
tryexcepterror:=0;
  n:=n+1;
  Fo_First.ProgressBar1.Position:=n;
Fo_First.Memo1.Lines.SaveToFile(Folder+'mo01001.txt');
Fo_First.Memo1.Lines.Clear;

И ещё требуется написать бат-файл, который скопирует в буфер ряд файлов и запустит некую программу(которая перекодирует файлы и сохраняет их под тем же именем и в той же директории но ставит тильду перед именем) и удалит старые файлы, потом уберёт тильду в имени. Залью исходники и файлы с которыми работаю,по желанию, мб кто-то заинтересуется

А>И ещё требуется написать бат-файл, который скопирует в буфер ряд файлов и запустит некую программу(которая перекодирует файлы и сохраняет их под тем же именем и в той же директории но ставит тильду перед именем) и удалит старые файлы, потом уберёт тильду в имени. Залью исходники и файлы с которыми работаю,по желанию, мб кто-то заинтересуется

Используй TWordMemo, там все просто!

Здравствуйте, Аноним, Вы писали:

А>>И ещё требуется написать бат-файл, который скопирует в буфер ряд файлов и запустит некую программу(которая перекодирует файлы и сохраняет их под тем же именем и в той же директории но ставит тильду перед именем) и удалит старые файлы, потом уберёт тильду в имени. Залью исходники и файлы с которыми работаю,по желанию, мб кто-то заинтересуется

А>Используй TWordMemo, там все просто!
Если б знал, то не создавал бы тему на форуме

Здравствуйте, Аноним, Вы писали:

А> Fo_First.ProgressBar1.Position:=n;
А>Fo_First.Memo1.Lines.SaveToFile(Folder+'mo01001.txt');
А>Fo_First.Memo1.Lines.Clear;

Memo1.Lines.SaveToDocFile

var wordApp: Variant;
begin
  wordApp := CreateOleObject('Word.Application');
  wordApp.Documents.Add;
  wordApp.ActiveDocument.Range.Text := Memo1.Lines.Text;
  wordApp.ActiveDocument.SaveAs('doc.doc');
  wordApp.ActiveDocument.Close;
end;

Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, Аноним, Вы писали:

А>> Fo_First.ProgressBar1.Position:=n;
А>>Fo_First.Memo1.Lines.SaveToFile(Folder+'mo01001.txt');
А>>Fo_First.Memo1.Lines.Clear;

А>Memo1.Lines.SaveToDocFile

...о существовании вкладки Servers и компоненты TWordApplication в частности они знали, но особого значения этому не придавали
...и о Clipboard
...и об метафайлах
...и о том, что MS Word поддерживает формат HTML
...и о Google вообще ничего не слышали
...про FAQ тоже



P.S. Я не удивлюсь, что под "документом" понимается текстовый файл с расширением .DOC