How to use advanced find in MS Word with .NET C#

Question

I have a problem like this: I need to use advanced find to find a specific text (base on Font of the text, the text string, wildcard,...), and write down to a notepad file which page did I find that text.

I see that in C# .Net has this Find.Execute method, but I don't know if it's possible to do this, I have googled around but no hope.

But my idea is like this code

using Microsoft.Office.Core;
using Word = Microsoft.Office.Interop.Word;
using System.Reflection;

...

Word.Application oWord;
Word._Document oDoc;

oWord = new Word.Application();
oWord.Visible = false;

oDoc = oWord.Documents.Open(strPath, ReadOnly: true);

Word.Range findRange;
Word.Range resultRange;
int nPage;

//Get the range of the whole word document
int nEnd;
nEnd = oDoc.Paragraphs.Last.Range.Sentences.First.End;          
findRange = oDoc.Range(0, nEnd);

//Setup find condition
//The color of the found text: RGB(243,99, 195) . Please help!

//Execute find --> Loop until not found anymore
{
//findRange.Find.Execute... Please help!

//Get the range of the found text
//resultRange = ... Please help!

//Get page of the result range
nPage = resultRange.get_Information(Word.WdInformation.wdActiveEndPageNumber);

//Do anything you like with nPage
}
//Close the process
oDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges);
((Word._Application)oWord).Quit(Word.WdSaveOptions.wdDoNotSaveChanges);

Thank you in advance.

Answer 1

Thank God, I found my solution. After I read:

• this article to find out how to loop the find next feature.

• This article to find out that must use Find.Font.Color instead of Find.Font.TextColor.RGB

• This article to get the page range (the code is pretty unclean, but usable)

Ok, here it goes

    Word.Application oWord;
    Word._Document oDoc;

    oWord = new Word.Application();
    oWord.Visible = false;

    oDoc = oWord.Documents.Open(strWorkingPath, ReadOnly: true);
    //===================Excute===================
    /*Word 2013*/
    oWord.ActiveWindow.View.ReadingLayout = false;

    // Get pages count
    Word.WdStatistic PagesCountStat = Word.WdStatistic.wdStatisticPages;
    int nTotalPage = oDoc.ComputeStatistics(PagesCountStat);

    int nEndOfTheDoc = oDoc.Paragraphs.Last.Range.Sentences.First.End;

    int nStart = 0;
    int nEnd = nEndOfTheDoc;

    List<int> lstPage = new List<int>();
    int color = 696969;//The color you can get by read the Font.Color of the Range in Debug view

    Word.Range findRange;

    object What = Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage;
    object Which = Microsoft.Office.Interop.Word.WdGoToDirection.wdGoToAbsolute;
    object nCrtPage;
    object nNextPage;

    bool bPageIsIn = false;

    /*Loop the pages*/
    for (int i = 1; i <= nTotalPage; i++)
    {
        /*Get the start and end position of the current page*/
        nCrtPage = i;
        nNextPage = i + 1;
        nStart = oWord.Selection.GoTo(ref What,
           ref Which, ref nCrtPage).Start;
        nEnd = oWord.Selection.GoTo(ref What,
           ref Which, ref nNextPage).End;

        /*The last page: nStart will equal nEnd*/
        if(nStart == nEnd)
        {
            /*Set nEnd for the last page*/
            nEnd = nEndOfTheDoc;
        }

        /*Set default for Count page trigger*/
        bPageIsIn = false;
        /*Set the find range is the current page range*/
        findRange = oDoc.Range(nStart, nEnd);

        /*Set up find condition*/
        findRange.Find.Font.Color = (Word.WdColor)color;
        findRange.Find.Format = true;
        findRange.Find.Text = "^?";

        do
        {
            /*Loop find next*/
            findRange.Find.Execute();

            /*If found*/
            if (findRange.Find.Found)
            {
                /*If found data is still in the page*/
                if (findRange.End <= nEnd)
                {
                    /*If found data is visible by human eyes*/
                    if (!string.IsNullOrWhiteSpace(findRange.Text))
                    {
                        /*Ok, count this page*/
                        bPageIsIn = true;
                        break;/*no need to find anymore for this page*/
                    }
                }
            }
            else
                break;/*no need to find anymore for this page*/
        }while (findRange.End < nEnd);/*Make sure it is in that page only*/

        if (bPageIsIn)
            lstPage.Add(i);
    }

    //===================Close===================
    oDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges);
    ((Word._Application)oWord).Quit(Word.WdSaveOptions.wdDoNotSaveChanges);

    foreach (var item in lstPage)
    {
        builder.AppendLine(item.ToString());//Do anything you like with the list page
    }