problema con word

[Rabata]

asi queda el codigo
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.printout;
finally
worddoc.close(False);
word.quit;
end;
Y FUNCIONA¡¡¡¡¡