抽取后复制到word里打印出来，便于练习呀（比对着PPT翻页练要快，而且方便做标记）。 (百度出来的方法有问题，不知道为啥，而且没有编号信息，所以自己写了个。) 具体如下： 1. 视图->宏 2. 输入宏名称xx 3. 创建 4. 输入 Sub xx()     Dim SlideCount As Integer     SlideCount = ActivePresentation.Slides.Count     Dim i As Integer     Dim s As String  ...