///////////////////////////////////////////////////////////////////////////
  #include <utilcls.h>
  #define pg OlePropertyGet
  #define ps OlePropertySet
  #define fn OleFunction
  #define pr OleProcedure
  ///////////////////////////////////////////////////////////////////////////
  Variant wd,doc;
  wd = Variant::CreateObject("Word.Application");
  wd.pg("Documents").pr("Open",FileName);//打开
  doc = wd.pg("ActiveDocument");
  wd.ps("Visible",true);
  doc.pr("Close");
  wd.pr("Quit");
  ///////////////////////////////////////////////////////////////////////