Опять Word

[krem]

Есть кнопка, при нажати на не открывается существующий документ. Пожалуйста, дайте код.
WordDocument или WordApplication надо? Непоняятнооо.

[Viteef]

Используй ShellExecute, Uses WinAPI; - открывает любой

[Killer_djon]

Все правильно используй ShellExecute, только вместо WinAPI, почемуто нужно подключить библиотеку ShellAPI (НУ ЭТО НЕ САМОЕ ВАЖНОЕ), и пишешь при нажатии на кнопку

ShellExecute(Handle, 'open', 'Имя своего документа', '', '', SW_SHOW);

и все, причем "Имя документа" в данной функции может быть любого расширения.

[НЕ_АЙС]

uses ....,OLEAuto, ShellAPI
........................
publiic
MSWord: Variant;

..........................

procedure TForm1.Button1Click(Sender: TObject);
var
Test, Test1: Integer;

AString: Variant;
begin

MSWord := CreateOLEObject('Word.Application') ;
MSWord.Documents.Open(FileName := 'd:\test.doc', ReadOnly := True);
MSWord.Visible := 1; //Закомментарьте, если вы нехотите показывать файл;
Test := MSWord.FontNames.Count;
for Test1 := 1 to Test do
begin
AString := MSWord.FontNames.Item(Test1);
Memo1.Lines.Add(AString);
end;
MSWord.ActiveDocument.Range(Start := 0,
end := 0);
MSWord.ActiveDocument.Range.InsertA fter(Text := 'Заголовок');
MSWord.ActiveDocument.Range.InsertP aragraphAfter;
MSWord.ActiveDocument.Range.Font.Na me := 'Arial';
MSWord.ActiveDocument.Range.Font.Si ze := 24;
AString := MSWord.ActiveDocument.Range.Font.Na me;
Edit1.Text := AString;
end;