Añadir el número de página al pie de página

[Neftali [Germán.Estévez]]

Prueba con ésto:

Código Delphi [-]
  var
   Alignment, FieldType: OleVariant;
   Hdr: HeaderFooter;
 ...
   Alignment := wdAlignPageNumberCenter;
   Hdr := Doc.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary);
   { Añadir el número de página }
   Hdr.PageNumbers.Add(Alignment, EmptyParam);  
   { Añadir un texto }
   Hdr.Range.Text := 'This is a header';
   { Añadir la fecha }
   FieldType := wdFieldDate;
   Hdr.Range.Fields.Add(Hdr.Range, FieldType, EmptyParam, EmptyParam);

Otra posibilidad es acceder a: Word.Selection.Fields.Add e intentar añadir un campo del tipo "Numero de Página".

[Javi2]

El texto sí que me lo muestra pero el número de página no aparece por ningún sitio. Además, en la primera hoja no aparece ni el texto ni el número de página.

¿Qué puedo estar haciendo mal?