problema con word

[Rabata]

hola a todos.

Deseo de manera transparente para el usuario abrir un documento,meter un texto en el pie de pagina y luego imprimirlo y salir sin guardarlo.

El código q tengo hecho por ahora es el siguiente:

try
word := GetActiveOleObject('Word.Application');
except
word := CreateOleObject('Word.Application');
end;

try

worddoc:=word.Documents.open('d:/1.doc');
worddoc.select;

word.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;

wordselection:=word.selection;

wordselection.Typetext('eeeeee');


word.print(NumCopies:='1'); //AKI ME FALLA

finally
WORD.FILECLOSE(2); //Y tODAS ESTAS TAMBIEN
WORD.FILEEXIT;
WORD:=UnAssigned;
end;

Supongo que me faltan muchas líneas, si alguien pudiera ayudarme les estaría muy agradecido.

Gracias.