Sub FindClip()
' Paul Beverley - Version 12.01.21
' Find whatever is in the clipboard

' Move up this many lines first, before starting the search
moveLinesUp = 20
moveLinesUp = 10

Application.ScreenUpdating = False
If moveLinesUp > 0 Then Selection.MoveUp , moveLinesUp
hereNow = Selection.Start
Selection.Paste
Selection.Start = hereNow
strClip = Trim(Selection)
WordBasic.EditUndo
Application.ScreenUpdating = True

With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Wrap = wdFindStop
  .Forward = True
  .MatchCase = False
  .MatchWildcards = False
  .MatchWholeWord = False
  .MatchSoundsLike = False
  .Text = strClip
  .Execute
End With
If Selection.Start = hereNow And _
     Selection.Find.Found = False Then Beep
'Add this to leave F&R dialogue in a sensible state
Selection.Find.Wrap = wdFindContinue
End Sub