wordのマクロで

簡単なものなら。 [置換]で[ワイルドカード]にチェックを入れます。 　[検索する文字列]：　^13{1,}　　　または　^11{1,} 　[置換後の文字列]：　^p 段落記号が1つ以上、または段落内改行記号が1つ以上を[検索]をして、 段落記号一つに[置換]する設定です。 No.2の回答者が提示した方法では、不要な改行の数が奇数の場合と偶数 の場合で結果が違いますから、希望していることができないので、意味 がないと思います。 No.3の回答者が提示した方法でなら問題なく置換がされますが、不要な 改行だけが文書の最後に連続してあるような場合だと、置換の対象には なりませんので、私の提示したほうが利用範囲が広いと思います。

参考までに補足します。 基本的にTrick--o--さんの回答された置換操作でOKですが、連続した改行は提示のワイルドカード置換ではできません。 正確なワイルドカード置換は以下のような設定になります。 置換する文字列(連続する改行と改行以外の文字列） ^13@([!^13]) 置換後の文字列（複数の改行は1つの改行にして改行以外の文字列はそのまま） ^13\1 ちなみにメールの文章などをワードにコピー貼り付けしたときの改行は↓マーカーの段落内改行ですので、その場合は^13の代わりに^11で置換して下さい。

Wordの置換（Ctrl+H）で、オプションを展開 ワイルドカードにチェック 検索文字列　^13^13@ 置換文字列 （何も入力しない） で（全て）置換。 意味：^13→改行、@→直前の文字を繰り返す、XX@→Xが2個以上連続する（ワイルドカード使用時） マクロにしたければ、マクロの記録を使って適当に。

Wordの置換でエスケープシーケンスを扱えるかどうかわからないですが、テキストエディタでの置換なら 改行コードが「\n」なので、置換で \n\n → \n とすればできます。