用编程的方式根据对象模型很容易实现在Word、Excel文档中搜索文本,在PowerPoint里面也同样如此,使用对象模型有助于我们了解office的文档结构。 搜索的思路和方法基本是一样的,用PowerPoint应用程序对象打开指定的文档,用文档对象获取文档,再使用合适的对象将文档分割成搜索范围适中的对象进行搜索。 打开PowerPoint的VBA帮助文档VBAPP10.CHM,根据对象模型图,很容易找到我们需要的几个集合和对象:Application、Presentations、Presentation、Slides、Slide、TextFrame、TextRange。其中Presentation代表一个 PowerPoint 文档,Slide表示PowerPoint文档中的单张幻灯片,TextFrame是幻灯片上的文本框,TextRange是文本框中的文本。 打开PowerPoint文档: stringfilename="";PowerPoint.Applicationpa=newPowerPoint.ApplicationClass();PowerPoint.Presentationpp=pa.Presentations.Open(filename, Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse); Open()方法的第三个参数在帮助文档中的说明如下: Untitled 可选。MsoTriState 类型。指定文件是否有标题。 因为是Untitled,所以按照上面的代码,打开文档之后才能引用PowerPoint文档的标题,如果不想使用标题,就要把枚举msoFalse改成msoTrue。搜索文本: string[]strKeyWordList={};//要搜索的文本PowerPoint.TextRangeoText;foreach(PowerPoint.Slideslideinpp.Slides){foreach(PowerPoint.Shapeshapeinslide.Shapes){foreach(stringstrKeyWordinstrKeyWordList){oText=null;oText=shape.TextFrame.TextRange.Find(strKeyWord,0,Microsoft.Office.Core.MsoTriState.msoFalse,Microsoft.Office.Core.MsoTriState.msoTrue);if(oText!=null){MessageBox.Show("文档中包含指定的关键字" strKeyWord "!","搜索结果",MessageBoxButtons.OK);continue;}}}} |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 13:27 , Processed in 0.209464 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.