relatório em word

[wilson filho 0]

Pessoal estou precisando imprimir um contrado que nele tenhas as variaveis como nome, endereço etc...Como faço para imprimir isso utilizando o Word ?

Eu tenho tentado isso:

 

function 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 TContrato_impressaum.Button1Click(Sender: TObject);

var Doc: Variant;

begin

Word2k := CrieObjeto('Word.Application');

Doc := Word2k.Documents.Open('cont.doc');

 

Doc.Content.Find.Execute(FindText := '@001', ReplaceWith := Reserva_Vaga.DBEdit1.Text);

 

Word2k.Visible := true;

end;

 

Só que toda vez me responde que o nome do documento tá errado e não importa qual nome eu utilize... a resposta é sempre a mesma.

[bdexterholland 0]

verifique se está passando a localização do doc de forma correta...