利用VBA编程实现PowerPoint文稿格式编辑自动化-精选文档

本）的Font（字体）和ParagraphFormat（段落格式）的各种属性，以及TextFrame（文本框）中的Ruler（标尺）的各种属性来控制。下面对所要用到的上述各种属性作一简单介绍： ① 字体（Font）对象中常用的属性有：

NameAscii 返回或设置用于ASCII字符的字体（字符集编号在0-127之间的字符）。

NameOther 返回或设置亚洲字体名称。

NameFarEast 返回或设置其字符集编号大于127的字符所用的字体。

Size 返回或设置字符大小，以磅为单位。 Bold 决定字符格式是否为粗体。 Italic 决定字符格式是否为斜体。 Underline 决定指定文本是否带有下划线。

② 段落格式（ParagraphFormat）对象中常用的属性有： Alignment 用以指定的段落格式为每个段落返回或设置对齐方式。

BaseLineAlignment 为指定段落返回或设置基线对齐方式。 LineRuleAfter 决定是否将每段最后一行后面的行距设为指定的磅数或行数。

LineRuleBefore 决定是否将每段第一行前面的行距设为指定的磅数或行数。

LineRuleWithin 决定是否将基线间的行距设为指定磅数或

行数。

SpaceAfter 以磅或行为单位返回或设置指定文本中每段末行后的间距大小。

SpaceBefore 以磅或行为单位返回或设置指定文本中每段首行前的间距大小。

SpaceWithin 以磅或行为单位返回或设置指定文本中基准行之间的距离。

TextDirection 返回或设置指定段落的文本方向。 WordWrap 决定是否自动换行以适应形状内部。 ③ 标尺（Ruler）对象中常用的属性有：

Levels 返回一个描述大纲缩进格式的RulerLevels对象。RulerLevels指定标尺上所有RulerLevel对象的集合。每个RulerLevel对象代表特定大纲级别上文本的首行缩进和左缩进。该集合通常包含五个成员（每个可用大纲级别各一个）。 每个RulerLevel对象上有：

FirstMargin属性：以磅为单位返回或设置指定大纲级别的首行缩进。

LeftMargin属性：以磅为单位返回或设置指定大纲级别的左缩进。

3.3 程序编写思路

根据上述分析，可按下述思路编写程序：

2）使用一个For循环来遍历文稿中的所有幻灯片，循环次

数可由Slides集合对象的Count属性取得。

3）循环体内大致分三块内容，一块用以处理标题版式幻灯片中标题的文本格式，一块用以处理标题和文本版式幻灯片中标题的文本格式，一块用以处理普通文本框中的文本格式。 4）幻灯片中除标题以外的其他占位符中的文本格式用一个子过程单独进行处理。 3.4 程序清单：

Dim MyDocument As Object Sub Macro1()

' 宏由 xxdwww 记录，日期: 2006-4-15

Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

n = ActivePresentation.Slides.Count '取得文稿中的幻灯片张数

For i = 1 To n

Set MyDocument = ActivePresentation.Slides(i) m = MyDocument.Shapes.Placeholders.Count '取得每张幻灯片中的占位符数 If m > 0 Then Select Case

MyDocument.Shapes.Placeholders(1).PlaceholderFormat.Type

Case ppPlaceholderCenterTitle'是标题版式幻灯片中的标题

'下面是对标题版式幻灯片中标题文本的字体格式进行处理 With

MyDocument.Shapes.Title.TextFrame.TextRange.Font .NameAscii = \宋体\ .NameOther = \宋体\ .NameFarEast = \宋体\ .Bold = True .Size = 40 End With

'下面是对标题版式幻灯片中标题文本的段落格式进行处理 With

MyDocument.Shapes.Title.TextFrame.TextRange.ParagraphFormat

.Alignment = ppAlignCenter .LineRuleWithin = msoTrue .SpaceWithin = 1

.LineRuleBefore = msoTrue .SpaceBefore = 0.2 .LineRuleAfter = msoFalse .SpaceAfter = 0