PPT自动生成目录并自动更新技巧详解（ppt目录怎么自动生成页码）
摘要：
随着演示文稿的复杂度增加，手动更新目录变得越来越耗时。为了提高工作效率，我们可以通过以下几种方法实现PPT自动生成目录并自动更新：一、使用PPT内置功能1.打开PPT，选中需要生成... 随着演示文稿的复杂度增加，手动更新目录变得越来越耗时。为了提高工作效率，我们可以通过以下几种方法实现PPT自动生成目录并自动更新：
一、使用PPT内置功能
1. 打开PPT，选中需要生成目录的页面。
2. 点击“插入”选项卡，选择“大纲”。
3. 在弹出的大纲窗口中，将页面内容按照顺序拖拽到相应的位置。
4. 点击“确定”按钮，即可生成目录。
5. 修改内容后，目录会自动更新。
二、利用VBA宏自动生成目录
1. 按下“Alt F11”打开VBA编辑器。
2. 在“插入”菜单中选择“模块”，在打开的代码窗口中粘贴以下代码：
```vba
Sub 自动生成目录()
Dim Shl As Slide
Dim i As Integer
Dim MyRange As Range
Dim MyRange2 As Range
Dim MyRange3 As Range
Dim MyRange4 As Range
Dim MyRange5 As Range
Dim MyRange6 As Range
Dim MyRange7 As Range
Dim MyRange8 As Range
Dim MyRange9 As Range
Dim MyRange10 As Range
Dim MyRange11 As Range
Dim MyRange12 As Range
Dim MyRange13 As Range
Dim MyRange14 As Range
Dim MyRange15 As Range
Dim MyRange16 As Range
Dim MyRange17 As Range
Dim MyRange18 As Range
Dim MyRange19 As Range
Dim MyRange20 As Range
Dim MyRange21 As Range
Dim MyRange22 As Range
Dim MyRange23 As Range
Dim MyRange24 As Range
Dim MyRange25 As Range
Dim MyRange26 As Range
Dim MyRange27 As Range
Dim MyRange28 As Range
Dim MyRange29 As Range
Dim MyRange30 As Range
Dim MyRange31 As Range
Dim MyRange32 As Range
Dim MyRange33 As Range
Dim MyRange34 As Range
Dim MyRange35 As Range
Dim MyRange36 As Range
Dim MyRange37 As Range
Dim MyRange38 As Range
Dim MyRange39 As Range
Dim MyRange40 As Range
Dim MyRange41 As Range
Dim MyRange42 As Range
Dim MyRange43 As Range
Dim MyRange44 As Range
Dim MyRange45 As Range
Dim MyRange46 As Range
Dim MyRange47 As Range
Dim MyRange48 As Range
Dim MyRange49 As Range
Dim MyRange50 As Range
Dim MyRange51 As Range
Dim MyRange52 As Range
Dim MyRange53 As Range
Dim MyRange54 As Range
Dim MyRange55 As Range
Dim MyRange56 As Range
Dim MyRange57 As Range
Dim MyRange58 As Range
Dim MyRange59 As Range
Dim MyRange60 As Range
Dim MyRange61 As Range
Dim MyRange62 As Range
Dim MyRange63 As Range
Dim MyRange64 As Range
Dim MyRange65 As Range
Dim MyRange66 As Range
Dim MyRange67 As Range
Dim MyRange68 As Range
Dim MyRange69 As Range
Dim MyRange70 As Range
Dim MyRange71 As Range
Dim MyRange72 As Range
Dim MyRange73 As Range
Dim MyRange74 As Range
Dim MyRange75 As Range
Dim MyRange76 As Range
Dim MyRange77 As Range
Dim MyRange78 As Range
Dim MyRange79 As Range
Dim MyRange80 As Range
Dim MyRange81 As Range
Dim MyRange82 As Range
Dim MyRange83 As Range
Dim MyRange84 As Range
Dim MyRange85 As Range
Dim MyRange86 As Range
Dim MyRange87 As Range
Dim MyRange88 As Range
Dim MyRange89 As Range
Dim MyRange90 As Range
Dim MyRange91 As Range
Dim MyRange92 As Range
Dim MyRange93 As Range
Dim MyRange94 As Range
Dim MyRange95 As Range
Dim MyRange96 As Range
Dim MyRange97 As Range
Dim MyRange98 As Range
Dim MyRange99 As Range
Dim MyRange100 As Range
Dim MyRange101 As Range
Dim MyRange102 As Range
Dim MyRange103 As Range
Dim MyRange
