【入門編】【実務効率化】冊子印刷の面付けチェック！奇数・偶数ページでノド側（綴じ代）の余白マージンガイドを自動反転配置 – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.11.13

【実務効率化】冊子印刷の面付けチェック！奇数・偶数ページでノド側（綴じ代）の余白マージンガイドを自動反転配置

【実務効率化】冊子印刷の面付けチェック！奇数・偶数ページでノド側（綴じ代）の余白マージンガイドを自動反転配置

こんにちは。自動化エンジニアのアーキテクトです。

DTP（デスクトップパブリッシング）の現場で、何度も繰り返される「地味だけど、絶対に間違えられない作業」がありますよね。そう、「冊子のノド側（綴じ代）の余白チェック」です。

奇数ページは左側に、偶数ページは右側にマージン（余白）を作る。これを手動で、全ページ分、ガイド線を引いていく……。もし1ページでも左右を間違えたら、製本した時に文字がノドに吸い込まれてしまう。そんな恐怖と戦いながら作業しているあなたに、今日は最高の「武器」を授けたいと思います。

今日は、マクロの記録から一歩踏み出し、「ロジックでCorelDRAWを操る」ための極限の知見をお伝えします。

1. 「マクロの記録」の限界を知る

多くの初学者が最初に行うのが「マクロの記録」です。しかし、記録されたコードを見てみてください。

「ガイド線を引く」「座標を指定する」といった操作は記録されていますが、「もしページが奇数なら、こっち側に引く」という「判断（条件分岐）」は、記録機能では絶対に作れません。

マクロの記録は「動作の録画」であって、「思考の代行」ではないのです。
私たちが目指すのは、CorelDRAWのオブジェクトモデルを理解し、「ページ番号というデータ」を「座標という命令」に変換するプログラムです。

2. 攻略の鍵：オブジェクトの階層構造を理解する

CorelDRAW VBAを掌握するためには、以下の「家系図」をイメージしてください。

1. Application（CorelDRAWそのもの）
2. Document（開いているファイル）
3. Page（その中の各ページ）
4. Guides（ページが持つガイド線の集合体）

今回のミッションは、「Documentの中にある全てのPageを巡回し、そのPageのGuidesコレクションに対して、ページ番号に応じた座標にガイドを追加する」ことです。

3. 実装コード：マージンガイド自動配置スクリプト

さあ、準備はいいですか？現場でそのまま使える、プロ仕様のコードを提示します。
これを読み解くことで、VBAの「型」と「制御」が身につきます。

Option Explicit

''' <summary>
''' 冊子印刷用のノド側マージンガイドを自動配置するメインルーチン
''' </summary>
Sub AutoPlaceGutterGuides()
    Dim doc As Document
    Dim pg As Page
    Dim marginValue As Double
    Dim guideX As Double
    Dim pageWidth As Double
    
    ' --- 設定エリア ---
    ' 単位をミリメートルに固定（実務では必須の作法です）
    Set doc = ActiveDocument
    doc.Unit = cdrMillimeter
    
    ' ノド側の余白（綴じ代）を何mm空けるか設定
    marginValue = 10# 
    ' ------------------

    ' 処理の高速化：画面更新を停止して、描画の「重み」を軽減する
    Optimization = True
    On Error GoTo ErrorHandler

    ' 全ページをループ処理
    For Each pg In doc.Pages
        
        ' 1. 既存のガイド線を一旦クリア（ゴミを残さないのがプロの仕事）
        ' ※全てのガイドを消すと困る場合は、特定の条件で消すロジックが必要です
        pg.Guides.Clear
        
        ' 2. ページの幅を取得
        pageWidth = pg.SizeWidth
        
        ' 3. 奇数・偶数の判定ロジック
        ' pg.Index は 1から始まる整数。
        ' Mod 2 を使うことで、2で割った余りが 1 なら奇数、0 なら偶数と判定できる。
        If pg.Index Mod 2 <> 0 Then
            ' 【奇数ページ】ノドは「左側」にある
            ' 座標は 0 から marginValue の位置
            guideX = marginValue
            pg.Guides.Add cdrGuideVertical, guideX
            
        Else
            ' 【偶数ページ】ノドは「右側」にある
            ' 座標は ページの右端から marginValue の内側
            guideX = pageWidth - marginValue
            pg.Guides.Add cdrGuideVertical, guideX
            
        End If
        
        ' (おまけ) デザインの目安として、ページ端にもガイドを引く場合はここに追記
    Next pg

    ' 処理の終了処理
    Optimization = False
    ActiveWindow.Refresh
    MsgBox "ガイド線の配置が完了しました！", vbInformation, "完了"
    
    Exit Sub

ErrorHandler:
    ' エラーが発生した場合のリカバリー
    Optimization = False
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Sub

4. プロの視点：コードの「深層」を解説

このコードには、単なるプログラミング以上の「実務的な知恵」が詰まっています。

① `Optimization = True` の魔法

CorelDRAWは、オブジェクトが動くたびに画面を書き換えようとします。100ページある文書で100回画面を書き換えるのは、CPUにとって非常に重い「無駄な仕事」です。
`Optimization = True` を使うことで、「計算が終わるまで画面を描画するな」と命令できます。これにより、処理速度は劇的に向上します。

② `Mod` 演算子による条件分岐

`If pg.Index Mod 2 <> 0 Then`
ここがこのプログラムの心臓部です。`Mod` は余りを求める演算子です。

`1 Mod 2 = 1` (奇数)
`2 Mod 2 = 0` (偶数)

この数学的な性質を利用することで、「ページ番号」という属性を「配置ルール」へと変換しています。

③ 座標系の制御

`pageWidth – marginValue`
ここが最もミスが起きやすいポイントです。CorelDRAWの座標系は、基本的には左下（または左上、設定による）を起点とします。偶数ページの右側にガイドを引くには、「全体の幅からマージン分を引いた場所」を計算しなければなりません。

5. 陥りやすいエラーと回避策

あなたがこのコードを拡張する際、以下の罠に注意してください。

1. 単位の不一致エラー:
ユーザーの環境設定が「インチ」や「ピクセル」になっていると、`marginValue = 10` が「10インチ（約25cm）」になってしまい、画面が真っ白になります。必ず `doc.Unit = cdrMillimeter` を明示しましょう。
2. オブジェクトの消失:
`pg.Guides.Clear` は強力です。もし、すでに手動で引いてある「重要なガイド線」がある場合、それも全て消し去ってしまいます。実務では「特定のレイヤーにあるガイドだけを操作する」といった、より慎重なアプローチが必要になるでしょう。

最後に：ここをクリアすれば、VBAの基本はバッチリですよ

いかがでしたか？

「ただガイドを引く」という単純な作業に見えても、その裏には「オブジェクトの階層」「数学的な条件分岐」「描画パフォーマンスの最適化」という、エンジニアリングの本質が詰まっています。

マクロの記録から卒業し、このように「ロジック」で道具を組み立てられるようになれば、あなたはもう単なるオペレーターではありません。「業務をデザインするエンジニア」の仲間入りです。

一歩ずつ、楽しみながらコードを書いていきましょう。応援していますよ！