【Word VBA】左右の余白を調整するWordマクロ（その２）

2011年12月9日 2022年10月30日

前回紹介した「左右の余白を調整するマクロ」なのですが、使われてエラーが発生したかたいらっしゃいましたか？

先日紹介したマクロは、文書全体の左右のマージン（余白）が同じ値である場合には使えるのです。

セクションごとにマージンを変えた場合には、エラーになりますね。

さて、そのような場合にどう対処するのかを考えてみたいと思います。

＜目次＞

前回のマクロを眺めてみましょう。


Sub 左右の余白の増加()
　With ActiveDocument.PageSetup
　　.LeftMargin = .LeftMargin + 2
　　.RightMargin = .RightMargin + 2
　End With
End Sub

これは、現在の文書に対してページ設定をする記述です。

このような記述の場合、文書全体に対して、左側の余白と右側の余白の値を、それぞれLeftMargin プロパティとRightMargin プロパティとで取得することができます。

ところが、文書全体が特定の余白の値を持ち得ない場合があるのです。文書中の最初のセクションと次のセクションとで、余白の値が違う場合ですね。

このようなときには、LeftMargin プロパティやRightMargin プロパティには、wdUndefined　という値がはいります。

ページ設定の画面では、値の欄が空欄になる場合を意味します。

以下の画像では、セクション区切りをした2ページ目以降の左余白を1ページ目の余白よりも大きくした場合のページ設定の「余白」画面を示しています。

この場合、文書全体としての左の余白の値が特定の値となっていない（wdUndefined）ため、空欄になっています。

ちなみに、このwdUndefinedは、蛍光ペンの色の判定のときにも使っています。

選択範囲内に複数の色が存在するとき、１つの色として特定できないため、色がwdUndefinedと判定されますね。「Word文書中の蛍光ペンのテキストを抽出するマクロ（色指定版）」

このwdUndefinedは、具体的には9999999と同じです。（特定の蛍光ペンを消すマクロ）

よって、余白にこのような大きな値が入ったまま処理をしようとすると、あり得ない値を使っているためにエラーになってしまうわけです。

どうしたらいいか？ですが、とりあえず２つあります。

（１）wdUndefinedのときには、「セクション毎に余白が違いますよ」とメッセージを出して、処理をしない。

（２）セクション毎にページ設定をする。

（１）では面白くないので、（２）を考えてみます。wdUndefinedと判定される原因は、文書全体で処理をするからです。よって、セクション毎にページ設定をすればそもそもwdUndefinedと判定されません。

長くなったので、続きは次回。

左右の余白を調整刷るマクロ（その２）：今回