Sub InstantFindDownWild() ' Paul Beverley - Version 11.05.21 ' Finds selected text downwards wildcards set selectWholeLine = True addBookmark1 = True addBookmark2 = False On Error GoTo ReportIt If Selection.Start = Selection.End And selectWholeLine = True _ Then Selection.Expand wdParagraph If Right(Selection.Text, 1) = vbCr Then Selection.MoveEnd , -1 thisBit = Selection thisBit = Replace(thisBit, vbCr, "^13") thisBit = Replace(thisBit, vbTab, "^t") wordEnd = Selection.End Selection.Collapse wdCollapseStart If addBookmark1 = True Then ActiveDocument.Bookmarks.Add Name:="myTempMark" If addBookmark2 = True Then ActiveDocument.Bookmarks.Add Name:="myTempMark2" Selection.Start = wordEnd Selection.Start = Selection.End hereNow = Selection.Start With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Wrap = wdFindStop .Text = thisBit .Replacement.Text = "" .MatchWildcards = True .MatchWholeWord = False .MatchCase = False .Forward = True .Execute End With If Selection.Start = hereNow And _ Selection.Find.Found = False Then Beep ' Leaves F&R dialogue in a sensible state Selection.Find.Wrap = wdFindContinue Exit Sub ReportIt: asdfgsdf = Err.Number If Err.Number = 5560 Then Beep MsgBox ("Bad pattern match!") Else On Error GoTo 0 Resume End If End Sub