摘要： 1 uses ComObj; 2 procedure TForm1.Button1Click(Sender: TObject); 3 var 4 wdo,wdoc,wdocs : OleVariant; 5 begin 6 wdo := CreateOleObject('Word.Application'); 7 wdocs := wdo.Documents; 8 ... 阅读全文