C#读PPT文件与搜索

    技术2022-05-20  47

    private void button10_Click(object sender, System.EventArgs e)    {      string fileName = "d://a.ppt";

          PowerPoint.Application pptApp = new PowerPoint.ApplicationClass();      PowerPoint.Presentation pptPre = pptApp.Presentations.Open(fileName,        Microsoft.Office.Core.MsoTriState.msoTrue,        Microsoft.Office.Core.MsoTriState.msoFalse,        Microsoft.Office.Core.MsoTriState.msoFalse);      PowerPoint.Slides mySlides = pptPre.Slides;

          string[] strKeyWordList = {"无线"}; //要搜索的文本      try      {        /*        for (int i=0;i<mySlides.Count;i++)        {          PowerPoint.Shapes myShapes = mySlides[i].Shapes;          for (int j=0;j<myShapes.Count;j++)          {            if (myShapes[j].HasTextFrame == Microsoft.Office.Core.MsoTriState.msoTrue)            {              if (Microsoft.Office.Core.MsoTriState.msoTrue == myShapes[j].TextFrame.HasText)              {                textBox2.Text = textBox2.Text + myShapes[j].TextFrame.TextRange.Text;              }            }          }        }        */        foreach(PowerPoint.Slide sld in pptPre.Slides)        {          foreach(PowerPoint.Shape shp in sld.Shapes)          {            if(Microsoft.Office.Core.MsoTriState.msoTrue == shp.HasTextFrame)            {              if(Microsoft.Office.Core.MsoTriState.msoTrue == shp.TextFrame.HasText)              {                textBox2.Text = textBox2.Text + shp.TextFrame.TextRange.Text;              }            }          }        }        /*        PowerPoint.TextRange oText = null;        foreach(PowerPoint.Slide slide in pptPre.Slides)        {          foreach(PowerPoint.Shape shape in slide.Shapes)          {            foreach(string strKeyWord in strKeyWordList)            {              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;              }            }          }        }        */      }      finally      {        pptPre.Close();        System.Runtime.InteropServices.Marshal.ReleaseComObject (pptPre);        pptPre = null;        pptApp.Quit();        System.Runtime.InteropServices.Marshal.ReleaseComObject (pptApp);        pptApp = null;      }    }


    最新回复(0)