Скачать: CL | DM;

Перенос JPEG или BMP в MS Word   Найти похожие ветки 

← →
inew   (2006-10-02 09:22) [0]

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

---

← →
Думкин ©   (2006-10-02 11:23) [1]

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

---

← →
guav ©   (2006-10-02 14:23) [2]

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


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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c