こんにちは！CorelDRAW VBAの世界へようこそ。
日々、膨大なページ数のカタログやパンフレットと格闘していませんか？
「クライアントから『今回の納品は全50ページのうち、特集ページの12〜15ページ目だけ抜き出してPDFにしてほしい』と言われた……」
「まさか、手作業で別ファイルを作って、不要なページをポチポチ削除して、レイヤー構造やガイド線を一から直して……なんてやっていませんよね？」
もしそんな非効率な作業をまだ続けているなら、今日で終わりにしましょう。
今回は、「複数ページあるドキュメントから特定ページだけを抽出し、レイヤー構造とガイド線を完全に維持したまま別名保存する」という、実務で失神するほど役立つ自動化テクニックを伝授します。
ここをクリアすれば、CorelDRAW VBAのドキュメント構造の本質がグッと見えてきますよ。さあ、一緒に扉を開けましょう！
—
なぜ「手作業」や「単純なコピペ」では失敗するのか？
まず、CorelDRAWの内部構造について少しお話しさせてください。
CorelDRAWのドキュメントは、単なる「絵の集まり」ではありません。
- ページ (Page)
- レイヤー (Layer)（マスターレイヤー含む）
- ガイド線 (Guides)
これらが複雑なツリー構造を形成しています。
マクロの記録機能を使ってこれをやろうとすると、「全ページ選択してコピー、別ファイルを開いて貼り付け、不要なページを削除……」という泥臭いコードになり、挙句の果てに「ガイド線が消えた」「レイヤーの順番がバラバラになった」「マスターレイヤーのオブジェクトが二重に配置された」という致命的なエラーを引き起こします。
プロのエンジニアが取るアプローチは違います。
「不要なページを最初から削除（または必要なページ以外をバッサリ消去）し、残ったドキュメントを別名で保存する」という、極めてシンプルかつ安全な方法をとります。
—
現場で即戦力になる！ページ抽出・別名保存マクロ
それでは早速、実務でそのままコピペして使える完全版のコードをお見せします。
今回は、「現在開いているドキュメントから、指定した開始ページ〜終了ページだけを残して、デスクトップに別名保存する」というシナリオです。
Sub ExtractAndSavePages()
‘ =========================================================================
‘ 複数ページから特定範囲を抽出し、レイヤー・ガイドを保持したまま別名保存する
‘ =========================================================================
‘ エラーハンドリングの準備（予期せぬクラッシュを防ぐプロの作法）
On Error GoTo ErrorHandler
‘ ドキュメントが開かれているかチェック
If Application.Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Dim srcDoc As Document
Set srcDoc = ActiveDocument
‘ 処理の高速化と画面チラつき防止（超重要！）
srcDoc.Optimization = True
EventsEnabled = False
‘ — 【設定エリア】抽出したいページの範囲を指定 —
Dim startPage As Integer
Dim endPage As Integer
startPage = 3 ‘ 例：3ページ目から
endPage = 5 ‘ 例：5ページ目までを抽出
‘ ————————————————
‘ 範囲の妥当性チェック
If startPage < 1 Or endPage > srcDoc.Pages.Count Or startPage > endPage Then
MsgBox “指定されたページ範囲が無効です。”, vbExclamation, “確認”
GoTo CleanUp
End If
‘ 【核心ロジック】
‘ 1. 後ろのページから順に削除していく（前を先に消すとインデックスがズレてバグるため！）
Dim i As Integer
‘ 終了ページより後ろのページをすべて削除
If endPage < srcDoc.Pages.Count Then
For i = srcDoc.Pages.Count To endPage + 1 Step -1
srcDoc.Pages(i).Delete
Next i
End If
' 開始ページより前のページをすべて削除
If startPage > 1 Then
For i = startPage – 1 To 1 Step -1
srcDoc.Pages(i).Delete
Next i
End If
‘ — 【別名保存の処理】 —
Dim savePath As String
‘ デスクトップのパスを取得し、新しいファイル名義で保存
savePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\” & _
Left(srcDoc.Name, InStrRev(srcDoc.Name, “.”) – 1) & _
“_Extracted_P” & startPage & “-P” & endPage & “.cdr”
‘ コピーとして別名保存（元のドキュメントを汚さないための配慮）
srcDoc.SaveAs savePath
‘ 終了処理
GoTo CleanUp
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
CleanUp:
‘ 最適化フラグを必ず元に戻す（これ忘れるとCorelDRAWがフリーズしたような挙動になります）
srcDoc.Optimization = False
EventsEnabled = True
MsgBox “処理が完了しました！” & vbCrLf & “保存先: ” & savePath, vbInformation, “完了”
End Sub
—
コードの核心を読み解く：プロの知見
初心者の方に向けて、このコードがなぜ優れているのか、3つのポイントに絞って解説します。
1. ページ削除は「後ろからループ（逆順処理）」が鉄則
コードの中で `For i = srcDoc.Pages.Count To endPage + 1 Step -1` と、後ろから数えて削除しているにお気づきでしょうか？
前から順番にページを消してしまうと、1ページ目を消した瞬間に、元2ページ目が「新しい1ページ目」に繰り上がり、インデックスが狂ってしまいます。これはVBAでのコレクション操作における最大の罠です。後ろから消せば、残りのページのインデックス番号は変わりません。この知見を知っているだけで、バグの9割を防げます。
2. レイヤーとガイド線が「自動で維持される」理由
CorelDRAWの `Page.Delete` メソッドは、そのページ上に存在するオブジェクトや、そのページ固有のローカルガイド線を削除します。しかし、ドキュメント全体を支配するマスターレイヤーや共通ガイド線はそのまま温存されます。つまり、不要なページをごっそり切り落とすだけで、残ったページには必要なレイヤー構造とガイド線が完璧な状態で残るのです。
3. `Optimization = True` による爆速化
ページを一括で何枚も削除する処理は、CorelDRAWにとって画面描画の負荷が高い作業です。処理の最初に `srcDoc.Optimization = True` を宣言し、画面の再描画やイベント監視を一時停止することで、処理スピードが何倍にも跳ね上がります。最後に必ず `False` に戻す後始末も忘れないでくださいね。
—
まとめ：ここをクリアすれば、あなたも自動化マスター
いかがでしょうか？
今回紹介したコードは、単なるコードのコピペにとどまらず、「オブジェクトのライフサイクル」「インデックスのズレ対策」「パフォーマンスチューニング」という、CorelDRAW VBAの本質が詰まった珠玉の構成になっています。
このロジックを応用すれば、「奇数ページだけをまとめる」「特定のレイヤー名が含まれるページ以外は捨てる」といった、さらに高度な自動化へステップアップすることも容易です。
日々の単調な作業はマクロに任せて、あなたしかできないクリエイティブなデザインワークに時間を使いましょう。
それでは、次回の実務効率化の知見でお会いしましょう！
