请教两个问题。

Question

1-如何判断本地计算机上是否安装了MICROSOFT OFFICE？
2-如何根据用户指定的路径和名字动态创建一个WORD文档？
谢谢！

Answer 1

一个Excel的，word和这个差不多。     
 try
      //创建OLE对象Excel Application与 WorkBook
      eclApp:=CreateOleObject('Excel.Application');
      wkBook:=CreateOleobject('Excel.Sheet');
      except
      ShowMessage('您的机器里未安装Microsoft Excel。');
      Exit;
      end;wkBook.saveas(s);//s是要保存的文件名
wkBook.Close;
eclApp.Quit;
eclApp:=Unassigned;