Repeating Microsoft Word VBA until no search results found

by

Good question this one, you can loop through the whole document using the Selection.Find.Found result.

What you do is start a search and if you find a result go into a loop only while the Selection.Find.Found result is true. Once you’ve got through these, you’re done. The following code should do the trick nicely for you.

Sub SearchFN()
    Dim iCount As Integer

    'Always start at the top of the document
    Selection.HomeKey Unit:=wdStory

    'find a footnote to kick it off
    With Selection.Find
        .ClearFormatting
        .Text = "&&FB:*&&FE"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = True
        .Execute
    End With

    'If we find one then we can set off a loop to keep checking
    'I always put a counter in to avoid endless loops for one reason or another
    Do While Selection.Find.Found = True And iCount < 1000
        iCount = iCount + 1

        'Jump back to the start of the document.  Since you remove the
        'footnote place holder this won't pick up old results
        Selection.HomeKey Unit:=wdStory
        Selection.Find.Execute

        'On the last loop you'll not find a result so check here
        If Selection.Find.Found Then

            ''==================================
            '' Do your footnote magic here
            ''==================================

            'Reset the find parameters
            With Selection.Find
                .ClearFormatting
                .Text = "&&FB:*&&FE"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchKashida = False
                .MatchDiacritics = False
                .MatchAlefHamza = False
                .MatchControl = False
                .MatchByte = False
                .MatchAllWordForms = False
                .MatchSoundsLike = False
                .MatchFuzzy = False
                .MatchWildcards = True
            End With
        End If
    Loop
End Sub

More Related Contents:

  1. Split Words in the comment text
  2. Get list of sub-directories in VBA
  3. Sending HTTP requests with VBA from Word
  4. How to insert text into Outlook email editor using VBA
  5. Getting the headings from a Word document
  6. What is behind this difference in parentheses effect in VBA?
  7. Speed up multiple replacement
  8. Macro to update all fields in a word document
  9. To find and replace a text in the whole document in MS Word 2010 (including tables)
  10. VBA code takes long time to execute in excel
  11. VBA, ADO.Connection and query parameters
  12. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  13. Hidden features of VBA
  14. What is the lifetime of a global variable in excel vba?
  15. Excel VBA Macro: User Defined Type Not Defined
  16. VBA: Selecting range by variables
  17. Use autofilter on more than 2 criteria
  18. Calling a Sub in VBA
  19. Open an html page in default browser with VBA?
  20. Compiler Error: User-defined types not defined
  21. Is it better to use ADO or DAO in Access 2007?
  22. Open a workbook using FileDialog and manipulate it in Excel VBA
  23. Vba Excel do vlookup from a closed file
  24. Use getElementById on HTMLElement instead of HTMLDocument
  25. Is there an equivalent to Thread.Sleep() in VBA
  26. Can I simultaneously declare and assign a variable in VBA?
  27. How to get logged-in user’s name in Access vba? [duplicate]
  28. finding latest file in a folder and opening it (vba access)
  29. VBA inheritance, analog of super
  30. Working with current open email

Leave a Comment