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

[Javi2]

Hola a todos, tengo una aplicación que genera un documento Word y me gustaría saber como puedo añadir, además de un texto, el número de página en el pie de página de cada hoja. El código que utilizo para añadir texto en el pie de página es (¡¡¡ gracias Elenita !!!):

procedure TDmInforme.GenerarPiePagina(Documento: TWordDocument);
begin
Documento.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;
Documento.Application.Selection.TypeText('Página número: ');
Documento.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
end;

Lo que me gustaría es concatenar al texto escrito, el número de página correspondiente (no se si me explico).

Muchas gracias.

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

Prueba con ésto:


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?

[Javi2]

Gracias Neftali,
con tu consejo de acceder a Word.Selection.Fields.Add y añadir un campo del tipo "Numero de Página", junto con mi código para insertar texto en el encabezado y pie de página he conseguido lo que deseaba.

Muchísimas gracias por tu ayuda!!!!

Un saludo