Jackie preguntó si había una manera de incluir ceros a la izquierda en los números de página colocados en un pie de página. Necesita que los números de página siempre tengan cinco caracteres, con ceros a la izquierda, según sea necesario, para completar la longitud. Por lo tanto, los números de página serían 00001, 00002, etc.

Excel no proporciona un formato muy bueno para sus números de página. Una solución (quizás la más viable) es imprimir cada página de su hoja de trabajo, una a la vez, cambiando el número de página a medida que avanza. Esta macro adopta ese enfoque:

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

.PrintOut From:=J, To:=J         Next J     End With End Sub

La macro descubre cuántas páginas hay en la impresión completa y luego recorre cada página de esa impresión. Antes de imprimir cada página, individualmente, la propiedad .CenterFooter se establece igual a una cadena formateada que representa el número de página con ceros a la izquierda.

Puede modificar la macro, como desee, para colocar información diferente en el pie de página. También puede cambiar el área del pie de página que se cambia usando .LeftFooter o .RightFooter en lugar de .CenterFooter.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3055) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Leading_Zeros_in_Page_Numbers [Ceros iniciales en números de página].