浅析《二维动画设计》flash课件设计.pdfVIP

ISSN 1009-3044 E-mail:eduf@ 第8卷第24期 (2012年8月) ComputerKnowledgeandTechnology电脑知识与技术 ComputerKnowledgeandTechnology 电脑知识与技术 Vol.8,No.24,August2012. Tel:+86-551-5690963 5690964 PPT 文档编辑的完美解决方案 龚建华 （株洲市农业科学研究所，湖南株洲412007） 摘要：基于VBA对MicrosoftofficePowerPoint编程，笔者提出了一套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，打开VisualBasic编辑器。首先引用MicrosoftWord11.0ObjectLibrary和WimdowsScript HostObjectModel对象，然后插入一个模块，在模块中建立一个名为“导入PPT”的过程，编程思路及关键代码如下： 1.1 实现自动查找导入文件功能。 DimMyFileAsString,MyFile1AsString WithApplication.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect=False .Filters.Clear .Filters.AddWord文件,*.doc .Filters.Add文该文件,*.txt If.Show=-1ThenMyFile1=.SelectedItems(1)ElseExitSub EndWith 1.2 如果导入文件为Word 文件，则转换为文该文件。 IfRight(MyFile1,3)=docThen OnErrorGoTogjh5033 GetDocText1= DimwappAsWord.Application DimdocAsDocument DimGetDocText1AsString Setwapp=NewWord.Application wapp.Visible=True Setdoc=wapp.Documents.Open(MyFile1) GetDocText1=doc.Content.Text DimsFileAsObject,FSOAsObject MyFile1=Left(MyFile1,Len(MyFile1)-4).txt SetFSO=CreateObject(Scripting.FileSystemObject) SetsFile=FSO.CreateTextFile(MyFile1,True)