Созданиние и работа с документом Word'a в Delphi

[DoubleTrouble]

Сколько сил и мучений положил на эту казалось бы простую проблему.

Суть:
Надо создать переменную, объект(хоть что то) чтобы можно было открыть Word документ в Делфи, а потом его редактировать. Не надо пожалуйста ссылок вроде этой, потому что сколько я над этим не бился не получается. А вот почему: бывает мне пишет ошибку уже в строке "uses ... , Office_Tlb, word_tlb;" сейчас я вроде бы справился, но теперь делфи не может откомпилировать Word_tblю В строке 34708 "IUnknown(TVarData(Params[0]).VPointer) as Range {const Range}," появляется ошибка "[Error] Word_TLB.pas(34708): Operator not applicable to this operand type"

Устал от этого способа. До этого в Екселе нашёл вот так вот открывать и работать с документом

// Обьект EXCEL
  XL := CreateOleObject('Word.Application');
  // Чтоб не задавал вопрос о сохранении документа
  XL.DisplayAlerts := false;
  // новый документ
  //XL.WorkBooks.Add;
  // или загружаем его
  XL.WorkBooks.Open(MyDir + '\akt.xls');
  { MyDir - глобальная переменная типа string в неё помещаем путь
  к каталогу запуска нашей програмы по событию FormCreate

Но в ворде у меня не получается открыть документ. Пробовал

XL.Document.Open(MyDir + '\akt.doc');

Но появляется ошибка. Помогите сделать переменную как во втором примере чтобы нормально файлы открывала программа

[xakkkkker]

Вот примерчик.
И еще прочитай книгу http://books.tr200.ru/v.php?id=40499

[roperd]

Просто так открыть фрят-ли получиться, но можно при загрузке из Ворда текст пере конвертировать в RTF, вот код:

procedure Button1Click(Sender: TObject);
var
Word: OleVariant;
Doc: OleVariant;
begin
try
Word := GetActiveOleObject('Word.Application');
 except
Word := CreateOleObject('Word.Application');
begin
Word.Documents.Open(OpenDialog1.FileName);
Doc  := Word.ActiveDocument;
OpenDialog1.FileName := ChangeFileExt(OpenDialog1.FileName, '.rtf');
Doc.SaveAs(OpenDialog1.FileName, wdFormatRTF);
Word.ActiveDocument.Close(0, EmptyParam, EmptyParam);
Word.Quit(EmptyParam, EmptyParam, EmptyParam);
Doc := VarNull;
Word := VarNull;
begin
with RichEdit1 do
begin
   RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
   RichEdit1.SelStart := 0;
   RichEdit1.Modified := False;
 end;
end;
end;
end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.