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

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://linuxstyle.blog.csdn.net/article/details/1536957
在word应用程序中搜索和替换文本是举手之劳的事情,通过word的对象模型,我们也可以使用编程方式来实现。 

  Word的对象模型有比较详细的帮助文档,放在office安装程序目录,office 2003是在Program Files/Microsoft Office/OFFICE11/2052下,文档本身是为VBA提供的,在这个目录下还可以看到所有的office应用程序的VBA帮助。

  打开VBAWD10.CHM,看到word的对象模型,根据以往的使用经验,很容易在Document对象下找到Content属性,该属性会返回一个文档文字部分的Range对象,从这个对象中不难取到所有的文档内容,再用string的IndexOf()方法很容易达到目标。

object filename="";    //要打开的文档路径
string strKey="";      //要搜索的文本
object MissingValue=Type.Missing;

Word.Application wp
=new Word.ApplicationClass();
Word.Document wd
=wp.Documents.Open(ref filename,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue);

if (wd.Content.Text.IndexOf(strKey)>=0)
{
     MessageBox.Show(
"文档中包含指定的关键字!","搜索结果",MessageBoxButtons.OK);
}

else
{
     MessageBox.Show(
"文档中没有指定的关键字!","搜索结果",MessageBoxButtons.OK);
}


  不过,这种做法是很勉强的,对小文档来说,不存在问题,对超长超大的文档来说,这样的实现方法已经暗埋bug了,而且是程序级的bug,因为正常的测试会很难发现问题,在使用中导致程序出现什么样的结果也很难量化描述。

  其实,在word中已经提供了可以用作搜索的对象Find,在对象模型上也比较容易找到,对应的说明是这样的:该对象代表查找操作的执行条件。Find 对象的属性和方法与“替换”对话框中的选项一致。从模型上看,Find对象是Selection的成员,从示例代码来看似乎也是Range的成员,查找Range的属性,果然如此。于是修改上面的代码:

 


wd.Content.Find.Text
=strKey;
if (wd.Content.Find.Execute(ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue))
{
     MessageBox.Show(
"文档中包含指定的关键字!","搜索结果",MessageBoxButtons.OK);
}

else
{
     MessageBox.Show(
"文档中没有指定的关键字!","搜索结果",MessageBoxButtons.OK);
}



  这样似乎也不是最好,因为我只要判断指定的文本是不是在文档中,而不需要知道它出现了几次,如果有多个要搜索的文本,难道每次都进行全文档搜索?假设我要搜索的文本包含在文档中,最好的情况是在文档开头就包含我要查找的文本,最坏的情况是在文档的最后包含要查找的文本,如果每次取一部分文档进行判断,符合条件就结束本次搜索,就可以避免每次搜索整个文档了。模型中的Paragraphs对象现在派上用场了,再修改一下代码:


int i=0,iCount=0;
Word.Find wfnd;

if (wd.Paragraphs!=null && wd.Paragraphs.Count>0)
{
    iCount
=wd.Paragraphs.Count;
    
for(i=1;i<=iCount;i++)
    
{
        wfnd
=wd.Paragraphs[i].Range.Find;
        wfnd.ClearFormatting();
        wfnd.Text
=strKey;
        
if (wfnd.Execute(ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue,ref MissingValue,
               
ref MissingValue))
        
{
               MessageBox.Show(
"文档中包含指定的关键字!","搜索结果",MessageBoxButtons.OK);
               
break;
        }

    }

}


 
展开阅读全文

C# winform如何实现在控件中显示word文档

04-02

这是我在网上查到的代码,不知道为什么无法显示在控件里,而是直接代开了word文档rn请高手指点!rnusing System;rnusing System.Collections.Generic;rnusing System.ComponentModel;rnusing System.Data;rnusing System.Drawing;rnusing System.Linq;rnusing System.Text;rnusing System.Windows.Forms;rnusing System.Reflection;rnrnnamespace TestShowWordOnFormrnrn public partial class Form1 : Formrn rn private Object oDocument;rn public Form1()rn rn InitializeComponent();rn rnrn private void button1_Click(object sender, EventArgs e)rn rn String strFileName;rn openFileDialog1.FileName = "";rn openFileDialog1.ShowDialog();rn strFileName = openFileDialog1.FileName;rn if (strFileName.Length != 0)rn rn Object refmissing = System.Reflection.Missing.Value;rn oDocument = null;rn axWebBrowser1.Navigate(strFileName, ref refmissing, ref refmissing, ref refmissing, ref refmissing);rn rnrnrn rnrn private void Form1_Load(object sender, EventArgs e)rn rn button1.Text = "Browse";rn openFileDialog1.Filter = "Office Documents(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt";rn openFileDialog1.FilterIndex = 1;rnrn rnrn private void Form1_Closed(object sender, EventArgs e)rn rn oDocument = null;rn rnrn private void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)rn rn Object o = e.pDisp;rn oDocument = o.GetType().InvokeMember("Document", BindingFlags.GetProperty, null, o, null);rn Object oApplication = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, null, oDocument, null);rn Object oName = o.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, oApplication, null);rn MessageBox.Show("File opened by: " + oName.ToString());rnrn rn rnrn 论坛

没有更多推荐了,返回首页