利用VBA编程实现PowerPoint文稿格式编辑自动化精选文档Word文件下载.docx

1、每个应用程序都由各自的Application对象代表。VBA是一种基于对象的开发语言，VBA编程更多的是针对用户对应用软件中不同对象的操作，触发的相应事件，去编写对相关对象执行不同的方法，或是修改相关对象的属性等操作的代码。因此在编写VBA程序之前，有必要对相关应用软件中的对象模型作一大概的了解。打开PowerPoint的VBA帮助文档VBAPP10.CHM，点击“Microsoft PowerPoint对象”帮助页面即可看到“PowerPoint 对象模型”，从这个模型中很容易找到我们需要的几个集合和对象：Application、Presentations、Presentation、Slid

2、es、Slide、Shapes、shape、Placeholders、PlaceholderFormat、TextFrame、Ruler、TextRange、ParagraphFormat等，其中：Application 代表整个Microsoft PowerPoint应用程序。Application对象包括：应用程序范围内的设置和选项（例如，当前打印机的名称） 用于返回顶层对象的属性，例如：ActivePresentation、Windows等。Presentation 代表一个PowerPoint演示文稿。Presentation对象属于Presentations集合中的成员。Presen

3、tations集合中包含所有的Presentation对象，它们分别代表PowerPoint中所有打开的演示文稿。Slide 代表PowerPoint文稿中的单张幻灯片，Slides集合包含演示文稿中的所有Slide对象。Shape 代表幻灯片中的单个形状，Shapes集合包含指定幻灯片中的所有Shape对象。Placeholders 代表指定幻灯片中占位符的所有Shape对象的集合。Placeholders集合中的每个Shape对象代表一个占位符，占位符可以是文本、图表、表格、组织结构图或其他类型的对象。如果幻灯片有标题，则标题是集合中的第一个占位符。PlaceholderFormat 包含

4、专门应用于占位符的属性，例如占位符类型。TextFrame 代表Shape对象中的文本框。包含文本框中的文本，还包含控制文本框对齐方式和缩进方式的属性和方法。Ruler 代表指定形状或指定样式中所有文本的标尺。包含大纲文本的制表位和缩进设置。TextRange 包含附加到形状上的文本，以及用于操作文本的属性和方法。ParagraphFormat 代表文本区域的段落格式。3 编程说明 3.1 问题的提出 目前，有很多教学教材都带有电子教案等电子文档，其中大多数为Powerpoint演示文稿。但原作者所提供的电子教案并不一定就完全适用于使用者，且不说内容上要作适当的修改，就是文稿格式也不一定适合使

5、用者的要求。内容的修改必须由使用者逐字逐句的斟酌，没法做批量处理；但文稿格式一般固定，即使有差异，也可做个别修改，适合做批量的调整，可以用编程的方式来实现处理的自动化。3.2 设计分析 PowerPoint文稿的文本格式，大至可分为这么几块：标题版式幻灯片中标题的格式，标题和文本版式幻灯片中的标题格式，其他占位符的格式和其他文本框的文本格式，只要能编程控制这些对象的文本格式，PowerPoint文稿中的文本格式基本确定。因此，必须从PowerPoint对象模型中找出上述对象，并对其相关属性进行修改，以达到控制文本格式的目的。标题版式幻灯片中的标题（其PlaceholderFormat对象的Ty

6、pe属性值为：ppPlaceh- olderCenterTitle）、标题和文本版式幻灯片中的标题（其PlaceholderFormat对象的Type属性值为：ppPlaceholderCenterTitle）、普通文本框（其Shape对象的Type属性值为：msoTextBox）中的文本格式所要控制的内容主要包括：文本字体类型、大小、前景色、粗体、斜体、下划线，行间距，段落前行间距，段落后行间距，对齐方式，缩进格式等。这些内容可通过TextFrame（文本框）中的TextRange（文本）的Font（字体）和ParagraphFormat（段落格式）的各种属性，以及TextFrame（文本框

7、）中的Ruler（标尺）的各种属性来控制。下面对所要用到的上述各种属性作一简单介绍： 字体（Font）对象中常用的属性有：NameAscii 返回或设置用于ASCII字符的字体（字符集编号在0-127之间的字符）。NameOther 返回或设置亚洲字体名称。NameFarEast 返回或设置其字符集编号大于127的字符所用的字体。Size 返回或设置字符大小，以磅为单位。Bold 决定字符格式是否为粗体。 Italic 决定字符格式是否为斜体。Underline 决定指定文本是否带有下划线。 段落格式（ParagraphFormat）对象中常用的属性有：Alignment 用以指定的段落格式为

8、每个段落返回或设置对齐方式。BaseLineAlignment 为指定段落返回或设置基线对齐方式。LineRuleAfter 决定是否将每段最后一行后面的行距设为指定的磅数或行数。LineRuleBefore 决定是否将每段第一行前面的行距设为指定的磅数或行数。LineRuleWithin 决定是否将基线间的行距设为指定磅数或行数。SpaceAfter 以磅或行为单位返回或设置指定文本中每段末行后的间距大小。SpaceBefore 以磅或行为单位返回或设置指定文本中每段首行前的间距大小。SpaceWithin 以磅或行为单位返回或设置指定文本中基准行之间的距离。TextDirection 返回

9、或设置指定段落的文本方向。WordWrap 决定是否自动换行以适应形状内部。 标尺（Ruler）对象中常用的属性有：Levels 返回一个描述大纲缩进格式的RulerLevels对象。RulerLevels指定标尺上所有RulerLevel对象的集合。每个RulerLevel对象代表特定大纲级别上文本的首行缩进和左缩进。该集合通常包含五个成员（每个可用大纲级别各一个）。每个RulerLevel对象上有：FirstMargin属性：以磅为单位返回或设置指定大纲级别的首行缩进。LeftMargin属性：以磅为单位返回或设置指定大纲级别的左缩进。3.3 程序编写思路 根据上述分析，可按下述思路编写程

10、序：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

11、, 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是标题版式幻灯片中的标

12、题 下面是对标题版式幻灯片中标题文本的字体格式进行处理 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 = msoTru

13、e .SpaceWithin = 1 .LineRuleBefore = msoTrue .SpaceBefore = 0.2 .LineRuleAfter = msoFalse .SpaceAfter = 0 Call NoTitle（2, m） 调周NoTitle子过程处理其他占位符中的文本格式 Case ppPlaceholderTitle是标题和文本版式幻灯片中的标题 下面是对标题和文本版式幻灯片中标题文本的字体格式进行处理 .Size = 32 下面是对标题和文本版式幻灯片中标题文本的段落格式进行处理 .Alignment = ppAlignLeft Call NoTitle（2,

14、m）Case Else 没有标题 Call NoTitle（1, m） End Select End If k = MyDocument.Shapes.Count 取得幻灯片中形状的总数 处理幻灯片中除占位符外其他形状中的文本格式（主要是普通文本框） For j = m + 1 To k If MyDocument.Shapes（j）.Type = msoTextBox Then 下面是对形状中文本的段落格式进行处理 With MyDocument.Shapes（j）.TextFrame.TextRange.ParagraphFormat .SpaceWithin = 1.25 设置形状的大小

15、为容纳其边界内的文本而自动更改。MyDocument.Shapes（j）.TextFrame.AutoSize = ppAutoSizeShapeToFitText 下面是对形状中文本的首行缩进和左缩进进行处理 With MyDocument.Shapes（j）.TextFrame.Ruler.Levels（1） .FirstMargin = 0 .LeftMargin = 0 下面是对形状中文本的字体格式进行处理 With MyDocument.Shapes（j）.TextFrame.TextRange.Font .Size = 24 Next j Next i End Sub Sub No

16、Title（n1 As Integer, n2 As Integer）专门处理非标题占位符中的文本格式子过程 Dim j As Integer For j = n1 To n2 下面是对占位符中文本的段落格式进行处理 With MyDocument.Shapes.Placeholders（j）.TextFrame.TextRange.ParagraphFormat 设置占位符的大小为容纳其边界内的文本而自动更改。MyDocument.Shapes.Placeholders（j）.TextFrame.AutoSize = ppAutoSizeShapeToFitText 下面是对占位符中文本的首

17、行缩进和左缩进进行处理 With MyDocument.Shapes.Placeholders（j）.TextFrame.Ruler.Levels（1） 下面是对占位符中文本的字体格式进行处理 With MyDocument.Shapes.Placeholders（j）.TextFrame.TextRange.Font If Mydocument.Shapes.Placeholders（j）.PlaceholderFormat.Type _= ppPlaceholderSubtitle Then .Size = 32 如果是标题版式幻灯片中的子标题 Else .Size = 28 4 总结 在Microsoft Office套件中使用VBA编程，其关健在于理解Office应用软件中的对象和对象模型，以及一个对象在对象模型中的位置。只有弄清楚了对象模型，才能找到对象在对象模型中的位置，了解对象所具有的方法和属性，并通过编程去调用对象的方法或修改对象的属性，以达到应用程序自动化的目的。