//插入图片
var 
  WordApp,WordDoc:variant;
begin
  WordApp :=CreateOLEObject('Word.application');
  WordDoc :=WordApp.Documents.Add;
  WordApp.visible:=True;
 WordDoc.Shapes.AddPicture('D:\Tencent\QQ\353682655\image\{57AA5CC0-F7BA-4421-A550-D60A1E2E0D85}.JPG');
end;

//统计word文档中的字数:

  uses   ComObj;  
   
  const  
      wdDialogToolsWordCount   =   $000000E4;  
   
  var  
      WordApp,WordDoc,WordDialog:OleVariant;  
   
  begin  
      WordApp:=CreateOleObject('Word.Application');  
      WordDoc:=WordApp.Documents.Open('E:\Test.Doc');  
  //     WordApp.Visible:=True;  
      WordDialog:=WordApp.Dialogs.Item(wdDialogToolsWordCount);  
      WordDialog.Execute;
      Memo1.Lines.Add('字数：'+InttoStr(WordDialog.Words));  
      Memo1.Lines.Add('字符数(不计空格)'+InttoStr(WordDialog.Characters));  
      Memo1.Lines.Add('字符数(计空格)'+InttoStr(WordDialog.CharactersIncludingSpaces));  
      WordDoc.Saved:=True;  
      WordDoc.Close;  
      WordApp.Quit;  
      WordDialog:=Unassigned;  
      WordDoc:=Unassigned;  
      WordApp:=Unassigned;  
  end;



本文来源：http://blog.csdn.net/houyichong/archive/2007/08/13/1741022.aspx