cara...eu tenho um exemplo que pode ser muito util...me manda um e-mail q eu te envio o exemplo....mas pra resumir vctem q fazer mais ou menos isso declarar as variaveis winword,docs,doc : variant; f_var,f_troca : string; configure essas variaveis desse modo winword := CreateOleObject('word.application'); winword.visible := true; docs := winword.documents; doc := docs.open(ExtractFilePath(Application.ExeName) + '\modelos\SEU_MODELO.doc'); e a repetir os seguintes comandos at para cada string q vc queira colocar no texto... f_var := '';//a string deve ser o lugar no texto //onde vc quer colocar/substituir no word f_troca := Nome;// a variavel do tipo string q tem o texto q vc //consultou no banco while doc.content.find.execute(f_var, emptyparam, emptyparam,emptyparam,emptyparam, emptyparam,emptyparam,emptyparam,emptyparam,f_troca, emptyparam , emptyparam,emptyparam,emptyparam,emptyparam) do f_troca := f_troca; entendendo o cdigo: ele vai procurarem todo o seu documento word at achar encontrando ele vai substituir pelo valor do f_troca. evite usar sentenas como apenas 'nome' pois uma palavra q pode aparecer no texto...eu sempre uso '' uma observao... que ele vai substituir o valor e na hr q fechar o word ele vai perguntar se deseja salvar...se salvar vc vai perder o modelo e ter q fazer denovo... espero ter ajudado..