Sub PrepareToReplaceFromTop()
' Paul Beverley - Version 10.04.21
' Copy text into the F&R box from top

myText = Selection
If Asc(myText) <> 32 Then myText = Trim(myText)
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = myText
  .Replacement.Text = myText
  .MatchWildcards = False
  .MatchWholeWord = False
End With
Selection.HomeKey Unit:=wdStory
On Error Resume Next
Application.Run MacroName:="EditReplace"
End Sub