壊れたデータは、エンジニアの敗北である。CorelDRAW VBAにおける「トランザクション設計」の極意
こんにちは。今日は、マクロの記録から一歩踏み出し、「実用的なツール」を作ろうとしているあなたに、最も重要で、かつ最も見落とされがちな「防御的プログラミング」の話をしようと思います。
マクロの記録を使って「ページを増やして、レイヤーを作って、ガイドを引く」というコードを書くことは、初学者の方でもできるでしょう。しかし、もしその処理の途中で、メモリ不足や予期せぬオブジェクトの競合が発生して止まってしまったらどうなるでしょうか？
「50ページ追加したところでエラーが出て止まり、残りの50ページは作られず、ファイルには中途半端なレイヤーだけが残っている……」
これこそが、現場で最も恐れられる「中途半端な状態（不整合）」です。一度壊れたドキュメントの状態を元に戻すのは、自動化するよりも遥かに困難です。
今日は、そんな悲劇を防ぐための「ロールバック（巻き戻し）可能なトランザクション設計」について、その設計思想と実装方法を伝授します。ここをクリアすれば、あなたの書くコードは「ただ動くもの」から「プロが信頼するツール」へと昇華します。
1. なぜ「エラーハンドリング」だけでは足りないのか？
多くの初学者は、エラーが発生した時に `On Error Resume Next` を使って「エラーを無視して進む」という手法を取ります。あるいは、`MsgBox` でエラーを表示して終了するだけです。
しかし、これでは不十分です。
「中途半端な実行」の恐怖
例えば、100個のレイヤーを作成するループ処理を考えてみましょう。
1. レイヤー1〜45までは正常に作成。
2. レイヤー46の作成時に、何らかの理由（メモリ不足や、既存の名前との重複など）でエラーが発生。
3. プログラムが停止。
この時、ドキュメントには「本来作りたくなかったはずの45個のレイヤー」が残ってしまいます。これを手動で消すのは時間がかかりますし、ミスのもとです。
プロの設計思想：
> 「処理がすべて成功するか、さもなくば、最初から何もなかったかのように元通りにするか。その二択しかない。」
これをプログラミングの世界では「アトミック性（原子性）」と呼び、データベースの概念である「トランザクション」として扱います。
2. 実践：ロールバック可能な一括操作テンプレート
CorelDRAW VBAには、データベースのような強力な `Rollback` コマンドは標準搭載されていません。そのため、私たちが「設計」でそれを実現する必要があります。
最もスマートな方法は、CorelDRAWの `BeginCommandGroup` という機能を活用することです。これを使うと、一連の操作を「一つの大きな操作」としてドキュメントの履歴（Undoスタック）に登録できます。
以下に、ページ追加とレイヤー作成を安全に行うための、究極のテンプレートコードを示します。
Option Explicit
''' <summary>
''' 大量のページとレイヤーを安全に一括生成するプロシージャ
''' </summary>
Sub SafeBulkOperation()
Dim doc As Document
Set doc = ActiveDocument
' --- 1. 事前準備：状態の保存と最適化 ---
' 処理速度を上げるため、画面更新を停止します。
' ただし、エラー時にこれを戻し忘れると、CorelDRAWの挙動がおかしくなるため注意！
Optimization = True
' エラーが発生した場合のジャンプ先を指定
On Error GoTo ErrorHandler
' --- 2. トランザクションの開始 ---
' BeginCommandGroup を使うことで、これ以降の操作を「一つの塊」にします。
' 万が一エラーが起きても、Undoを一度実行するだけで、このプロシージャ内の全操作が消えます。
doc.BeginCommandGroup "Bulk Page and Layer Creation"
Debug.Print "処理を開始します..."
' --- 3. メイン処理（ここがメインのロジック） ---
Dim i As Integer
Dim newPage As Page
Dim newLayer As Layer
Dim targetLayerName As String
' 例：10ページ追加し、それぞれに専用レイヤーを作成する
For i = 1 To 10
' ページを追加
Set newPage = doc.AddPages(1)
' レイヤー名を作成（ここで重複エラーなどが起きる可能性がある）
targetLayerName = "Auto_Layer_" & i
' レイヤーを作成
Set newLayer = newPage.CreateLayer(targetLayerName)
' ガイド線の自動配置（例：ページ中央に縦ガイドを引く）
' ここで計算ミスや範囲外エラーが起きる想定
newPage.Guides.Add glVertical, newPage.SizeWidth / 2
Debug.Print i & "ページ目の処理が完了しました。"
Next i
' --- 4. 成功時の後処理 ---
' すべての操作が成功したら、コマンドグループを終了します。
doc.EndCommandGroup
' 画面更新を戻し、描画を反映させる
Optimization = False
Application.Refresh
MsgBox "すべての処理が正常に完了しました！", vbInformation
Exit Sub
' --- 5. エラーハンドリング（ロールバック・セクション） ---
ErrorHandler:
' エラーが発生した場合、ここへ飛びます。
' 【重要】CommandGroupを閉じる前にエラーが発生した場合、
' Undoスタックを整理するためにEndCommandGroupを呼ぶか、
' ユーザーに「Ctrl+Z」を促す設計にします。
' ここでは、プログラマティックに「失敗した」ことを明確にします。
If doc.CommandGroupCount > 0 Then
' 未完了のコマンドグループがあれば、強制的に終了させてスタックをクリーンにする
' (これにより、エラー直前の状態までUndoが可能になります)
doc.EndCommandGroup
End If
' 画面更新の停止を必ず解除する（これを忘れるとCorelDRAWが固まったように見える）
Optimization = False
Application.Refresh
' エラー内容を報告
MsgBox "致命的なエラーが発生したため、処理を中断しました。" & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical, "Transaction Aborted"
' デバッグ用にエラー情報を出力
Debug.Print "Error " & Err.Number & ": " & Err.Description
End Sub3. コードの核心：プロが意識している3つのポイント
このコードがなぜ「強い」のか。その理由を解説します。
① `Optimization = True` の「責任」
大量のオブジェクトを操作する場合、画面の再描画（Redraw）は最大のボトルネックです。`Optimization = True` にすることで、描画をスキップし、処理速度を劇的に向上させます。
しかし、「エラーが起きた時に `Optimization = False` に戻さない」というミスは、初心者が最も陥りやすい罠です。画面が真っ白なまま、操作を受け付けないCorelDRAWになってしまいます。必ず `ErrorHandler` 内で解除する癖をつけてください。
② `BeginCommandGroup` による「論理的ロールバック」
このメソッドは、単なる高速化ツールではありません。
`doc.BeginCommandGroup “名前”` を呼び出した瞬間から、それ以降の `AddPages` や `CreateLayer` は、すべて「”名前” という一つのアクション」として記録されます。
もし途中でエラーが起きた場合、ユーザーが `Ctrl + Z` を一回押すだけで、「中途半端に増えたページやレイヤー」をすべて一撃で消し去ることができます。 これが、VBAにおける最も実用的で堅牢なロールバック戦略です。
③ `Exit Sub` の配置
`ErrorHandler` を書く際、必ず `Exit Sub` を `ErrorHandler:` の直前に置いてください。これを忘れると、成功した時にもエラーメッセージが表示されるという、非常に紛らわしいバグを生みます。
4. さらに高みを目指すあなたへ
今回の手法は「Undo（やり直し）」を利用したロールバックですが、もし「ファイル自体を汚したくない」という極めて厳格な要件がある場合は、以下のようなアプローチも検討してください。
1. 一時ファイル方式:
作業前に `doc.SaveAs` でバックアップを作成し、エラーが起きたらバックアップを読み込み直す。
2. メモリ内シミュレーション:
CorelDRAWのオブジェクトを直接触る前に、配列やコレクション上で「どのような変更を行うか」の計算をすべて終わらせ、最後に一気に適用する。
まとめ
「動けばいい」という段階から、「失敗しても安全である」という段階へ。
この意識の差が、ツールを使うユーザーからの信頼を分ける決定的な境界線になります。
1. `Optimization` を使い、必ずエラー時にも解除する。
2. `BeginCommandGroup` で一連の操作をグループ化する。
3. `ErrorHandler` で状態をクリーンアップする。
この3点を守るだけで、あなたの作成する自動化ツールは、プロの現場でも通用する「堅牢な製品」へと進化します。
さあ、次はこの知識を使って、もっと複雑で、もっと巨大なドキュメントの操作に挑戦してみましょう。応援していますよ！
