WORDで、段落前の改ページの設定を行っていますが、不必要に改ページさ

質問

WORDで、段落前の改ページの設定を行っていますが、不必要に改ページされてしまいます。
直すにはどうすればよいしょうか？

実際に行っているのは

1．見出し1
1.1. 見出し21
1.1.1 見出し31
1.1.2 見出し32
1.2. 見出し22
1.2.1 見出し31
1.2.2 見出し32
1.3. 見出し23

を
1．見出し1
1.1. 見出し21
1.1.1 見出し31
------ 改ページ ------
1.1.2 見出し32
------ 改ページ ------
1.2. 見出し22
1.2.1 見出し31
------ 改ページ ------
1.2.2 見出し32
------ 改ページ ------
1.3. 見出し23

のようにしたいのですが、

------ 改ページ ------
1．見出し1
------ 改ページ ------
1.1. 見出し21
------ 改ページ ------
1.1.1 見出し31
------ 改ページ ------
1.1.2 見出し32
------ 改ページ ------
1.2. 見出し22
------ 改ページ ------
1.2.1 見出し31
------ 改ページ ------
1.2.2 見出し32
------ 改ページ ------
1.3. 見出し23

となってしまうのです。

それぞれの見出し番号で１から始まるときのみ、段落前で改ページしないようにするには
どうしたらよいのでしょうか？

ご教授をお願いいたします。

回答No.1

enunokokoro · ベストアンサー

アウトラインスタイルとして、レベルごとの見出しスタイルに
[段落前に改ページする]のチェックをついた状態で作業をして
いるのですね。

[段落前に改ページする]のですから、見出しの番号に関係なく
改ページをするのはしかたがないことですので、スタイルへの
設定は有効にしたまま、各レベルの最初の見出しスタイルのみ
[段落前に改ページする]のチェックを外せばよいと思います。

各見出し項目の最初の段落番号の書式としての設定を解除する
のがレベルの最初の段落だけですから、作業的に苦にならない
と思いますよ。以下のマクロを用意しておけば、改ページへの
設定を切替できます。ショートカットキーやツールとして配置
しておけば作業が楽になると思います。

Sub PageBreakBefore()
'
'段落書式としての段落前での改ページを切り替える
'
Sub PageBreakBefore()
'
'
　With Selection.ParagraphFormat
　　If .PageBreakBefore = True Then
　　　　.PageBreakBefore = False
　　　Else: .PageBreakBefore = True
　　End If
　End With

End Sub

ちなみに、この切り替え作業をするのなら、表示を[下書き]や
[アウトライン]にしておくと楽に作業ができると思います。

お礼

すばらしいです！

長い間悩んでいたものが、一気に解決できました。
本当にありがとうございました！！