[oleg_c#]

да так и есть
// Открытие MS Word

Код:

function OpenWord(var msw: OleVariant): boolean;
begin
  try
    OpenWord := false;
   // MsWord.Documents.Add;
    msword := CreateOleObject('Word.Application');
   // MsWord.Documents.Add;
    //ShowMessage('open word'); nil
  // msword:=CreateOleObject('Word.Basic');
 //  msword.AppShow;
    OpenWord := true;
  except
    try
     // msword := CreateOleObject('com.sun.star.ServiceManager');
    except
      OpenWord := false;
    end;
  end;
end;

// Загрузка шаблона MS Word
function OpenSample(var msw: OleVariant; path: string): boolean;
begin
//ShowMessage(path);
 //msw.Documents.OpenOld(path,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);
 //msw.ConnectTo(msw.ActiveDocument);
 msw.Documents.Open(path);
  // msw.FileOpen(path);

//msw.Documents.Add(path,EmptyParam);
    OpenSample := true;
    //ShowMessage(path);
end;
  и есть