Random Script

'Find and replace the specified text.
Selection.Find.Execute Wrap:=wdFindContinue, Forward:=wdTrue, FindText:="__", ReplaceWith:="__"
 
'Find and move the specified text. 
Selection.Find.Execute Wrap:=wdFindContinue, Forward:=wdTrue, FindText:="__"
If Selection.Find.Found = True Then
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.MoveUp unit:=wdLine, Count:=1
Selection.PasteAndFormat (wdPasteDefault)
End If