CorelDRAW VBAの深淵へ：マルチページを自在に操る「ページ抽出・自動保存」の極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で遅いコードに別れを告げる時が来ました。
今回は、実務で最も要望が多く、かつ奥が深い「特定の条件（レイヤーやキーワード）に基づいたページ抽出と独立保存」というテーマを扱います。この仕組みを理解すれば、数百ページのカタログから特定の章だけを抜き出したり、クライアントごとの校正用PDFを自動生成したりと、あなたの作業時間は劇的に短縮されます。
—
1. なぜ「単純なループ」で躓くのか？
初心者が陥りやすい罠は、`ActiveDocument.Pages`を単純にループさせて、そのまま`SaveAs`しようとすることです。
しかし、CorelDRAWのドキュメント構造は、「現在のドキュメントを破壊せずに、必要な情報だけを抽出する」というプロセスを挟まないと、予期せぬエラーやメモリリークを招きます。
プロのアーキテクトが意識すべきは、「新天地（新規ドキュメント）を構築し、必要な素材だけをコピーして移住させる」という設計思想です。
—
2. 実践：インテリジェントなページ抽出エンジンの構築
以下のコードは、指定したレイヤー名が含まれるページだけを検出し、別ファイルとして保存する実務直結のテンプレートです。
Sub ExtractPagesByLayerName()
Dim docSource As Document
Dim docTarget As Document
Dim p As Page
Dim layerName As String
Dim targetLayer As Layer
‘ 抽出対象のレイヤー名（ここを動的に変更可能にするのがコツ）
layerName = “Print_Target”
Set docSource = ActiveDocument
‘ 1. 新規ドキュメントを作成（これが安全な抽出の鍵）
Set docTarget = CreateDocument
‘ 2. 元ドキュメントの全ページを巡回
For Each p In docSource.Pages
‘ 3. 特定のレイヤーが存在するかチェック
Set targetLayer = p.Layers.Find(layerName)
If Not targetLayer Is Nothing Then
‘ ページを新規ドキュメントへコピー
p.CopyTo docTarget
End If
Next p
‘ 4. コピー時に生成される空のPage1を削除
If docTarget.Pages.Count > 1 Then
docTarget.Pages.First.Delete
End If
‘ 5. 必要に応じて保存（ここではCDR形式の例）
‘ docTarget.SaveAs “C:\Output\Extracted_” & Format(Now, “yyyymmdd_hhnn”) & “.cdr”
MsgBox “抽出完了しました！”, vbInformation
End Sub
—
3. このコードが「プロ仕様」である3つの理由
① `CreateDocument`によるメモリの隔離
`SaveAs`を繰り返すと、元のドキュメントに不要な情報が残留し、ファイルサイズが肥大化します。一度新しいドキュメントを作成し、そこに`CopyTo`メソッドで必要なページを移植することで、クリーンな状態で保存が可能になります。
② `Find`メソッドによる高速探索
`For Each`でレイヤーを一つずつ比較するのではなく、`Layers.Find`という組み込みメソッドを使っています。これはCorelDRAWの内部エンジンに直接問い合わせるため、数百レイヤーあるドキュメントでも処理速度が段違いです。
③ 不要な初期ページの破棄
`CreateDocument`を実行すると、必ず「Page1」がデフォルトで作成されます。これを放置すると、保存した際に謎の空白ページが混入します。`docTarget.Pages.First.Delete`で掃除する。この細やかな気配りが、ツールとしての完成度を高めます。
—
4. 陥りやすいエラーとその対策
- 「オブジェクトが見つかりません」エラー:
`p.Layers.Find`でレイヤー名が完全一致していない場合に発生します。レイヤー名にスペースが入っていないか、大文字小文字が正確かを確認してください。
- メモリ不足（Out of Memory）:
巨大なビットマップを含むページを何十枚もコピーすると発生します。その場合は、`Application.Optimization = True`をコードの先頭に入れ、描画の更新を停止させることで劇的にパフォーマンスが向上します。
—
次のステップ：君が手に入れる未来
このコードをマスターすれば、次は「ダイアログボックスを表示して、ユーザーに抽出したいレイヤーを選ばせる」というステップに進めます。
CorelDRAW VBAは、単なる「作業の記録係」ではありません。あなたの意図を正確に具現化する「設計図」です。コードを書くたびに、あなたのPCの中で小さな職人が一人、一生懸命に働いている姿を想像してください。
「ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ」。
迷ったらまたここに戻ってきてください。さらなる高みへ導きます。
さあ、次はどんな自動化を企てますか？
