OA问题:如何将图章(bmp,jpg)插入到word中去!

Question

要求:
1.delphi
2.最好能插入到指定位置
今夜在线给分!!!!!!!!!!

Answer 1

图片的插入可以试试用...
public
    { Public declarations }
    wordapp:variant;
implementation
uses ComObj;
------------------------------
 wordapp:=CreateOLEObject('Word.Application');
 WordApp.visible:=true;
 image1.Picture.LoadFromFile('d:\leon\rpt\1.bmp');
 ClipBoard.Assign(image1.Picture.Bitmap);
 WordApp.Documents.Item(1).Books.Item('img1').range.paste;

Answer 2

function PrnWordInsert(var imgInsert:TImage;sBookMark:String=''):boolean;var wRange:Variant;iRangeEnd:Integer;begin  try    if sBookMark='' then    begin      //在文档末尾      iRangeEnd:=wDoc.Range.End-1;      if iRangeEnd<0 then iRangeEnd:=0;      wRange:=wDoc.Range(iRangeEnd,iRangeEnd);    end else begin      //在书签处      wRange:=wDoc.Range.Goto(wdGoToBook,,,sBookMark);    end;    if imgInsert.Picture.Graphic<>nil then    begin      Clipboard.Assign(imgInsert.Picture);      wRange.Paste;    end else begin      wRange.InsertAfter('照片');    end;    result:=true;  except    result:=false;  end;end;

Answer 3

先复制到粘贴板中，然后粘贴到word中

Answer 4

fShowWord.olecWord.OleObject.Application.Selection.InlineShapes.AddPicture(FileName:='C:\Temp.bmp');//fShowWord 窗体实例
//olecWord OleContainer还有很多操作，可以参看VBA。office安装带有。