| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перенос JPEG или BMP в MS Word [D6, D7, 2000, XP]

inew ©   (2006-10-02 09:22:00) 

Подскажите, как перенести из программы изображение формате JPEG в MS Word.
С текстом всё понятно WordObject.Selection.Text:=’123’;
А вот как с изображениями?

---

guav   (2006-10-02 14:23:00) [1]

или сохранить картинку во временный файл и вставить оттуда


function GetTempFileName: string;
var
 Path, FileName: array[0..MAX_PATH] of Char;
begin
 if GetTempPath(MAX_PATH, Path) = 0 then
   RaiseLastOSError;
 if Windows.GetTempFileName(Path, 'plx', 0, FileName) = 0 then
   RaiseLastOSError;
 Result := FileName;
end;

procedure DoExportBitmapToWord(Bitmap: TGraphic);
var
 WD, Range: OleVariant;
 FileName: string;
begin
 FileName := GetTempFileName;
 Bitmap.SaveToFile(FileName);
 try
   WD := NewWordInstance;
   try
     Range := WD.Documents.Add.Content;
     Range.InlineShapes.AddPicture(FileName := FileName,
       LinkToFile := False, SaveWithDocument := True);
   finally
     WD.Visible := True;
   end;
 finally
   DeleteFile(PChar(FileName));
 end;
end;

---

Думкин   (2006-10-02 11:23:00) [2]

WordObject.Selection.Paste
Предварительно загрузить в буфер обмена картинку.

---

Наверх