Automação ole c/ word - papel personalizado e tipo .txt?

Olá colegas do forum ...

O código abaixo funciona, mas
como poderia incrementá-lo para
definir um tamanho de papel personalizado e salvar como
.txt (documento tipo texto)?

nprotocolo.WindowState:=wsminimized;
word:=GetorCreateObject(´Word.Application´);
word.visible:=true; //exibe o word
wordsalve:=word.documents.add; //adiciona um documento
wordsalve:=word.ActiveDocument; //ativa o documento
wordsalve.ShowSpellingErrors:=false;
documento:=word.selection; //seleciona para a escrita

documento.PageSetup.RightMargin:=5;
documento.PageSetup.LeftMargin:=15;
documento.PageSetup.TopMargin:=80;
documento.PageSetup.BottomMargin:=20;

documento.PageSetup.Orientation:=poportrait;
documento.Font.Name:= ´courier new´;
documento.font.size:=11;
dmq.Qprotocolo.First;
while not dmq.Qprotocolo.eof do
begin
{retirei o código que monta - não importa}
dmq.Qprotocolo.Next;
end;
wordsalve.saveas(widestring(´c:\teste´),0);
Word.ActiveDocument.Close(SaveChanges := 0);
Word.Quit;
nprotocolo.WindowState:=wsmaximized;

Qq ajuda será bem vinda?

Obrigado.
Delmar