找回密码
 注册
搜索
热搜: 回贴

用C#实现在PowerPoint文档中搜索文本

2010-1-12 14:27| 发布者: admin| 查看: 115| 评论: 0|原作者: 千年缘

     用编程的方式根据对象模型很容易实现在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;}}}}

最新评论

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏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.

返回顶部