如何用wordapplication打开word文档

Question

如何用wordapplication打开word文档

Answer 1

贴一段代码
procedure TForm1.Button1Click(Sender: TObject); 
var 
  FileName,Template,NewTemplate,ItemIndex:OleVariant; 
begin 
  FileName:='c:\a.doc'; 
  try 
    ItemIndex:=1; 
    try 
      Wordapplication.Connect; 
    except 
      Messagebox(0,'Word 还没安装，无法生成报表！','提示', MB_OK+MB_ICONERROR); 
      Abort; 
    end; 
    Wordapplication.Visible := True; 
    WordApplication.Caption := '人员统计月报表'; 
    Template :=''; 
    NewTemplate := true; 
    WordApplication.Documents.Add(Template, NewTemplate); 
    WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));     WordDocument.SaveAs(FileName); 
    MessageBox(0,'生成报表成功','提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL); 
  except 
    on E: Exception do 
    begin 
      ShowMessage(E.Message); 
      WordApplication.Disconnect; 
    end; 
  end; 
end;