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
效果
---恢复内容结束---
ppt调整三级标题的位置的更多相关文章
- C#_Excel数据读取与写入_自定义解析封装类_支持设置标题行位置&使用excel表达式收集数据&单元格映射&标题映射&模板文件的参数数据替换
本篇博客园是被任务所逼,而已有的使用nopi技术的文档技术经验又不支持我需要的应对各种复杂需求的苛刻要求,只能自己造轮子封装了,由于需要应对很多总类型的数据采集需求,因此有了本篇博客的代码封装,下面一 ...
- StringGrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；
实例4 本例功能:1.给每个单元格赋值 2.调整当前单元格位置:上下左右: 运行效果图:
- LinearLayout的gravity属性以及其子元素的layout_gravity何时有效；RelativeLayout如何调整其子元素位置只能用子元素中的属性来控制，用RelativeLayout中的gravity无法控制！！！
LinearLayout的gravity属性以及其子元素的layout_gravity何时有效:RelativeLayout如何调整其子元素位置只能用子元素中的属性来控制,用RelativeLayou ...
- LaTeX 中使用三级标题
需要在导言区加入命令:\setcounter{secnumdepth}{4} 而后: \section{一级标题} \subsection{二级标题} \subsubsection{三级标题}
- Windows 系统上用 .NET/C# 查找所有窗口，并获得窗口的标题、位置、尺寸、最小化、可见性等各种状态
原文:Windows 系统上用 .NET/C# 查找所有窗口,并获得窗口的标题.位置.尺寸.最小化.可见性等各种状态 在 Windows 应用开发中,如果需要操作其他的窗口,那么可以使用 EnumWi ...
- 导出目录的JS代码，与目录的三级标题测试
二级标题 三级标题 三级标题 三级标题 三级标题 三级标题 二级标题 三级标题 三级标题 三级标题 三级标题 三级标题 这里是现在页尾目录功能的代码源码: <!-- 目录索引列表生成 --> ...
- Office WPS PPT如何微量调整文本框的位置
按住Alt键,用鼠标拖动文本框即可以进行微调.
- UIToolbar 如何调整里面的按钮位置
可以在Bar Button Item后面填个Fixed Space Bar Button Item 或者Flexible Space Bar Button Item,然后再在后面加上下一个Bar Bu ...
- iOS开发项目之四 [ 调整自定义tabbar的位置与加号按钮的位置]
自定义tabbar与按钮的添加 01 - 把系统的tabbar用我们自己的覆盖 LHQTabBar *lhqTabBar = [[LHQTabBar alloc]init]; [self setVal ...
随机推荐
- osgText::Text osg字体
#ifdef _WIN32 #include <Windows.h> #endif // _WIN32 #include<iostream> #include <osgV ...
- 运行时给java对象动态的属性赋值
运行时给java对象动态的属性赋值 如何给java对象动态的属性赋值(也就是在代码执行的时候才决定给哪个属性赋值) 1.自定义一个工具类ReflectHelper,代码如下所示: pa ...
- 使用PHP实现命令模式（转）
<?php /** * 命令模式 2010-08-21 sz * @author phppan.p#gmail.com http://www.phppan.com * 哥学社成员(http:// ...
- PostgreSQL学习笔记——内置函数
算术函数(数值计算) +(加).-(减).*(乘)./(除) ABS函数--绝对值: ABS(数值) MOD--求余: MOD(被除数,除数) ROUND--四舍五入: ROUND(对象数值,保留小数 ...
- mysql删除某一个数据库中所有的表
SELECT concat('DROP TABLE IF EXISTS ', table_name, ';') FROM information_schema.tables WHERE table_s ...
- 【linux基础】Ubuntu下的终端多标签切换快捷键
method: 方法一: alt+ alt+ alt+ 方法二: ctrl + pageUp ctrl + pageDown 方法三: Edit--> Keybord Shortcuts 到这里 ...
- 持续集成 Jenkins +Gitlab + SSH 自动发布 HTML 代码
目录 一.整体流程 二.Jenkins 配置 2.1.首先安装插件 2.2.配置目标服务器 2.3.创建 job 2.4.配置 gitlab 触发 三.改进 一.整体流程 二.Jenkins 配置 2 ...
- socket 一个websocke对应一个socketclient对象
using System; using System.Collections.Concurrent; using System.Collections.Generic; using System.Co ...
- Redis List集合 使用
列表类型(list)用于存储一个有序的字符串列表,常用的操作是向队列两端添加元素或者获得列表的某一片段.列表内部使用的是双向链表(double linked list)实现的,所以向列表两端添加元素的 ...
- java调用jacob组件实现word转pdf，HTML等出现的问题
1.部署项目的服务器上必须安装WPS或Word office: 2.将jacob.jar文件放入%JAVA_HOME%\jre中: 3.将.dll文件放入%JAVA_HOME%\jre\bin中: 4 ...