WordでVBAマクロを取得するにはどうすれば、見つかったテキストのみが含まれている行は削除されますが、見つかったテキストおよびその他のテキストは含まれません

Question

簡単に言えば、複数の質問と回答が何私は欲しい。私は、以下の説明何だろう必要がある何

：

FindText ("Find me") 
If other text exists on this line Then 
With Selection.Find 
.Text = "Find me" 
.Replacement.Text = "Found you" 
.Execute Replace: [not sure what to put here] 

Else delete the entire line 

私はこれは少し奇妙に思えるかもしれません知っているが、それは私が何を要求してきたものだ、と私はすべての答えを見つけることができませんどこにでも私に必要なものが与えられます。

EDIT：削除する行は、1行のテキストのみです。それは1つの可視線のみであり、次の行は復帰後である。

この削除された行の下の残りの部分は、空白を削除するために削除されると上に移動する必要があります。

Answer 1

Thisこの記事では全く同じ問題を扱い、解決策を提示しています。 Hereは、別の優れたソリューションを提供するSOの記事です。