delphi 操作word文档

标签：io   os   ar   sp   on   cti   ad   line   bs   

//第一步

try

  wordapplication1.Connect;

except

  wordapplication1.Disconnect;

  messagedlg(‘请安装Office中的Word软件！‘,mterror,[mbok],0);

  exit;

end;

// 不显示word

wordapplication1.Visible:=false;

//第二步，添加模版

template:=‘C:\模版.dot‘;

   wordapplication1.Documents.Add(template,newtemplate,emptyparam,emptyparam);

   worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));

//第三步，获取书签，插入文字

bookmark:=‘书签‘;

worddocument1.BookMarks.Item(bookmark).Select;

WordApplication1.Selection.InsertAfter(spSkinEdit1.Text);

//第四步，插入图片

bookmark:=‘图片1‘;

worddocument1.BookMarks.Item(bookmark).Select;

LinkToFile := False;

SaveWithDocument := True;

    //FPicture :=

il:= WordApplication1.Selection.InlineShapes.AddPicture(pic_filename1,LinkToFile, SaveWithDocument,EmptyParam);

//调整大小

il.Width:=150;

il.Height:=150;

   //第五步，删除标注

total:=worddocument1.Comments.Count;

while total<>0 do

begin

      worddocument1.comments.item(total).Delete;

     total:=worddocument1.comments.Count;

end;

//第6步 保存，关闭

  worddocument1.SaveAs(FileName);

   worddocument1.Close;

   wordapplication1.Disconnect;

delphi 操作word文档

标签：io   os   ar   sp   on   cti   ad   line   bs   

原文地址：http://my.oschina.net/jingshishengxu/blog/331818