行間があいているワード文書の行間を詰める方法をおしえてください

質問

たとえば、以下のように、改行しているため行間があいているワード文書

「血が騒ぐのはますけど

ちなみにガ油は、今日の上げで

トレンドにてりたでしたら
例えば、今日明日までに

NO．3490でも書きましたけど」

を

「血が騒ぐのはますけど
ちなみにガ油は、今日の上げで
トレンドにてりたでしたら
例えば、今日明日までに
NO．3490でも書きましたけど」

というふうに行間をつめて印刷できるようにしたいのですがどうしたらいいでしょう。
なお、あいている行間をいちいち削除するのでなくもっと
簡単な作業で行間をつめる方法でもかまいません。

回答No.7

ChM

#1です。「補足」(ほかの皆さんのご回答や、それに対する「補足」も)拝見しました。私の当初の回答が見当違いだったようですネ。

まず、当初の文章が次のようになっているわけですネ(確認です)。

<ここから>血が騒ぐのはますけど<改行>
<改行>
<改行>
ちなみにガ油は、今日の上げで<改行>
<改行>
トレンドにてりたでしたら<改行>
例えば、今日明日までに<改行>
<改行>
<改行>
NO．3490でも書きましたけど<改行><ここまで>

#3のご回答を、マクロに組み込めばいかがでしょうか？ 次のようにしてみてください。マクロ名などは、適宜お好みのものにしてください。下述は一例です。

1) ツール→マクロ→新しいマクロの記録 で、ダイアログが開いたら「Macro1」を適当な名前に変えて、「キーボード」をクリック。「割り当てるキー」を(例えば)「Ctrl」＋「1」として、「割り当て」→「閉じる」の順でクリック。
2) 「Ctrl」＋「F」で「置換」タブに変えて、「オプション」のチェックをすべて外してから、「検索する文字列」に「^p^p^p」、「置換後の文字列」に「^p」と入力して「すべて置換」→「OK」
3) つづいて、「検索する文字列」に「^p^p」、「置換後の文字列」に「^p」と入力して「すべて置換」→「OK」
4) これで、

<ここから>血が騒ぐのはますけど<改行>
ちなみにガ油は、今日の上げで<改行>
トレンドにてりたでしたら<改行>
例えば、今日明日までに<改行>
NO．3490でも書きましたけど<改行><ここまで>

となったのを確認して(私自身やってみました)、「Ｘ」でダイアログを閉じ、更にマクロの「記録」ダイアログも「Ｘ」で閉じる。「マクロの記録」を終了させる。
5) 「印刷」する。
6) 印刷を終えたら、WORDを「Ｘ」で閉じる。そのさい、変更の保存を聞かれるので「いいえ」を選択。これで、印刷だけは行が詰まり、文書ファイル(WORD)は、行間が空いた当初のままの状態で保存される。
7) 次回以降(別のファイルであっても)、「Ctrl」＋「1」だけの操作で、(4)までが一発で可能となる。

いかがでしょうか？ 試してみてください。

お礼

懇切丁寧にお答えくださり。ありがとうございました