杰基问是否有一种方法可以在页脚中的页码中包含前导零。她需要她的页码始终为五个字符，并在必要时用前导零填充长度。因此，页码将为00001、00002等。

Excel的页码格式不是很好。一种解决方案（也许是最可行的）是打印工作表中的每一页，一次打印一次，同时更改页码。该宏采用这种方法：

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

宏会发现整个打印输出中有多少页，然后逐步浏览该打印输出的每一页。在单独打印每页之前，将.CenterFooter属性设置为等于带格式的字符串，该字符串表示带前导零的页码。

您可以根据需要修改宏，以在页脚中放置其他信息。您也可以使用.LeftFooter或.RightFooter而不是.CenterFooter来更改页脚的区域。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（5655）适用于Microsoft Excel 2007、2010、2013和2016。您可以在此处为Excel的较旧菜单界面找到此技巧的版本：

链接：/ excel-Leading_Zeros_in_Page_Numbers [页码中的前导零]。