こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して生成されたコードを眺め、「なんだかスマートじゃないな…」「全ページを巡回して特定のレイヤーだけ抜き出したいのに、どう書けばいいんだ？」と悩んでいませんか？
今回は、多言語カタログやバージョン違いのレイヤー構造を持つ複雑なCDRファイルから、「特定のレイヤーに属する要素だけを全ページ一括で抽出し、独立した新規ファイルとして分割保存する」という、実務でヨダレが出るほど欲しくなる高度なドキュメント自動化術を授けましょう。
ここをクリアすれば、単なる「操作の自動化」を超えた、真のCorelDRAWドキュメント・アーキテクトへの道が開けます。一緒に本質を学んでいきましょう！
—
1. なぜ「マクロの記録」だけでは太刀打ちできないのか？
CorelDRAWの「マクロの記録」は便利ですが、生成されるコードは「今、画面上で何を選択しているか（Selection）」に依存しがちです。
しかし、実務の世界ではこんな課題に直面します。
- 100ページあるカタログの、特定のレイヤー（例えば「英語テキスト」レイヤー）だけをごっそり抜き出したい。
- 余計な背景や他の言語のレイヤーは一切入れたくない。
- ページごとにバラバラにするのではなく、それぞれのページ構造を保ったまま、独立したCDRファイルとしてスパッと保存したい。
これらを達成するためには、CorelDRAWのオブジェクトツリーの構造（Application ＞ Document ＞ Page ＞ Layer ＞ Shape）をコードから正確に手綱さばきしてやる必要があります。
—
2. アーキテクトが教える！核心を突く設計思想
今回のマクロの肝は以下の3点です。
1. アクティブドキュメントの安全な参照：`ActiveDocument` をベースにしつつ、余計な画面描画を止めて（`Optimization = True`）爆速化する。
2. レイヤー名の厳密な特定：各ページを巡回し、指定した名前のレイヤー（例: `”TargetLayer”`）を正確にハンティングする。
3. 新規ドキュメントへの要素の移植（コピペの罠回避）：単なるコピー＆ペーストではなく、必要なシェイプだけを新しいドキュメントへスマートに複製（Duplicate）または移動させる。
—
3. 実装コード：一括抽出・分割保存マクロ
それでは、開発現場でそのままコピペして使える実践コードを公開します。VBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてください。
Sub ExtractLayerToNewFiles()
‘ —————————————————————-
‘ 抽出対象レイヤー名を指定（ここをご自身の環境に合わせて変更してください）
‘ —————————————————————-
Const TARGET_LAYER_NAME As String = “ExtractMe”
Dim srcDoc As Document
Dim targetPage As Page
Dim targetLayer As Layer
Dim sh As Shape
Dim newDoc As Document
Dim savePath As String
Dim i As Long
‘ ドキュメントが開かれているかチェック
If Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Set srcDoc = ActiveDocument
savePath = srcDoc.FilePath
‘ ファイルが未保存の場合はパスが取得できないのでガード
If savePath = “” Then
MsgBox “現在のドキュメントを一度保存してから実行してください。”, vbExclamation, “保存確認”
Exit Sub
End If
‘ 画面描画をロックして処理速度を爆発的に上げる（超重要テクニック）
srcDoc.BeginOptimization
EventsEnabled = False
On Error GoTo ErrorHandler
‘ —————————————————————-
‘ 全ページをループ処理
‘ —————————————————————-
For i = 1 To srcDoc.Pages.Count
Set targetPage = srcDoc.Pages(i)
targetPage.Activate
‘ 該当ページに指定レイヤーが存在するか探す
Set targetLayer = Nothing
Dim lyr As Layer
For Each lyr In targetPage.Layers
If lyr.Name = TARGET_LAYER_NAME Then
Set targetLayer = lyr
Exit For
End If
Next lyr
‘ 指定レイヤーが存在し、かつ中にシェイプが存在する場合のみ処理
If Not targetLayer Is Nothing Then
If targetLayer.Shapes.Count > 0 Then
‘ 1. 新規ドキュメントを作成（元のページサイズを継承）
Set newDoc = CreateDocument(srcDoc.ColorMode, srcDoc.DrawingWidth, srcDoc.DrawingHeight)
‘ 2. 元ドキュメントの該当レイヤー内の全シェイプを新規ドキュメントへコピー
‘ ※マスターレイヤーやページ固有レイヤーの構造を維持してコピー
Dim srsToCopy As ShapeRange
Set srsToCopy = targetLayer.Shapes.All
‘ 新規ドキュメントのアクティブページ・アクティブレイヤーへ複製
srsToCopy.Copy
newDoc.ActivePage.ActiveLayer.Paste
‘ 3. 新規ファイルとして保存
Dim newFileName As String
newFileName = savePath & “Page_” & i & “_” & TARGET_LAYER_NAME & “.cdr”
‘ 同名ファイルが存在する場合は上書き
newDoc.SaveAs newFileName
newDoc.Close
End If
End If
Next i
‘ 終了処理
EventsEnabled = True
srcDoc.EndOptimization
MsgBox “すべての抽出処理が完了しました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ エラー発生時も描画ロックとイベント無効化を必ず解除する（これ鉄則！）
EventsEnabled = True
srcDoc.EndOptimization
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
4. コードの深掘り解説：ここがプロの技
① 画面描画のロック (`BeginOptimization` / `EndOptimization`)
CorelDRAW VBAにおいて、ループ処理の中で画面を再描画させると、処理速度が何十倍も遅くなります。`BeginOptimization` を宣言することで、裏側で黙々と処理を進めさせ、最後に一気に解放する。これがプログラミングの基本であり極意です。
② エラー時の安全弁 (`ErrorHandler`)
大規模なデータ処理中にもしエラーでマクロが停止すると、画面がフリーズしたような状態（`EventsEnabled = False` や `Optimization` が解除されないまま）になり、CorelDRAWごと強制終了するリスクがあります。`On Error GoTo` を使い、どんな結末を迎えても必ず環境を元通りに復旧させるコードを書くのが一流のエンジニアです。
③ ページサイズとカラーモードの継承
`CreateDocument` メソッドで新規ファイルを作る際、元ドキュメントの `ColorMode`、`DrawingWidth`（幅）、`DrawingHeight`（高さ）をそのまま引き継ぐことで、「切り出したはいいが、キャンバスサイズが狂ってしまった」という事故を完全に防いでいます。
—
5. 陥りやすい罠とトラブルシューティング
- 「レイヤー名が見つかりません」とスキップされる
- CorelDRAWのレイヤー名は大文字・小文字を厳密に区別します（例: `”ExtractMe”` と `”extractme”` は別物）。また、全角・半角スペースの混入にも注意してください。
- 保存先エラーが出る
- このコードは「元ファイルが一度でも保存されていること（＝ `srcDoc.FilePath` が取得できること）」を前提としています。新規作成して未保存のドキュメントで実行するとパスが取得できずエラーになるため、必ず一度名前を付けて保存してから実行してください。
—
まとめ
今回は、マルチページCDRファイルから特定レイヤーの要素を全ページ一括で抽出し、独立したファイルとして分割保存するマクロを解説しました。
ここをクリアできたあなたなら、レイヤーの結合、不要なオブジェクトの自動削除、PDFへの一括パブリッシュなど、あらゆるドキュメント自動化への応用が効くはずです。
日々の手作業による退屈なコピー＆ペースト地獄から抜け出し、クリエイティブで本質的なデザイン業務に集中するための武器を、ぜひあなたの手で動かしてみてください。それでは、次回の極限の知見でお会いしましょう！
