【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

マクロで検索と置換画面を出すようにしたんだけど
前回検索した語句だけクリアできないでしょうか
今はこんな感じです

Sub kensaku()
Const find_replace = 1849
Application.FindFormat.Clear
Application.CommandBars.FindControl(ID:=find_replace).Execute
End Sub