Word Stop at the end of document

Use a loop that repeatedly calls Find.Execute and stops when .Found is False. Also set Wrap = wdFindStop so the search ends at the end of the document instead of wrapping.

A pattern based on the documented approach with Range.Find is more reliable than using Selection directly. Example that loops all occurrences of "F90" to the end of the document:

Sub Word_to_Excel_Part_One()
    Dim rng As Range

    Set rng = ActiveDocument.Content

    With rng.Find
        .ClearFormatting
        .Text = "F90"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop   ' stop at end of document
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Do While rng.Find.Execute
        ' rng is now at the found "F90"; perform the rest of the logic here
        ' Example: insert paragraph before F90
        rng.Collapse Direction:=wdCollapseStart
        rng.MoveStart Unit:=wdCharacter, Count:=-1
        rng.InsertParagraphBefore

        ' Now search for the next occurrence, starting after the current one
        rng.Collapse Direction:=wdCollapseEnd
    Loop
End Sub

Key points from the Word object model:

• Use Range.Find when looping through multiple matches so the selection is not constantly changed and the range is redefined on each successful find.
• Use .Forward = True to search forward through the document.
• Use .Wrap = wdFindStop to stop at the end of the document instead of continuing from the beginning.
• After each successful Execute, collapse the range to its end (wdCollapseEnd) before the next Execute so the search continues after the last match.

The same pattern can be applied to the later Find calls for "kg" and the wildcard pattern; each should use a Range and a loop, with Wrap = wdFindStop, and collapse the range between iterations.

References:

• Finding and Replacing Text or Formatting
• Programmatically loop through found items in documents
• Find.Forward property (Word)
• Find.Wrap property (Word)
• Editing text
• Find.MatchWildcards property (Word)