Advanced Find questions--Word 2010

[kdock]

I want to use some snazzy vba to find variations on a phrase. I notice that when you do a search in the navigation pane, it not only highlights all the hits throughout the document, but also tells me how many hits there are.

I want to find the variations and compare the number of matches. Does anyone know if there's a way to capture the number of matches? I have very little time today and my searching skills have been severely impaired by my exasperation.
Thanks much! Kim

[HansV]

There is no VBA equivalent of "Find All" etc. You could use this function (it will search the body of the document only:

Code: Select all

Function NumFound(strFind As String, Optional blnMatchWholeWord As Boolean, _
        Optional blnMatchCase As Boolean, Optional blnMatchWildCards As Boolean)
    Dim i As Long
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = strFind
        .MatchWholeWord = blnMatchWholeWord
        .MatchCase = blnMatchCase
        .MatchWildcards = blnMatchWildCards
        Do While .Execute
            i = i + 1
        Loop
        NumFound = i
    End With
End Function

Examples of usage:

Debug.Print NumFound("the")

will return the number of occurrences of "the", whether as a whole word or as part of a longer word such as "theater" or "atheist".

Debug.Print NumFound("the", True)

will return the number of occurrences of "the" as a separate word.

Debug.Print NumFound("t?e", , , True)

will return the number of occurrences of t and e with an arbitrary character in between, e.g. "the" or "tre" or "twe".

[kdock]

Oh, Hans. I don't think (or can't think, to be more precise), that this will work for me today. I'm going to go down and dirty, and worry about the cleanup tomorrow.

Thank you thank you for responding so quickly! Best, Kim