ppt调整三级标题的位置

---恢复内容开始---

标题格式：一级标题   中文数字加、例如 一、

二级标题  中文数字加：   例如二：

三级标题  小写数字加、  例如3、

使用方法： 打开PPT  按alt+f11，打开vb编辑框，选择插入模块

把代码复制进去按F5就ok了

代码如下

 Sub Change()
     Dim s       As Slide
     Dim shp     As Shape
     Dim trng    As TextRange
     Dim i       As Integer
     Dim JudgeBit   '判断的位数
     JudgeBit =
           'Slides.Shapes(1).AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

             '  Slides.Shapes(1).TextFrame.TextRange.Characters.Text = "文sadasd字"
     ' /* 遍历活动窗口中打开的演示文稿中的幻灯片. */
     For Each s In ActivePresentation.Slides
         ' /* 遍历当前幻灯片中的形状对象. */
         For Each shp In s.Shapes
             ' /* 当前幻灯片中的当前形状含有文本框架. */
             If shp.HasTextFrame Then
                 ' /* 当前幻灯片中的当前形状包含文本. */
                 If shp.TextFrame.HasText Then
                     ' 引用文本框架中的文本.

                     Set trng = shp.TextFrame.TextRange
                      For i =  To JudgeBit  'trng.Characters.Count
                         '判断是否为大标题  格式是  一、
                         If trng.Characters(i).Text = "一" _
                         Or trng.Characters(i).Text = "二" _
                         Or trng.Characters(i).Text = "三" _
                         Or trng.Characters(i).Text = "四" _
                         Or trng.Characters(i).Text = "五" _
                         Or trng.Characters(i).Text = "六" _
                         Or trng.Characters(i).Text = "七" _
                         Or trng.Characters(i).Text = "八" _
                         Or trng.Characters(i).Text = "九" _
                         Or trng.Characters(i).Text = "十" _
                             Then
                             If (trng.Characters(i + ).Text = "、") Then
                                 i = JudgeBit
                                 '设置字体格式
                                 trng.Font.NameFarEast = "微软雅黑"   '设置中文字体
                                 trng.Font.Name = "微软雅黑"          '设置英文字体
                                 trng.Font.Size = ""
                                 trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=)

                                 '文本框在当页的位置
                                 shp.Top =
                                 shp.Left = 

                                     '设置文本属性
                                     With shp
                                     .TextFrame.HorizontalAnchor = msoAnchorNone
                                     .TextFrame.MarginTop =        '字体在边框中的位置
                                     .TextFrame.MarginBottom =
                                     .TextFrame.MarginLeft =
                                     .TextFrame.MarginRight =
                                     .TextFrame.VerticalAnchor = msoAnchorMiddle     '设置垂直对齐方式
                                     .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft   '设置对齐方式

                                     'shp.TextFrame.Orientation                       '设置文本框方向
                                     'shp.TextFrame.WordWrap                          '自动换行

                                     End With
                                 '判断二级标题
                             ElseIf (trng.Characters(i + ).Text = "：") Then
                                 i = JudgeBit    'trng.Characters.Count
                                 '设置字体格式
                                 trng.Font.NameFarEast = "微软雅黑"     '设置中文字体
                                 trng.Font.Name = "微软雅黑"            '设置英文字体
                                 trng.Font.Size = ""
                                 trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=)

                                 '文本框在当页的位置
                                 shp.Top =
                                 shp.Left = 

                                     '设置文本属性
                                     With shp
                                     .TextFrame.HorizontalAnchor = msoAnchorNone
                                     .TextFrame.MarginTop =        '字体在边框中的位置
                                     .TextFrame.MarginBottom =
                                     .TextFrame.MarginLeft =
                                     .TextFrame.MarginRight =
                                     .TextFrame.VerticalAnchor = msoAnchorMiddle     '设置垂直对齐方式
                                     .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft   '设置对齐方式

                                     'shp.TextFrame.Orientation                       '设置文本框方向
                                     'shp.TextFrame.WordWrap                          '自动换行
                                     End With
                             End If

                          '判断三级标题 格式是  1.
                         ElseIf trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                         Or trng.Characters(i).Text = "" _
                             Then

                             If (trng.Characters(i + ).Text = "、") Then
                             i = JudgeBit
                             '设置字体格式
                             trng.Font.NameFarEast = "微软雅黑"       '设置中文字体
                             trng.Font.Name = "微软雅黑"              '设置英文字体
                             trng.Font.Size = ""
                             trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=)

                             '文本框在当页的位置
                             shp.Top =
                             shp.Left = 

                             '设置文本属性
                                 With shp
                                 .TextFrame.HorizontalAnchor = msoAnchorNone
                                 .TextFrame.MarginTop =        '字体在边框中的位置
                                 .TextFrame.MarginBottom =
                                 .TextFrame.MarginLeft =
                                 .TextFrame.MarginRight =
                                 .TextFrame.VerticalAnchor = msoAnchorMiddle     '设置垂直对齐方式
                                 .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft   '设置对齐方式

                                 'shp.TextFrame.Orientation                       '设置文本框方向
                                 'shp.TextFrame.WordWrap                          '自动换行
                                 End With
                             End If
                         Else
                         trng.Font.NameFarEast = "黑体"  '设置中文字体
                         trng.Font.Name = "黑体"         '设置英文字体
                         End If

                     Next
                     ' /* 遍历文本框架中的每一个字符. */

                 End If
             End If
         Next
     Next
 End Sub

效果

---恢复内容结束---