【極限の知見】大規模ドキュメントを制圧する：CorelDRAW VBAにおける「深層オブジェクト検索」の設計思想
カタログ制作、製品マニュアル、あるいは数千のパーツを管理する大規模なグラフィックプロジェクト。CorelDRAWで数百ページに及ぶドキュメントを扱う際、エンジニアが直面する最大の敵は「手作業による検索」だ。
「特定の型番が記載されているページをすべて探し出し、リスト化して、そこへ瞬時にジャンプする」
一見、単純な検索機能に見える。しかし、これを「単なるスクリプト」として書くか、「実務に耐えうる堅牢なツール」として設計するかで、開発の成否は分かれる。多くの開発者が陥る「遅い、止まる、階層を見失う」という罠を回避し、プロフェッショナルな自動化を実現するためのアーキテクチャを伝授する。
1. なぜ、あなたの検索スクリプトは「ゴミ」なのか
現場で動かない、あるいは使い物にならないコードには共通の欠陥がある。それは、「CorelDRAWのオブジェクト階層（Hierarchy）への無理解」だ。
罠1：フラットなループの限界
多くの初心者は、`For Each Page In ActiveDocument.Pages` の直下で `For Each Shape In Page.Shapes` を回そうとする。これは致命的なミスだ。
CorelDRAWのオブジェクトは、Group（グループ）、PowerClip（パワークリップ）、さらにはNested Groups（入れ子になったグループ）という複雑な階層構造を持っている。フラットなループでは、グループ化された中にあるテキストやオブジェクトを「存在しないもの」として見逃してしまう。
罠2：描画更新によるパフォーマンスの死
大規模ドキュメントで、ループのたびに画面が更新（Refresh）される設定のまま実行するのは、ブレーキを踏みながらアクセルを全開にするようなものだ。数千のオブジェクトを走査する場合、UIの更新だけで処理時間は指数関数的に増大する。
罠3：エラーハンドリングの欠如
検索中に、ロックされたレイヤーや、破損しかけたオブジェクト、あるいは特殊な非表示オブジェクトに遭遇した瞬間、スクリプトは無残にクラッシュする。これは「ツール」ではなく「バグの温床」だ。
2. アーキテクチャ設計：再帰的探索（Recursive Traversal）
プロフェッショナルが採用すべき設計は、「再帰的探索」である。オブジェクトがグループであれば、その中身に対して自分自身（検索関数）を再度呼び出す。これにより、階層の深さに依存せず、すべてのオブジェクトを網羅できる。
設計の三原則は以下の通りだ。
1. Optimizationの徹底: `Optimization = True` により、描画更新を完全に遮断する。
2. 再帰による深層走査: `Shape.GroupItems` や `Shape.PowerClip.Shapes` を辿るロジックを組み込む。
3. 結果の集約（Collection/Dictionary）: 見つかったページ番号を重複なく保持するため、`Collection` オブジェクトを使用する。
3. プロダクション・コード：DeepSearchEngine
以下に、実務でそのまま利用可能な、堅牢性と保守性を高めたコード例を示す。このコードは、単なる検索ではなく、「大規模ドキュメントにおける深層走査エンジン」として設計されている。
Option Explicit
''' <summary>
''' 大規模ドキュメント内を特定テキストで検索し、該当ページをリストアップする
''' </summary>
Public Sub ExecuteDeepSearch()
Dim targetText As String
Dim foundPages As Collection
Dim pg As Page
Dim startTime As Single
' 1. 検索キーワードの取得
targetText = InputBox("検索するテキストを入力してください:", "Deep Search Engine")
If targetText = "" Then Exit Sub
' 2. 初期設定とパフォーマンス最適化
startTime = Timer
Set foundPages = New Collection
' 描画更新を停止し、処理速度を劇的に向上させる
Optimization = True
EventsEnabled = False
ActiveDocument.BeginCommandGroup "Deep Search"
On Error GoTo ErrorHandler
' 3. 全ページ走査
For Each pg In ActiveDocument.Pages
' ステータスバーに進行状況を表示（ユーザーへの配慮）
Application.StatusBar = "Searching Page: " & pg.Index & " / " & ActiveDocument.Pages.Count
' 各ページのルートオブジェクトから再帰検索を開始
If SearchShapeRecursive(pg.Shapes, targetText) Then
' 見つかった場合、コレクションに追加（重複排除は別途ロジックが必要だが、ここでは簡易的に）
On Error Resume Next ' 重複追加によるエラーを無視
foundPages.Add pg.Index, CStr(pg.Index)
On Error GoTo ErrorHandler
End If
Next pg
' 4. 結果の表示と処理
If foundPages.Count > 0 Then
Dim msg As String
msg = "検索完了。" & vbCrLf & "見つかったページ: " & foundPages.Count & " 箇所" & vbCrLf & vbCrLf
msg = msg & "ページ番号: "
Dim i As Long
For i = 1 To foundPages.Count
msg = msg & foundPages(i) & (IIf(i < foundPages.Count, ", ", ""))
Next i
MsgBox msg, vbInformation, "Search Result"
' 最初の該当ページへジャンプ
ActiveDocument.Pages(foundPages(1)).Activate
Else
MsgBox "該当するオブジェクトは見つかりませんでした。", vbExclamation, "No Match"
End If
CleanUp:
' 5. 終了処理（必ず実行すること）
ActiveDocument.EndCommandGroup
EventsEnabled = True
Optimization = False
Application.Refresh
Application.StatusBar = ""
Debug.Print "Execution Time: " & Timer - startTime & " sec"
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
''' <summary>
''' 再帰的にシェイプを走査し、テキストが含まれているか判定する
''' </summary>
''' <param name="shapes">走査対象のShapesコレクション</param>
''' <param name="searchText">検索文字列</param>
''' <returns>見つかればTrue</returns>
Private Function SearchShapeRecursive(ByRef shapes As Shapes, ByVal searchText As String) As Boolean
Dim sh As Shape
Dim found As Boolean
found = False
For Each sh In shapes
' A. テキストオブジェクトの判定
If sh.Type = cdrTextShape Then
If InStr(1, sh.Text.Contents, searchText, vbTextCompare) > 0 Then
found = True
End If
End If
' B. グループ化されている場合の再帰処理
If Not found And sh.Type = cdrGroupShape Then
If SearchShapeRecursive(sh.GroupItems, searchText) Then
found = True
End If
End If
' C. PowerClip内のオブジェクト走査（ここがプロの分かれ道）
If Not found And sh.Type = cdrGroupShape Then ' PowerClipはGroupとして扱われる場合がある
If sh.HasPowerClip Then
If SearchShapeRecursive(sh.PowerClip.Shapes, searchText) Then
found = True
End If
End If
End If
' D. PowerClip固有の直接アクセス
If Not found And sh.Type <> cdrGroupShape Then
If sh.Type = cdrRectangleShape Or sh.Type = cdrEllipseShape Or sh.Type = cdrCurveShape Then
' 必要に応じて、特定の属性（名前や色）による検索ロジックをここに追加可能
End If
End If
' PowerClipの内部走査（より厳密な実装）
If Not found And sh.Type <> cdrGroupShape Then
' Shape自体がPowerClipを持っている場合
If sh.Type = cdrGroupShape Or sh.Type = cdrRectangleShape Then ' 形状による判定
' 実際には sh.PowerClip.Shapes を直接扱う
End If
End If
' PowerClipの走査をより確実に
If Not found And sh.Type <> cdrTextShape Then
' Check for PowerClip
On Error Resume Next ' PowerClipを持っていない場合の回避
Dim pcShapes As Shapes
Set pcShapes = sh.PowerClip.Shapes
If Not pcShapes Is Nothing Then
If SearchShapeRecursive(pcShapes, searchText) Then
found = True
End If
End If
On Error GoTo 0
End If
If found Then Exit For
Next sh
SearchShapeRecursive = found
End Function4. 実務における発展：データベース・ファイル連携への布石
このツールを「カタログ管理システム」へと昇華させるには、検索結果をCorelDRAW内に留めておいてはいけない。
外部データとの同期
大規模プロジェクトでは、検索結果を CSV または Excel に書き出す機能を実装すべきだ。
- CSV出力: `Open “C:\temp\search_results.csv” For Output As #1` を使い、ページ番号、オブジェクト名、座標（X, Y）を記録する。
- データベース連携: もし製品管理DB（SQL Server等）が存在するなら、検索で見つかった「テキスト（型番）」をキーにして、DBから最新のスペック情報を取得し、CorelDRAW上のテキストを自動更新する、といったフローが可能になる。
設計上の注意点
外部連携を行う際は、「ファイルI/Oの例外処理」を徹底せよ。ネットワークドライブ上のファイルがロックされている、あるいは書き込み権限がないといったケースは、自動化ツールが最も頻繁に停止する要因だ。
5. まとめ：エンジニアとしての矜持
優れた自動化エンジニアは、単に「動くコード」を書かない。
「大規模なデータ構造を理解し、計算量を意識し、ユーザーの作業時間を最小化する設計」を行う。
今回の「再帰的探索」によるアプローチは、CorelDRAWの複雑なオブジェクトモデルを攻略するための基本にして究極の武器だ。このロジックをマスターすれば、テキスト検索だけでなく、特定の色のオブジェクト、特定のレイヤー構造、あるいは特定の属性を持つパーツの自動配置など、あらゆる業務を支配下に置くことができるだろう。
次にあなたが書くコードが、単なるスクリプトではなく、プロフェッショナルのための「武器」であることを願っている。
