CorelDRAW VBAの深淵へようこそ：階層構造を読み解き、全レイヤーを書き出す「インベントリマクロ」の作り方
こんにちは。自動化の世界へ踏み出そうとしているあなたを、心から歓迎します。
CorelDRAWの「マクロの記録」機能を使って、最初の小さな成功を収めたかもしれません。「ボタンを押したら図形が動いた！」という感動は、エンジニアとしての第一歩です。しかし、もしあなたが「もっと複雑なことをしたい」「大量のデータを一気に処理したい」と願うなら、次に乗り越えるべき壁があります。
それが「オブジェクトの階層構造（オブジェクトモデル）を理解し、プログラムで制御する」というステップです。
今日は、その登竜門として最高にエキサイティングな課題を用意しました。
「現在開いているドキュメント内のすべてのページを巡回し、そこにある全レイヤーの名前をテキストファイルに書き出す」というインベントリ（棚卸し）マクロです。
これが書けるようになれば、あなたは「操作を記録する人」から「構造を操るエンジニア」へと進化します。準備はいいですか？ さあ、始めましょう。
1. 核心：CorelDRAWの「家系図」を理解する
プログラミング、特にVBAにおいて最も重要なのは、「対象がどのような親子関係にあるか」を知ることです。CorelDRAWは非常に厳格な階層構造を持っています。
今回の目的である「レイヤー名」に辿り着くには、以下のルートを辿る必要があります。
1. Application（CorelDRAWソフト本体）
2. Document（今開いているファイル）
3. Page（そのファイルの中にある各ページ）
4. Layer（各ページの中に存在する各レイヤー）
これをイメージしてみてください。
「家（Application）」の中に「部屋（Document）」があり、その中に「個室（Page）」があり、さらにその中に「棚（Layer）」がある……。
私たちがやりたいのは、「すべての部屋を一つずつ開き、その中にあるすべての棚の名前をメモ帳に書き留める」という作業なのです。
2. 実装：全レイヤー抽出マクロのコード
それでは、実際に動くコードを見てみましょう。初心者の方がコピペして動かすだけでなく、「なぜこう書くのか」を一行ずつ読み解いていってください。
Option Explicit
''' <summary>
''' アクティブドキュメント内の全ページ・全レイヤー名をテキスト出力する
''' </summary>
Sub ExportAllLayerNames()
' --- 1. 変数の宣言（エンジニアの作法：使う道具をあらかじめ決める） ---
Dim doc As Document
Dim pg As Page
Dim lyr As Layer
Dim filePath As String
Dim fileNum As Integer
' --- 2. 事前チェック（エラーを防ぐための「守り」のコード） ---
' ドキュメントが開かれていない場合にエラーにならないようにする
If Documents.Count = 0 Then
MsgBox "ドキュメントが開かれていません。ファイルを開いてから実行してください。", vbExclamation
Exit Sub
End If
Set doc = ActiveDocument
' 保存先パスの設定（デスクトップに "LayerInventory.txt" という名前で保存）
' Environ("USERPROFILE") を使うことで、ユーザー名に関わらずデスクトップを指せます
filePath = Environ("USERPROFILE") & "\Desktop\LayerInventory.txt"
' --- 3. ファイルの準備 ---
' 書き込み用のファイル番号を取得
fileNum = FreeFile
' ファイルを「書き込みモード(Output)」で開く
' ※既存のファイルがある場合は上書きされます
Open filePath For Output As #fileNum
' --- 4. メインロジック：階層をループ（走査）する ---
' ファイルの冒頭にヘッダーを書き込む
Print #fileNum, "=== CorelDRAW Layer Inventory ==="
Print #fileNum, "Document Name: " & doc.FileName
Print #fileNum, "Generated at: " & Now
Print #fileNum, "----------------------------------"
Print #fileNum, ""
' 【ループ1】ドキュメント内の「すべてのページ」を一つずつ処理
For Each pg In doc.Pages
' ページ名をファイルに書き出す
Print #fileNum, "[Page: " & pg.Name & "]"
' 【ループ2】そのページ内の「すべてのレイヤー」を一つずつ処理
For Each lyr In pg.Layers
' レイヤー名をインデント（字下げ）して書き出す
Print #fileNum, " - Layer: " & lyr.Name
Next lyr
' ページが変わるごとに空行を入れて読みやすくする
Print #fileNum, ""
Next pg
' --- 5. 後片付け ---
' 開いたファイルを必ず閉じる（これを忘れるとファイルがロックされます）
Close #fileNum
' 完了報告
MsgBox "完了しました！" & vbCrLf & "保存先: " & filePath, vbInformation
End Sub3. 技術解説：ここがエンジニアの腕の見せ所
コードを読み解く準備はできましたか？ 重要なポイントを3つに絞って解説します。
① `For Each` 文：自動化の心臓部
今回のコードの肝は `For Each … In …` です。
これは「集合（コレクション）の中にある要素を、端から順番に最後まで繰り返す」という命令です。
- `For Each pg In doc.Pages`：ページが1枚だろうが100枚だろうが、プログラムが勝手に最後まで巡回してくれます。
- これこそが「マクロの記録」にはできないことです。記録では「1ページ目のレイヤー」という固定操作しかできませんが、`For Each` を使えば「未知の数」に対応できるのです。
② ファイル操作の作法：`Open` と `Close`
テキストファイルに書き出す際、`Open` で扉を開け、`Print #` で文字を投げ込み、最後に必ず `Close` で扉を閉めます。
「扉を閉め忘れる」というのは、初学者が最も陥りやすいミスの一つです。閉め忘れると、次にそのファイルを開こうとした時に「ファイルが別のプロセスで使用されています」というエラーに襲われることになります。
③ パスの動的生成：`Environ` 関数
`C:\Users\Tanaka\Desktop\…` のようにユーザー名を直接コードに書くと、他の人のパソコンでは動きません。`Environ(“USERPROFILE”)` を使うことで、「今動いている人のデスクトップ」を自動的に特定できます。これを「ハードコーディングを避ける」と言い、プロフェッショナルへの第一歩です。
4. 陥りやすい罠（トラブルシューティング）
もし動かなかったら、以下のポイントをチェックしてみてください。
- 「権限エラー」が出る
保存先を `C:\` 直下などに設定していませんか？ Windowsのセキュリティ上、システム領域への書き込みは禁止されています。上記コードのようにデスクトップやドキュメントフォルダを指定しましょう。
- 「レイヤーが表示されていない」
このマクロは「レイヤーの存在」をリストアップするものです。レイヤーが「非表示（Hidden）」になっていても、リストには出てきます。もし「表示されているレイヤーだけ」にしたい場合は、`If lyr.Visible = True Then` という条件分岐を追加する必要があります。
- 「ドキュメントが開いていない」
`ActiveDocument` は、何も開いていない状態で実行すると「オブジェクト変数または With ブロック変数が設定されていません」というエラーを吐きます。必ず `If Documents.Count = 0` のチェックを入れましょう。
最後に：次のステップへ
お疲れ様でした！ これであなたは、CorelDRAWの内部構造を「外側から眺める」だけでなく、「内部をスキャンして情報を持ち出す」力を手に入れました。
このマクロを少し改造するだけで、応用範囲は無限に広がります。
- 「レイヤー名だけでなく、そのレイヤーにあるオブジェクトの数も書き出す」
- 「特定の名前のレイヤーだけを抽出する」
- 「レイヤー名の一覧を、Excelに書き出す」
一歩ずつ、コードを書き換えて実験してみてください。エラーが出ることを恐れないでください。エラーメッセージは、コンピュータがあなたに送ってくれる「次へのヒント」なのですから。
さあ、次はどんな自動化に挑戦しますか？ 応援していますよ！
