【入門編】【実務効率化】特定のページだけを別の新規CorelDRAWドキュメントへ切り出して保存するページ抽出VBA – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.21

【CorelDRAW VBA】巨大カタログを解体せよ！特定のページだけを爆速で切り出す「抽出エンジン」の作り方

こんにちは。CorelDRAWの自動化を極めるエンジニアです。

「数百ページあるカタログから、特定のページだけをクライアントに送りたい」
「ページが増えすぎてファイルが重い、特定部分だけ切り出したい」

そんな現場の悩み、ありますよね。手動でコピー＆ペーストを繰り返していませんか？もしそうなら、その作業、CorelDRAW VBAに数秒で終わらせましょう。

今回は、単なる「動くコード」を提供するだけでなく、なぜこのコードが動くのか、メモリをどう扱うべきかという「プロの視点」を交えて解説します。マクロの記録から一歩先へ進み、現場で頼られる自動化エンジニアになりましょう。

—

初心者がやりがちなのは「オブジェクトを選択して、コピーして、新しいドキュメントを作って、貼り付ける」というプロセスです。しかし、VBAでこれをやると、クリップボードを介した不安定な動作や、リンク切れ、予期せぬレイヤー構造の崩れを引き起こす原因になります。

プロは違います。`Page.CopyTo` メソッドを使い、ドキュメント間で直接オブジェクトを「転送」させます。これが最も安全で、かつメモリ負荷の低い手法です。

—

以下のコードをVBAエディタ（Alt + F11）に貼り付けてください。

Sub ExtractPageToNewDocument()
Dim docSource As Document
Dim docNew As Document
Dim pageToExtract As Page
Dim targetPageNum As Integer

‘ エラーハンドリング（現場の鉄則）
On Error GoTo ErrorHandler

‘ 1. 現在のアクティブドキュメントを取得
Set docSource = ActiveDocument

‘ 2. 抽出したいページ番号を指定（ここでは例として2ページ目）
targetPageNum = 2

‘ 3. ページが存在するかチェック
If targetPageNum > docSource.Pages.Count Then
MsgBox “ページ番号が範囲外です！”
Exit Sub
End If

Set pageToExtract = docSource.Pages(targetPageNum)

‘ 4. 新規ドキュメントを作成
‘ 元のドキュメントのカラーモード等を継承させるのがベスト
Set docNew = CreateDocument()

‘ 5. ページをコピー（ここが核心！）
‘ docSourceの対象ページを、docNewの末尾に複製する
pageToExtract.CopyTo docNew

‘ 6. 転送時に自動生成される「空のページ1」を削除して整える
If docNew.Pages.Count > 1 Then
docNew.Pages(1).Delete
End If

MsgBox “ページの抽出が完了しました！”, vbInformation
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description
End Sub

—

このメソッドは、指定したページ内のすべてのレイヤー、ガイド線、オブジェクトを保持したまま新しいドキュメントへ「移植」します。クリップボードを経由しないため、動作が非常に高速です。

VBAで新しいドキュメントを作ると、デフォルトで「1ページ目」が存在する状態で生成されます。そのため、抽出したページを貼り付けると計2ページになってしまうのです。最後に `docNew.Pages(1).Delete` を実行して、不要な初期ページを消すのが美しいフローです。

`On Error GoTo ErrorHandler` を入れないコードは、現場で使ってはいけません。万が一、ページ番号が存在しなかったり、ファイルが読み取り専用だったりした時に、CorelDRAWごとクラッシュするのを防ぐための防波堤です。

—

抽出したページに、特定の裁ち落とし用ガイドを引きたいという要望もよくあります。そんな時は以下の一行を追加してください。

‘ ページの左右にガイドを追加する例
docNew.ActivePage.GuidesLayer.CreateGuide 0, 10 ‘ X=0の位置に垂直ガイド
docNew.ActivePage.GuidesLayer.CreateGuide 200, 0 ‘ Y=200の位置に水平ガイド

ガイド線は「GuidesLayer」という特別なレイヤーに存在します。ここを操作することで、どんなに複雑なカタログでも、一瞬で「印刷用レイアウト」に整えることが可能です。

—

今回紹介した流れ（対象の特定 → 新規作成 → 転送 → クリーンアップ）は、CorelDRAW自動化の最も基本的な、そして最も強力なパターンです。

この3つを意識するだけで、あなたの作るマクロの品質は劇的に向上します。「マクロの記録」で生成された汚いコードを卒業し、自分の手でロジックを組み立てる快感をぜひ味わってください。

もし「もっと複雑な結合処理がしたい」「大量のファイルを一括変換したい」といった要望があれば、いつでもこの場所に戻ってきてくださいね。応援しています！