摘要:        
先上图:delphi实现代码如下:procedure TForm1.ToolButton12Click(Sender: TObject);var myTable: Table;oleCount,oleUnit: Olevariant; begin //以下打开word新的文档tryWordApplication1.Connect;WordApplication1.Caption := '打印故障记录';WordApplication1.Visible := true;exceptMessageDlg('也许word没有安装,请重试', mtError, [mbO    
阅读全文