var WordApp,WordDoc:variant;begin WordApp := CreateOLEObject( 'Word.application' ); WordDoc := WordApp.Documents.Add; WordApp.visible := True; WordDoc.Shapes.AddPicture('f:\aa.bmp'); //插入图片
