procedure PasteImage(Mydoc: TWordDocument{目標Word文檔}; PASPicture: Tpicture; ParagraphsNum: integer{段落序號});
{向Word中插入圖片。}
var
Adata: Thandle; //臨時句柄變量。
Apalette: HPALETTE; //臨時變量。
MyFormat: Word; //Word類型變量
TempImage: Timage; //Image類型的臨時變量。
begin
TempImage := Timage.Create(application);//產生一個Image的實例。
tempimage.parent := nil;
TempImage.Picture.Assign(PASPicture); //
