求，word文件打印成彩色图片的方法

Question

就是把office word 文档转换成图片JPG，有控件最好.

Answer 1

procedure wordtojpg(fileparth:string);
var
   bmp:TPicture;
   FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,
PasswordDocument,PasswordTemplate, Revert,
WritePasswordDocument,WritePasswordTemplate,Format:OleVariant;
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
    try
             dmMain.WordApplication1.Connect;
             dmMain.WordApplication1.Visible:=false;
             FileName:=fileparth+'.doc';
             ConfirmConversions:=False;
             ReadOnly:=False;
             AddToRecentFiles:=False;
             PasswordDocument:='';
             PasswordTemplate:='';
             Revert:=True;
             WritePasswordDocument:='';
             WritePasswordTemplate:='';
             Format:=wdOpenFormatDocument;
             SaveChanges := WdDoNotSaveChanges; 
             OriginalFormat := UnAssigned;
             RouteDocument := UnAssigned;
             dmMain.WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
             dmMain.WordApplication1.Selection.WholeStory;
             dmMain.WordApplication1.Selection.CopyAsPicture;
             sleep(500);
             bmp := TPicture.Create;
             bmp.Assign(ClipBoard);
             clipboard.Close;
             bmp.SaveToFile(fileparth+'.jpg');
    finally
            bmp.Free;
            dmMain.WordApplication1.Documents.Close(SaveChanges, OriginalFormat, RouteDocument);
            dmMain.WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
            dmMain.WordApplication1.Disconnect;
    end;
end;

Answer 2

用控件的话，adobe的控件不错，可以直接把word转成pdf文档，pdf转图片应该不难