ループの先にある真実：CorelDRAW VBAにおけるドキュメント構造の掌握と高精度寸法抽出
自動化エンジニアリングの世界において、「動くコード」を書くことは最低限の作法に過ぎない。我々が目指すべきは、数千枚のページを持つ巨大なドキュメント、あるいは不安定なレガシー環境下においても、メモリを汚染せず、計算誤差を許さず、静かに、しかし確実に任務を遂行する「堅牢なアーキテクチャ」の構築である。
今回のテーマは、一見すると初歩的な「全ページの用紙サイズ取得」だ。しかし、これを単なる `For Each` ループとして片付けるのは素人の仕事だ。シニアエンジニアとして、オブジェクトのライフサイクル、単位系の厳密な制御、そして大規模システムへの統合を見据えた、真にプロフェッショナルな実装手法を伝授する。
1. ドキュメント・オブジェクト・モデル（DOM）の階層構造を理解する
CorelDRAWの自動化において、まず理解すべきはオブジェクトの階層（Hierarchy）である。
`Application` $\rightarrow$ `Document` $\rightarrow$ `Page` $\rightarrow$ `PageSize`
この階層を辿る際、我々は常に「今、どのコンテキストにいるのか」を意識しなければならない。特に、`ActiveDocument` というプロパティは、実行時のユーザー操作によって予期せぬドキュメントへ参照が移るリスクを孕んでいる。大規模なバッチ処理を設計する場合、可能な限り `Document` オブジェクトを変数に格納し、その参照を明示的に保持することが、実行の安定性を担保する第一歩となる。
2. 実装：高精度かつ堅牢なページ情報抽出プロシージャ
以下に、単なる出力に留まらない、プロダクションレベルのコードを示す。ここでは、単位系の強制指定、エラーハンドリング、そしてメモリ管理の概念を組み込んでいる。
Option Explicit
''' <summary>
''' アクティブドキュメントの全ページを走査し、用紙サイズをログ出力する。
''' プロダクション環境を想定し、単位系の明示的制御とエラーハンドリングを実装。
''' </summary>
Public Sub LogAllPagesDimensions()
Dim doc As Document
Dim pg As Page
Dim targetUnit As cdrUnit
Dim i As Long
' 1. コンテキストの確保
' ActiveDocumentへの直接参照を避け、ローカル変数に保持することで
' 実行中のユーザー操作による参照の不整合を防ぐ。
Set doc = ActiveDocument
' ドキュメントが存在しない場合のガード句
If doc Is Nothing Then
MsgBox "操作対象のドキュメントが開かれていません。", vbCritical, "Error"
Exit Sub
End If
' 2. 単位系の制御 (重要)
' CorelDRAWの内部単位は設定に依存するため、計算精度を保証するために
' 取得前に明示的に単位（ここではミリメートル）を固定する。
targetUnit = cdrMillimeter
Dim originalUnit As cdrUnit
originalUnit = doc.Unit
doc.Unit = targetUnit
On Error GoTo ErrorHandler
Debug.Print "--- Page Dimension Log Start ---"
Debug.Print "Timestamp: " & Now
Debug.Print "Document Name: " & doc.Name
' 3. ループ処理
' ページ数が多い場合、For Eachよりもインデックスによる制御の方が
' コレクションの変更（削除等）が発生した際の挙動を制御しやすい。
For i = 1 To doc.Pages.Count
Set pg = doc.Pages(i)
' ページ情報の取得
' Page.Size.Width/Height は現在の doc.Unit に基づいて返される
Debug.Print String(20, "-")
Debug.Print "Page Index: " & pg.Index
Debug.Print "Page Name: " & pg.Name
Debug.Print "Width: " & Format(pg.Size.Width, "0.00") & " mm"
Debug.Print "Height: " & Format(pg.Size.Height, "0.00") & " mm"
Next i
Debug.Print String(20, "-")
Debug.Print "--- Log End ---"
CleanUp:
' 4. 状態の復元とメモリの解放
' 環境を汚さないよう、元の単位系に戻す。
If Not doc Is Nothing Then
doc.Unit = originalUnit
End If
' COMオブジェクトの参照を明示的に解除する。
' 大規模なループや長時間実行されるプロセスでは、これがメモリリーク防止の肝となる。
Set pg = Nothing
Set doc = Nothing
Exit Sub
ErrorHandler:
Debug.Print "Critical Error in LogAllPagesDimensions: " & Err.Description
MsgBox "実行中にエラーが発生しました: " & Err.Description, vbExclamation
Resume CleanUp
End Sub3. アーキテクトの視点：なぜこの実装なのか
単位系の「強制」という規律
CorelDRAW VBAにおいて、最も多くのエンジニアが陥る罠は「単位の不一致」だ。ユーザーがインチ設定で作業していれば、`pg.Size.Width` はインチで返される。これを考慮せずに数値比較やログ出力を行うと、システム連携時に致命的な寸法誤差を生む。
コード内で `doc.Unit = targetUnit` を実行することは、ドキュメントの「状態」を一時的に書き換える行為だ。だからこそ、`CleanUp` セクションで必ず元の状態へ復元（Rollback）させる設計が必要となる。
メモリ管理とCOMのライフサイクル
VBAはCOM（Component Object Model）上で動作している。`Set pg = Nothing` という記述は、単なるマナーではない。
特に、外部アプリケーション（C#やPython等）からCorelDRAWをCOMオートメーションとして制御する場合、オブジェクトの参照カウントが適切に減らされないと、CorelDRAWのプロセスがバックグラウンドで「ゾンビプロセス」として残り続ける。これはサーバーサイドでの自動化において、リソース枯渇を引き起こす最大の要因だ。
ログ出力の戦略的価値
`Debug.Print` はプロトタイプ段階では有用だが、システム管理者向けのツールとしては不十分だ。実運用では、これをファイル出力、あるいは Windows イベントログ、あるいは外部のデータベースへストリームする仕組みへと昇華させる必要がある。今回のコードはその「核」となるロジックを、副作用を最小限に抑えた形で実装している。
結語
プロフェッショナルな自動化とは、単に作業を置き換えることではない。
「予期せぬ入力」や「環境の変化」というノイズに対し、いかに計算の精度を保ち、システムの整合性を維持できるか。その一点に集約される。
この基本構文をマスターした次は、ページへのガイド線自動配置、あるいはレイヤー構造の再構築といった、より複雑な「状態遷移」の制御へと足を踏み入れてほしい。そこには、さらなる深淵が待っている。
