【WordVBA】連続した空白行を1行にする

空白行が1行だったり2行だったり、混在している場合って意外と多いんですよね。以前はページ数が少ないため、地道に行を削除していましたが、作業量が多くなってくると話は別です。 　 マクロで一括置換して業務効率化を図るべく、試行錯誤しました。空白行をすべて削除するのではなく、1行だけ残したい人向けです。 余分な空白行を詰める 連続した2行以上の空白行があるとき、1行にするマクロです。ついでに文書の最後にある空白行も削除します。 　 ワイルドカードを使うためには、「あいまい検索（