из Delphi Записать строку в Word полсе чего вставить туда картинку.

[Maddy]

как запистать строку в ворд я знаю. подскажите как вставить в конеу строки Картинку из Delphi.

[ViNcHeStEr]

Вроде так:

Clipboard.Assign(Image1.Picture);
WordApplication1.Selection.Paste;

[Скандербег]

Открываем Word. Запускаем запись макроса. Вставляем картинку тем способом, который нужен. Останавливаем запись макроса. Смотрим в макросах что получилось. Копируем строки из текста макроса в приложение. Поправляем текст сообразно требованиям Delphi.
Например, может получиться следуещее:

  WApp.Selection.InlineShapes.AddPicture(FileName := <имя файла>, 
                       LinkToFile:=False, SaveWithDocument:=True)

Здесь WApp : Variant; ссылка на объект MS Word.

[Maddy]

  WApp.Selection.InlineShapes.AddPicture(FileName := <имя файла>, 
                       LinkToFile:=False, SaveWithDocument:=True)

Здесь WApp : Variant; ссылка на объект MS Word.

Спасибо. Использовал второй вариант. он работал Вычера А тут блин
Мистика какая-то - Написал вчера код

Вчера работал как надо все вставляет сохраняет. в общем все отлично. Занимался другой совершенно частью кода. Сегодня открываю А он, [Цензура] не работает! Что может быть не пойму. гляньте код может чего присоветуете
вот Uses

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,  Variants,DB, OleServer, ADODB,WordXP;

вот код процедуры записи картинки в ворд (ну там еше текст до картинки вставляеться из мемо окна)

procedure TResultForm.Button3Click(Sender: TObject);
var jpeg:Word;
Vr,Vcon,Vex,Vrange: OleVariant;
Picture1: file;
Stroka1,Stroka2:string;
begin
savedialog1.InitialDir:=extractfilepath(paramstr(0))+'Documentation';
savedialog1.FileName:=MassivImenTablic[IntName]+' '+NameArray[IntName];
if savedialog1.Execute then begin
   Memo1.Lines.SaveToFile(Savedialog1.filename);//Заппись текста в файл.
  try MainForm.wrdplctn1.Connect;
   Stroka1:=Savedialog1.filename;//Savedialog1.filename
   Stroka2:=savedialog1.InitialDir+'@';
   Delete(Stroka1,1,pos('@',Stroka2));
   Vr:=Stroka1;   // +'""'
  Vcon:=58;
  Vex:=wdOpenFormatAuto;
 {Макрос открытия в Ворде
ChangeFileOpenDirectory "D:\Eeuy\Iie DCS\Help\"
    Documents.Open FileName:="""I ?aaioa i?ia?aiiu.doc""", ConfirmConversions _
        :=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""}
  MainForm.wrdplctn1.ChangeFileOpenDirectory(savedialog1.InitialDir);
  MainForm.wrdplctn1.Documents.Open
(Vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,Vex,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam);
// ВОТ на этой строке выпадает ошибка  
// proect DCS.exe raised eception class EOleExeption with message "Ошибка на сервере" 
  //MainForm.wrdplctn1.Documents.Open
//(Vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
//EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
//EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  Vr:=wdStory;
  MainForm.wrdplctn1.Selection.EndKey(Vr,EmptyParam);
  AssignFile(Picture1,PathTo_DB_File+'Avatar.bmp');
  img1.Picture.SaveToFile(PathTo_DB_File+'Avatar.bmp');
  Vrange:=EmptyParam;
  Vex:=True;
  Vcon:=False;
  MainForm.wrdplctn1.Selection.InlineShapes.AddPicture(PathTo_DB_File+'Avatar.bmp',Vcon,Vex,Vrange);
  DeleteFile(PathTo_DB_File+'Avatar.bmp');
  Vr:=Savedialog1.FileName;
  Vex:=wdFormatDocument;
  MainForm.wrdplctn1.ActiveDocument.SaveAs
(Vr,Vex,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam);
  except MainForm.wrdplctn1.Disconnect;  end;
  end;
end;

[Maddy]

На тему мистики Если кому интересно. На сколько я понял просто в тексте нет процедуры закрытия файла. И вот в первый день когда я дописал - все опробовал наоткрывал разных файлов, которые не закрылись после сохранения. И после перезагрузки компьютера Ворд сделал их несохраннеными документами , которые сначала надо посмотреть и исправить и закрыть , прежде чем вносить все новые и новые изменения. Будьте внимательны.