http://www.fs2you.com/zh-cn/files/719c440f-9bb5-11dc-ad39-0014221f3995/

Sub HandoutNumber()   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 PpPrintOutputType   Dim vbConfirm As VbMsgBoxResult   '   ' Ask the user which slide to start printing handouts from.   '   lSlide = InputBox("Start handouts at what slide number?", _         "Starting Slide", "1")   '   ' Ask the user which page number to start at.   '   lStart = InputBox("Start the page number for handouts at: ", _         "Restart Handout Page Numbers", "1")   '   ' Ask the user how many slides per page they want to print.   '   lHandoutKind = InputBox("How many slides per handout page?" & _         vbNewLine & "2, 3, 4, 6, 9?", "Handout Type", "4")   '   ' Use a case statement to set the handout type and the number of   ' slides per page. If the user types in a number other than 2,3,   ' 4,6, or 9, round up to the nearest handout layout size. If the   ' number is greater than 9, make it the 9-up layout and set   ' the slides per page to 9.   '   Select Case lHandoutKind      Case 1, 2         ppHandoutKind = ppPrintOutputTwoSlideHandouts         lHandoutKind = 2      Case 3         ppHandoutKind = ppPrintOutputThreeSlideHandouts         lHandoutKind = 3      Case 4         ppHandoutKind = ppPrintOutputFourSlideHandouts         lHandoutKind = 4      Case 5, 6         ppHandoutKind = ppPrintOutputSixSlideHandouts         lHandoutKind = 6      Case Else         ppHandoutKind = ppPrintOutputNineSlideHandouts         lHandoutKind = 9   End Select   '   ' Confirm the settings.   '   vbConfirm = MsgBox("You have chosen to print " & lHandoutKind & _         "-up handouts, starting at page " & lStart & vbNewLine & _         " and slide number " & lSlide & ".", vbOKCancel)   '   ' If the result is OK, print the range.   '   If vbConfirm = vbOK Then   '   ' Calculate the number of pages that have to be printed. Then, test to   ' make sure that number of pages are correct. The Round function rounds   ' to the nearest whole number, therefore if you have 10 slides to print on a   ' 9-up handout, lStop first is set to 1, because 10/9 = 1.1111 rounded   ' to 1.   ' The MOD operator returns a remainder if there are not enough slides   ' to fill a page. If the remainder is less than or equal to one half of   ' the layout size.   '      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   '   ' From 1 to the number of pages, loop until all the pages are printed.   '      For i = 1 To lStop   '   ' On the notes master, set the automatic page numbers to False; then   ' insert the starting page number that the user wants. Increment the   ' page number by one.   ' This code assumes that object 4 on the handouts master is the page   ' number footer on the handouts master page.   '         ActivePresentation.NotesMaster.HeadersFooters.SlideNumber _               .Visible = msoFalse         ActivePresentation.HandoutMaster.Shapes(4).TextFrame _               .TextRange.Text = lStart         lStart = lStart + 1   '   ' Set the printer options and print the handouts.   '         With ActivePresentation.PrintOptions   '   ' Set the print range type to a slide range.   '            .RangeType = ppPrintSlideRange            With .Ranges   '   ' Clear any previous ranges that were set.   '               .ClearAll   '   ' Set the slide range to print based on the number of slides per page.   '               lSlideEnd = lSlide + lHandoutKind - 1   '   ' If the starting slide is greater than the number of slides in the   ' presentation, set the value equal to that number.   ' Perform the same test for lSlideEnd, to make sure the slide range   ' does not exceed the number of slides in the presentation.   '               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   '   ' Set the page output to the handout layout the user has chosen.   '            .OutputType = ppHandoutKind   '   ' Set the slide positioning to columns. You can also use   ' ppPrintHandoutHorizontalFirst to set the slides in rows.   '            .HandoutOrder = ppPrintHandoutVerticalFirst         End With   '   ' Print the single page by using the chosen settings.   '         ActivePresentation.PrintOut      Next i   End If   '   ' Reset the handout master page to use automatic page numbers,   ' and clear any text from the frame.   '   ActivePresentation.HandoutMaster.Shapes(4).TextFrame _         .TextRange.Text = ""   ActivePresentation.NotesMaster.HeadersFooters.SlideNumber _         .Visible = msoTrueEnd Sub

我也不知道，现在过没过时，好像身边的人都有Gmail了

呵呵

谁还没有的跟我说阿

刚刚到一个办事窗口，只见三五成群的人围了上来，原来他们是帮助你办理手续的。我想这的服务还真不错，在细一打听，原来他们是要收取一定劳务费的。

为什么会出现这些人呢？为什么我们自己不能办，而需要这些人呢？为什么他们会有市场呢？

一大堆的问题，看来还是我们的办事效率有问题啊。试想要是能够很容易办下来，就不会有他们的生存空间啊。

我们拒绝了每一个上来搭讪的“办事员”，打算用自己的能力办下来。排了很长时间的队，终于有官方人士接待我们了，不料只给了我们两张表格。在普通不过的表格了，甩了一句，回去填好，盖好章，拿回来。

晕。就为了这两张表，我们千里迢迢来这排队领？

现在网络如此发达，为什么不在车管所的网上提供让大家下载？

为什么我们的政府办事效率如此~~~

不说了，越说越气

思来想去，都已经工作的我，细细数来在我学习的17年中，遇到了不少影响我一生的好老师

人这一辈子，遇到一位负责任的老师就很不容易了。老师这个职业有其特殊性，她跟园丁还是有一定区别的，她所教育的是活生生的人，人是复杂的、高级的。

我的小学、高中、大学都遇到了伯乐，他们都在不同方面给过我很大的帮助。相比而言，我是幸运的。

我感谢他们，小学老师对于我的成长，对于的的性格，对于的发展给了不可磨灭的影响。

高中老师则给了我更多接触科研的机会，是我成长的启蒙。

大学是我收获的阶段，遇到了各个方面的优秀教师。我感谢她们，为我提供了发展的机会。

谢谢，由衷地感谢。

       最近在网上发现这么一个小工具，可以把PPT中的文字、也包括部分表格、图片统统提取到一个Word文档中，但是还是需要人工修改一下下。速度蛮快！

       大家搜索一下吧！Google上可以找到。我就不发了