Сохранение word в xml

[Mr.Dmitry]

Здравствуйте. Нужно сохранить документ word(*.doc) в файл xml.

Делаю так

function Convertwort(FileName: string) : string;
var
  oWord: OleVariant;
  oDoc: OleVariant;
begin
  try
    oWord := GetActiveOleObject('Word.Application');
  except
    oWord := CreateOleObject('Word.Application');
  end;
  oWord.Documents.Open(FileName);
  oDoc  := oWord.ActiveDocument;
  FileName := ChangeFileExt(FileName, '.xml');
  oWord.ActiveDocument.SaveAs(fileName, $00000013,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  oWord.ActiveDocument.Close(EmptyParam, EmptyParam);
  oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
  oDoc := VarNull;
  oWord := VarNull;
  Result:=fileName;
end;

Документ преобразуется в xml но почему то вылетает ошибка (

project crypt.exe raised exception class EOleSysError with message 'Операция не доступна'
project crypt.exe raised exception class EOleException with message 'Таблица в документе повреждена'

И при этом код который следует ниже вызова функции Convertwort не выполняется ((