PPT文档编辑完美解决方案.docVIP

PPT文档编辑完美解决方案 　　摘要：基于VBA对Microsoft office PowerPoint编程，笔者提出了一套PPT文字编辑的快速解决方案，大幅提高了PPT制作效率。该文详细描述了编程思路、关键代码、导入文档的编辑原则和宏程序应用规范，设计了通过导入文档一次性构建PPT文本框架和仅仅更新现有PPT文本内容的“开关”，以适应不同制作阶段或不同使用者的需要。 　　关键词：VBA编程；PPT制作；文本导入 　　中图分类号：TP37文献标识码：A文章编号：1009-3044(2012)24-5885-03 　　在教学、科研、商务诸多工作中，PowerPoint（PPT）的应用十分广泛。因此，PPT的制作技巧成为现代成功人士必须掌握的重要技能之一。快速制作一个优秀的PPT作品，需要事先准备好文字、图片和音像等资料。在已经编辑好了文字资料的情况下，通过复制和粘贴的方法，一张张的幻灯片骤一制作，工作效率很低；采用PowerPoint提供的在“大纲”模式下进行复制和粘贴的方法，只能一次性将文字粘贴到标题文本框中，工作效率仍然不高。笔者采取VBA编程方法，完美地解决了上述问题，大幅提高了PPT制作效率。 　　 1 PPT文字编辑解决方案 　　打开或新建一个PPT文档，按Alt+F11，打开Visual Basic编辑器。首先引用Microsoft Word 11.0 Object Library和Wimdows Script Host Object Model对象，然后插入一个模块，在模块中建立一个名为“导入PPT”的过程，编程思路及关键代码如下： 　　1.1实现自动查找导入文件功能。 　　Dim MyFile As String, MyFile1 As String 　　With Application.FileDialog(msoFileDialogFilePicker) 　　.AllowMultiSelect = False 　　.Filters.Clear 　　.Filters.Add Word文件, *.doc.Filters.Add 文该文件, *.txt 　　If .Show = -1 Then MyFile1 = .SelectedItems(1) Else Exit Sub 　　End With 　　1.2如果导入文件为Word文件，则转换为文该文件。 　　If Right(MyFile1, 3) = doc Then 　　On Error GoTo gjh5033 　　GetDocText1 = 　　Dim wapp As Word.Application Dim doc As Document 　　Dim GetDocText1 As String 　　Set wapp = New Word.Application 　　wapp.Visible = True 　　Set doc = wapp.Documents.Open(MyFile1) GetDocText1 = doc.Content.Text 　　Dim sFile As Object, FSO As Object 　　MyFile1 = Left(MyFile1, Len(MyFile1) - 4) .txt 　　Set FSO = CreateObject(Scripting.FileSystemObject) 　　Set sFile = FSO.CreateTextFile(MyFile1, True) 　　sFile.WriteLine (GetDocText1) 　　sFile.Close 　　Set sFile = Nothing 　　Set FSO = Nothing 　　Name MyFile1 As MyFile 　　gjh5033: 　　If Not (doc Is Nothing) Then 　　doc.Close 　　Set doc = Nothing 　　End If 　　If Not (wapp Is Nothing) Then 　　wapp.Quit 　　Set wapp = Nothing 　　End If 　　On Error GoTo 0 　　End If 　　1.3获取将写入到每张幻灯片的标题、内容和备注 　　On Error Resume Next 　　Dim code As String, code1 As String, code2 As String 　　Dim str4() As Integer, n As Integer, m As Integer 　　Dim str5() As String, st