Вывод данных из Edit в Word файл

[xxbesoxx]

короче с TImage в Word

1.

uses Clipbrd;

2. меня процедур

procedure TForm1.OpenWord;
 var
   Word: variant;
   ris1 : TImage;
begin
 try
  Word := CreateOleObject('Word.Application');
  // отображение на экране
   Word.Visible := True;
  // создание нового документа
  Word.Documents.Add;
  // Загрузить картинки
   Clipboard.Assign(Image1.Picture);  // Подклуючим модул Clipbrd
   Word.ActiveDocument.Range.Paste;   // Вставляем картинки 
     // 	Вывод данных из Edit в Word
   Word.ActiveDocument.Range.InsertAfter(Edit1.Text);

 except
  ShowMessage('Не могу запустить MS Word');
 end;

end;

[NURKZ]

А ты молодец xxbesoxx!!! Вечная уважуха!! ты помог мне вставить картинкув Word, без этих назойливых фатальных ошибок! только вот есть одно "НО". Почему-то оно вставляется в ворд, но убирает все из документа. Остается лишь картинка и больше ничего. Я надеялся вставить его вместо тега %IMG%

Привожу код, но я сделал как-то по своему и вставляется некорректно:

procedure TForm1.Button3Click(Sender: TObject);
 var
  word : variant;
  ris1 : TImage;
  procedure FindAndReplace (SearchStr, ReplaceStr : string);
begin
    word.Selection.Find.Text := SearchStr;
    word.Selection.Find.Replacement.Text := ReplaceStr;
    word.Selection.Find.Execute (Replace := 2);
end;
begin
    try
      Word := CreateOleObject('Word.Application');
    except
      MessageBox (Handle, 'Не установлен Microsoft Office Word. Формирование ' +
                          'диакарты невозможно.', 'Ошибка',
                          MB_OK or MB_ICONERROR);
      exit;
    end;
  word.documents.open ('C:\LTKSoft\Diagnostic.docx');
  Clipboard.Assign(Image1.Picture);
  FindAndReplace ('%NAMECTO%', Edit8.Text);
  FindAndReplace ('%GRNZ%', Edit1.Text);
  FindAndReplace ('%VLADELETS%', Edit13.Text);
  FindAndReplace ('%MODELTS%', Edit2.Text);
  FindAndReplace ('%GODVYPUSKA%', Edit3.Text);
  FindAndReplace ('%SERNUMSRTS%', Edit4.Text);
  FindAndReplace ('%RAMA%', Edit6.Text);
  FindAndReplace ('%KUZOV%', Edit5.Text);
  FindAndReplace ('%DKNUMBER%', Edit7.Text);
  FindAndReplace ('%MINMASS%', Edit10.Text);
  FindAndReplace ('%MAXMASS%', Edit11.Text);
  FindAndReplace ('%PROBEG%', Edit12.Text);
  FindAndReplace ('%TOPLIVO%', Edit14.Text);
  FindAndReplace ('%DATE%', Edit9.Text);
  FindAndReplace ('%IMG%', Word.ActiveDocument.Range.Paste);
  word.Visible := true;
  word := Unassigned;
end;

[NURKZ]

Вот сюда он должен попасть:

Привожу скрин документа:

[xxbesoxx]

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

Потому что надо реализовать отступ, переход на новы строк ...
смотрим http://www.webdelphi.ru/2010/02/micr...word-v-delphi/
думаем и делаем

procedure TForm1.OpenWord;
 var
   Word, WordTable: variant;
begin
 try
  Word := CreateOleObject('Word.Application');
  // отображение на экране
   Word.Visible := True;
  // создание нового документа
  Word.Documents.Add;
  // Загрузить картинки
   Clipboard.Assign(Image1.Picture);  // Подклуючим модул Clipbrd
   Word.ActiveDocument.Range.Paste;   // Вставляем картинки
     // 	Вывод данных из Edit в Word
    Word.ActiveDocument.Range.InsertAfter('Марка:'+'   '+ Trim(Edit1.Text)+ #13#10) ;
    Word.ActiveDocument.Range.InsertAfter('Трансмиссия:'+'   '+ Trim(Edit2.Text) + #13#10);
    Word.ActiveDocument.Range.InsertAfter('Привод:'+'   '+ Trim(Edit3.Text) + #13#10);
    Word.ActiveDocument.Range.InsertAfter('Пробег, км:'+'   '+ Trim(Edit4.Text) + #13#10);
 except
  ShowMessage('Не могу запустить MS Word');
 end;

end;

в общем то я не мучал так на это Word ... проще реализовать это FastReport

[Prohas]

У меня задача по автоформату текста. При Экспорте тестового файла из программы Mp3Tag (редактор аудиотэгов мр-3 файлов), я получаю это в таком виде http://rusfolder.com/42120744. Когда вставляю это в рамку 12Х12 см (это обложка для диска), то он садиться на страничку, как попало http://rusfolder.com/42120695 - см. 1 страницу. А должно быть, как на второй или третьей страничке. То есть четко подогнано и по вертикали и по горизонтали. Прaвильного формата (2 и 3 стр.) я добиваюсь ручной работой (подгонкой), что отнимает немало времени. Я же хочу вставляя в Word сразу получать отформатированный текст, как я это делаю вручную (2 и 3 стр.). Существует ли какой-то скрипт для решения подобной задачи?