【実務・中級編】【初心者向け】アクティブドキュメント内の全レイヤー名リストをテキストファイルに出力する簡易インベントリマクロ – CorelDRAW VBA解析バイブル

構造の可視化こそが自動化の起点である。CorelDRAWレイヤー・インベントリ設計論

自動化エンジニアとして断言する。「なんとなく動くマクロ」は、現場では負債でしかない。

特にCorelDRAWのような複雑なオブジェクトモデルを持つアプリケーションにおいて、レイヤー構造の把握を怠ったままコードを書き始めるのは、地図を持たずにジャングルに飛び込むのと同じくらい無謀な行為だ。

多くの初心者は「とりあえずループを回して名前を取ればいい」と考える。だが、実務レベルのツールに求められるのは、単なる抽出ではない。「例外への耐性」「リソースの確実な解放」「後続処理へのデータ連携」という、堅牢な設計思想だ。

今回は、アクティブドキュメント内の全レイヤー構成をテキストファイルに書き出す「レイヤー・インベントリ・マクロ」を題材に、プロレベルの設計アプローチを伝授する。

1. 設計思想：なぜ「単純なループ」では不十分なのか

初心者が書きがちなコードは、`ActiveDocument.Pages(1).Layers` だけを見て満足する。しかし、プロの視点は違う。

考慮すべきリスク

1. ドキュメント未オープン状態： ドキュメントが開いていない状態で実行すれば、即座に `Null` 参照エラーでクラッシュする。
2. マルチページ構成： CorelDRAWのレイヤーはドキュメント全体で共有される性質を持つが、ページごとのコンテキストで管理する場合がある。構造を正確に把握するには、全ページを走査し、重複を排除しつつマッピングする必要がある。
3. ファイルI/Oの脆弱性： 書き出し先のファイルが別のソフトで開かれていた場合、書き込み権限エラーで停止する。これをハンドリングできないツールは「未完成」だ。

したがって、我々が構築するのは単なる「出力マクロ」ではなく、「環境検証 → 構造走査 → 安全な書き出し」というパイプラインである。

2. 実装：プロダクションレベルのインベントリ・コード

以下に、保守性と堅牢性を極限まで高めたコードを提示する。
単にコピー＆ペーストして動かすのではなく、「どこで何をガードしているか」というロジックに注目してほしい。

Option Explicit

' ==============================================================================
' Macro: ExportLayerInventory
' Description: アクティブドキュメントの全レイヤー名を走査し、テキストファイルに出力する。
' Architect: Legendary Automation Engineer
' ==============================================================================
Public Sub ExportLayerInventory()
    On Error GoTo ErrorHandler

    ' --- 1. 前提条件の検証 (Guard Clauses) ---
    If ActiveDocument Is Nothing Then
        MsgBox "処理対象のドキュメントが開かれていません。", vbCritical, "実行不可"
        Exit Sub
    End If

    ' 出力パスの設定（デスクトップに保存）
    Dim outputPath As String
    outputPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\CDR_Layer_Inventory.txt"

    ' --- 2. リソースの確保 (File I/O) ---
    ' FileSystemObjectを使用することで、標準のOpen文より高度なファイル操作を実現する
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim txtStream As Object
    ' ForWriting = 2, Create = True
    Set txtStream = fso.CreateTextFile(outputPath, True)

    ' ヘッダーの書き込み
    txtStream.WriteLine "===================================================="
    txtStream.WriteLine "CorelDRAW Layer Inventory"
    txtStream.WriteLine "Document: " & ActiveDocument.FileName
    txtStream.WriteLine "Export Date: " & Now
    txtStream.WriteLine "===================================================="
    txtStream.WriteLine ""

    ' --- 3. 構造走査 (Iteration) ---
    Dim pg As Page
    Dim lyr As Layer
    Dim pageCount As Integer
    pageCount = ActiveDocument.Pages.Count

    ' 全ページを走査
    For Each pg In ActiveDocument.Pages
        txtStream.WriteLine "[Page " & pg.Index & ": " & pg.Name & "]"
        
        ' ページ内のレイヤーを走査
        ' CorelDRAWのレイヤーはドキュメントレベルで管理されるが、
        ' ページコンテキストでアクセスすることで構造的な整合性を確保する
        If pg.Layers.Count = 0 Then
            txtStream.WriteLine "  (No layers found)"
        Else
            For Each lyr In pg.Layers
                ' レイヤー名、可視状態、ロック状態を同時に出力し、分析価値を高める
                Dim visibility As String: visibility = IIf(lyr.Visible, "Visible", "Hidden")
                Dim lockStatus As String: lockStatus = IIf(lyr.Locked, "Locked", "Unlocked")
                
                txtStream.WriteLine "  - Name: " & lyr.Name & " [" & visibility & " / " & lockStatus & "]"
            Next lyr
        End If
        txtStream.WriteLine "" ' セパレーター
    Next pg

    ' --- 4. 後処理 (Cleanup) ---
    txtStream.Close
    Set txtStream = Nothing
    Set fso = Nothing

    MsgBox "インベントリの出力が完了しました。" & vbCrLf & "保存先: " & outputPath, vbInformation, "Success"
    Exit Sub

ErrorHandler:
    ' エラー発生時のリソース解放と通知
    If Not txtStream Is Nothing Then txtStream.Close
    MsgBox "予期せぬエラーが発生しました。" & vbCrLf & "Error No: " & Err.Number & vbCrLf & "Description: " & Err.Description, vbCritical, "System Error"
End Sub

3. アーキテクトによる技術解説：ここが「極限の知見」だ

① `FileSystemObject (FSO)` の採用

VBA標準の `Open “file.txt” For Output As #1` は古すぎる。現代のWindows環境では、`Scripting.FileSystemObject` を使うのが定石だ。なぜか？

• パス操作の柔軟性がある。
• ストリーム制御が明確であり、予期せぬファイルロック時の挙動を制御しやすい。
• 将来的にCSVやJSON形式へ拡張する際、文字列操作メソッドが豊富であるため移行コストが低い。

② ガード節 (Guard Clauses) の徹底

コードの冒頭で `If ActiveDocument Is Nothing` をチェックしている。これは「正常系」の処理をネスト（入れ子）させないためのテクニックだ。
`If…Then…Else` で全体を囲むのではなく、「ダメな条件を先に弾く」ことで、メインロジックのインデントが浅くなり、可読性と保守性が劇的に向上する。

③ 属性情報の付加（メタデータの重要性）

単に `lyr.Name` を出すだけなら初心者でもできる。しかし、実務で必要なのは「なぜこのレイヤーにオブジェクトが入っていないのか」「なぜこのレイヤーを操作できないのか」という答えだ。
そこで、`Visible`（可視性）と `Locked`（ロック状態）を併記させている。これにより、このテキストファイル自体が「デバッグ仕様書」として機能する。

4. さらなる高みへ：拡張へのロードマップ

このマクロを起点に、以下のような機能拡張を検討せよ。これが「業務効率化ツール」を「エンタープライズ級システム」に変える道だ。

1. 正規表現によるフィルタリング： 特定の命名規則（例：`Layer_`で始まるもの）を持つレイヤーだけを抽出する。
2. オブジェクト数カウント： `lyr.Shapes.Count` を取得し、どのレイヤーに負荷が集中しているかを可視化する。
3. 外部データベース（SQLite/Excel）連携： テキストではなくDBに書き出すことで、数千ページに及ぶ巨大プロジェクトのレイヤー整合性チェックをSQLで瞬時に行う。

結論

自動化の本質は、単に「手を抜くこと」ではなく、「不確実性を排除すること」にある。
レイヤー構造という、設計者の意図が最も反映される領域を正確に把握し、コードに落とし込む。この地味で堅実な積み重ねこそが、バグのない最強のツールを作る唯一の道である。

以上だ。今すぐ自分の環境で試し、その堅牢さを体感せよ。