[alex_rR]

Вот, что я делаю. Выдает ошибку на последней строчке где save.

Код:

procedure TfrmMDIParent.N11Click(Sender: TObject);
var
  MSWord: Variant;
  ext: String;
begin

with SaveDialog do
  if Execute then
      ext:=SaveDialog.FileName;

  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  //MSWord.ActiveDocument.Save(ext+'.doc');
end;

[Kailon]

А у меня проще

Код:

procedure TForm1.OpenWordClick(Sender: TObject);
var
  NameWordDoc: OleVariant;
begin
  if SaveDialog.Execute then
    NameWordDoc := SaveDialog.FileName + '.doc';
  if NameWordDoc <> '' then
    begin
      WordApp.Connect;
      WordApp.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
      WordDoc.ConnectTo(WordApp.ActiveDocument);
      WordDoc.SaveAs(NameWordDoc);
      WordApp.Visible := True;
      WordApp.Disconnect;
    end;
end;

P.S.: компоненты WordApp (WordApplication), WordDoc (WordDocument) с закладки Servers

[alex_rR]

Если делать так

Код:

WordApp.Visible := True;

то не работает, а желательно чтоб открывалось окно ворда.
Если false то сохраняет без зависания и проблем, а при попытке открыть документ ругается, но все равно открывает.

[Kailon]

На что ругается при открытии?

[alex_rR]

не верно указана единица измерения

[Ildar-tsr]

Вот твой же код все работает отлично. Коннектиться к открытому вордовскому документу и сохраняет его куда укажешь.

Код:

var
  MSWord: OleVariant;
begin

  SaveDialog.Execute;

  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      //мне кажется это здесь должно быть    
      MSWord.Documents.Add(); //не надо ничего указывать
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.ActiveDocument.SaveAs(SaveDialog.FileName+'.doc');