Fórum Word no Delphi #176244

function TForm1.CrieObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
    Desconhecido: IUnknown;
begin
  Classifique_ID:=ProgIdToClassId(ClasseNome);
  if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
    OleCheck(desconhecido.QueryInterface(Idispatch, Result))
  else
    Result:=CreateOleObject(ClasseNome);
end;

procedure TForm1.btnContratoClick(Sender: TObject);
var Doc: Variant;
begin
  Word2k := CrieObjeto(´Word.Application´);
  Doc := Word2k.Documents.Open(´c:\dados\factoring\contrato de factoring.doc´);
  Word2k.Visible := true;

interface

{....}

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    function CrieObjeto(const ClasseNome: String): IDispatch;  // declaração
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  word2K: Variant; // declaração

implementation

function TForm1.CrieObjeto(const ClasseNome: String): IDispatch; 
var Classifique_Id: TGUID; 
    Desconhecido: IUnknown; 
begin 
  Classifique_ID:=ProgIdToClassId(ClasseNome); 
  if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then 
    OleCheck(desconhecido.QueryInterface(Idispatch, Result)) 
  else 
    Result:=CreateOleObject(ClasseNome); 
end; 

procedure TForm1.btnContratoClick(Sender: TObject); 
var Doc: Variant; 
begin 
  Word2k := CrieObjeto(´Word.Application´); 
  Doc := Word2k.Documents.Open(´c:\dados\factoring\contrato de factoring.doc´); 
  Word2k.Visible := true;