Voorloopnullen in paginanummers

Jackie gevraagd of er een manier was om nullen in de paginanummers geplaatst in een voettekst bevatten. Ze moet haar paginanummers om altijd vijf tekens lang, met nullen, zo nodig, in te vullen de lengte. Zo zou paginanummers zijn 00001, 00002, enz.

Excel biedt geen erg goede opmaak voor de paginanummers. Een oplossing (misschien wel de meest haalbare) is om elke pagina af te drukken in het werkblad, een voor een, het veranderen van het paginanummer als je gaat. Deze macro is die benadering:

Sub FormattedPageNums ()
Dim iPages As Integer
Dim J As Integer
Dim sFormat als Koord

sFormat = "00000"
'Krijg telling van pagina's in actieve blad
iPages = ExecuteExcel4Macro ("Get.Document (50)")

Met ActiveSheet
Voor j = 1 tot iPages
.PageSetup.CenterFooter = Format (J, sFormat)
.PrintOut Van: = J, Aan: = J
Volgende J
End With
End Sub

De macro ontdekt hoeveel pagina's zijn in het gehele afdruk, en vervolgens stap voor stap door elke pagina van die afdruk. Voorafgaand aan het afdrukken van elke pagina, individueel, het pand .CenterFooter is gelijk aan een geformatteerde string die het paginanummer in met nullen aan het begin staat ingesteld.

U kunt de macro wijzigen, zoals gewenst, om verschillende informatie in de voettekst te plaatsen. Je zou ook het gebied van de voettekst die zijn gewijzigd met .LeftFooter of .RightFooter plaats van .CenterFooter veranderen.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (3055) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: Voorloopnullen in paginanummers.