Fórum Instanciar o word? #352389

procedure TForm2.AbrirWord;
var
  App: OleVariant;
  lv_Salvar : Variant;
begin
  // Cria uma instancia do Word
  App := CreateOleObject(´Word.Application´);
  try
    // deixando o word "invisivel"
    App.visible := False;
    //procedure para adicionar um documento.                                        
    App.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    // nessa linha eu estou colando o que esta no clipboard e dizendo que e formato RTF.
    App.Selection.PasteAndFormat(wdPasteRTF);
    // ee finalmente eu estou "monstrando" o word ao usuario.
    App.Visible := True;
  except
    lv_Salvar := wdDoNotSaveChanges;
    // procedure para sair do word, nesse caso estou passando parametro para que ele nao salve nenhuma alteracao.
    App.Quit(lv_Salvar,EmptyParam,EmptyParam);
  end;
end;