var
Clipboard : TClipboard;
bmp : TBitmap;
begin
wordapplication.ActiveDocument.Content.SetRange(0,Wordapplication.Selection.StoryLength);
wordapplication.ActiveDocument.Content.Select;
wordapplication.ActiveDocument.Content.Copy; //全选word内容并且复制
Clipboard := TClipboard.Create;
image1.Picture.Assign(Clipboard);
bmp := TBitmap.Create;
with Bmp do
begin
Height:=image1.Picture.Metafile.Height;
Width:=image1.Picture.Metafile.Width;
Canvas.Draw(0,0,image1.Picture.Metafile);
SaveToFile('d:/test.bmp');
Free;
end;
Clipboard.Free;
end;
这个是从前看到别人做的word到bmp的，你可成excel的来试试看，我认为方法是一样的
