Delphi и Word

[Aces of Spades]

В чем здесь может быть ошибка?

procedure TForm3.Button1Click(Sender: TObject);
var
  WordApp: Variant;
begin
  WordApp := CreateOleObject('Word.Application'); "ошибку выдает в этой строке"
  WordApp.Documents.Add;

    WordApp.Visible := True;

  WordApp.Documents.Add;
  WordApp.Selection.Font.Size := 12;
  WordApp.Selection.TypeText('Текст');
  WordApp.Selection.Font.Bold := true;
  WordApp.Selection.TypeText(#13#10'new');
  WordApp.ActiveDocument.SaveAs('C:\ex.doc');
  end;

Ошибка:
First chance exception at $7669C41F. Exception class EOleSysError with message 'Недопустимая строка с указанием класса'. Process Project1.exe (2112)

[phomm]

WordApp: OleVariant;

?

[FaTaL]

Сообщение от phomm

WordApp: OleVariant;

Не обязательно. У меня и просто Variant работает. А у Вас Офис нормальный стоит? Не кривосборка WMI-евская какая нибудь?

[Sciv]

Согласен, просто Вариант должен работать. Во-первых - какая версия офиса? Во-вторых - версия винды? В-третьих - модуль ComObj вообще подключен?

[Stilet]

'Word.Application'

Значит нет в твоей винде такого класса. Проверь все ли буквы в этом слове написаны в латинице.

[Serge_Bliznykov]

Значит нет в твоей винде такого класса. Проверь все ли буквы в этом слове написаны в латинице.

и вообще, установлен ли MS Word в данной винде!

[eoln]

Сообщение от Aces of Spades

WordApp := CreateOleObject('Word.Application') ; "ошибку выдает в этой строке"

Попробуй указывать конкретную версию, например Word.Application.12 (путь в реестре HKEY_CLASSES_ROOT\Word.Application\ CurVer) или выяснить программно (права администратора нужны этому коду)

function verWord: string; //определение версии Word
var
  regData: TRegistry;
begin
  result := '';
  regData := TRegistry.Create;
  regData.RootKey := HKEY_CLASSES_ROOT;
  try
    if regData.OpenKey('\Word.Application\CurVer', False) then
     begin
      result := regData.ReadString('');
      regData.CloseKey;
     end
  finally
    regData.Free;
  end;
end;

[Aces of Spades]

версия моего ворда 2010 и она является официальной приобретена мной вместе с покупкой ноут бука.
Windows 7 у меня с паком 1.
Дэлфи 2010 РАД'овский.
Microsoft office starter 2010 вот так все это называется.

eoln, ваше я попробую в кротчайшие сроки, идея сама не плоха. Я не верю в то что в коде может допускается хоть какая нибудь ошибка, т.к. он был проверен с ног до головы не 1 мной.
Спасибо всем.

И да, на счет модуля, он был добавлен, моя ошибка что не указал этого ранее.

[Sciv]

версия моего ворда 2010

Так у него по-моему действительно другой вызов для создания объекта. Совет eoln'а вам в помощь.

[FaTaL]

Нет. Я писал прогу на ХР под 2003 ворд, и сейчас стоит 2012 и она всё равно работает. Вызов не изменился.