100分送给你！！！（word的问题）如果您能解决此问题，再追加！！！

Question

在C:\Program Files\Borland\Delphi6\Demos\ActiveX\OleAuto\SrvComp\word\中有现成的例子
如果编译错误修改如下
if ChkBoxNewDoc.Checked then
    begin
     WordApplication.Documents.Add(Template, NewTemplate,emptyparam,emptyparam);
      {Assign WordDocument component}
      WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
    end;这样就可以了

Answer 1

delphi光盘上不是有例子么
再看看msdn，easy now

Answer 2

笨办法,使用Clipboard:  MyFormat : Word;
  AData    : THandle;
  APalette : HPALETTE;
begin
    Image1.Picture.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
    WordDocument.Sentences.Last.Paste;
end;