ppt中设定幻灯片的页码编号从2开始怎么弄

　　以PPT2003为例，在ppt中设置幻灯片的页码编号从2开始的方法如下：
　　1、打开要设置的PPT文档；
　　2、点击“文件”→“页面设置”，如下图所示：
　　
　　3、将幻灯片编号起始值设置为2，点击确定。
　　
　　

雷鸣老师给我提了个很高级的问题:打印ppt讲义时，如何让页码不是从1开始。因为有时有好几个幻灯片打印，希望页码顺序能够相连，或者打印一套幻灯片的时候，中间卡纸了，要重新打印。ppt在这一点做到过份，其在重新打印的时候，出来的页面还是页码1。 网络上提出类似问题的人很多，大家都在怪微软公司在ppt打印方面的不通人性，但基本上没有看到简单有效的解决方案。综合自己实践研究，大致有以下几种解决方案可供参考。 1、利用空白幻灯片:在ppt的前面插入足够多的空白幻灯片，办法笨是笨了点，毕竟也是方法; 2、一页一页打印:设置幻灯片母版中的讲义母版，设置右下角数字区的“#”，使用固定数字，改一页打一页，呵呵。或者直接利用页脚的功能，在打印预览中的“选项”-“备注和讲义”中去刚府石读食还笔额布除页码，在页脚中输入数字，这里的页脚位置也是在幻灯片母版中修改的，同样是一页一页打印。 3、先打印一系列仅仅打印了页码的空白纸张，然后利用这些已经有数字的白纸来打印。这个办法其实比上面两种要好，最容易操作。 4、上面三种方案都是临时的方案，有高人写了一个VBA(宏)来解决，我做了回好人，把他的代码汉化了: (1) 在工具菜单上选择“宏”-“宏”，或者直接按快捷键“Alt+F8”，在宏名中随便输个名字，如“dayin”，然后点击“编辑这手酒误凯侵”; (2)在编辑窗口输入以下代码: Dim i As Long Dim lStart As Long Dim lStop As Long Dim lHandoutKind As Long Dim lSlide As Long Dim lSlideEnd As Long Dim ppHandoutKind As PpPrintOutputT径云晚终水红病ype Dim vbConfirm As VbMsgBoxResult ' lSlide = InputBox("从哪一张幻灯片开始打印?", "开始幻灯片", "1") ' lStart = InputBox("讲义起始页码编号: ", "讲义起始页码", "1") ' lHandoutKind = InputBox("每页几张幻灯片?" & vbNewLine & "2, 3, 4, 6, 9?", "讲义战打印类型", "4") ' Se娘粒倒飞妒则lect Case lHandoutKind Case 1, 2 ppHandoutKind = ppPrintOutputTwoSlideHandouts lHandoutKind = 2 Case 3 ppHan益顶队亲须构回就么doutKind = ppPrintOutputThreeSlideHandouts lHandoutKind = 3 Case 4 ppHandoutKind = ppPrintOutputFourSlideHandouts lHandoutKind = 4 Case 5, 6 ppHandoutKind = ppPrintOutputSixSlideHandouts lHandoutKind = 6 Case Else ppHandoutKind = ppPrintOutputNineSlideHandouts lHando被占沙价吧赵冲广utKind = 9 End Select ' vbConfirm = MsgBox("You have chosen to print " & lHandoutKind & "-up handouts, starting at page " & lStart & vbNewLine & " and slide number " & lSlide & ".", vbOKCancel) ' If vbConfirm = vbOK Then ' lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) / lHandoutKind) If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod lHandoutKind) <= (lHandoutKind / 2) Then lStop = lStop + 1 End If ' For i = 1 To lStop ' ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible = msoFalse ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text = lStart lStart = lStart + 1 ' With ActivePresentation.PrintOptions ' .RangeType = ppPrintSlideRange With .Ranges ' .ClearAll ' lSlideEnd = lSlide + lHandoutKind - 1 ' If lSlide > ActivePresentation.Slides.Count Then lSlide = ActivePresentation.Slides.Count End If If lSlideEnd > ActivePresentation.Slides.Count Then lSlideEnd = ActivePresentation.Slides.Count End If .Add Start:=lSlide, End:=lSlideEnd lSlide = lSlide + lHandoutKind End With ' ' Set number of copies to 1. ' .NumberOfCopies = 1 ' .OutputType = ppHandoutKind ' .HandoutOrder = ppPrintHandoutVerticalFirst End With ' ActivePresentation.PrintOut Next i End If ' ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text = "" ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible = msoTrue (3)运行宏，根据提示输入数字即可。 其实这段VBA代码不过将上面的笨办法使用机器来自动实现罢了，因为你会发现打印机中输出的文件是一页一页的文件，而不是多页的。