Visio自動化の深淵：Documentsコレクションを掌握し、PDF一括エクスポートを極める
Visioのオートメーションにおいて、`Documents`コレクションを単にループさせるだけのコードは、スクリプトキディでも書ける。しかし、我々が扱うのは「現場」だ。数GBに及ぶCAD図面、破損リスクを孕んだ古いVSDファイル、そしてメモリリークを許容しないエンタープライズ環境である。
今日は、初心者向けと銘打ちつつも、背後に「システムの安定性」という重い命題を背負った諸君へ、`Documents`の完全制覇術を授ける。
—
1. なぜ「単純なループ」で事故が起きるのか
多くの開発者は、以下のコードを書いて満足する。
For Each doc In Documents
doc.ExportAsFixedFormat …
Next
これは地雷だ。なぜなら、`Documents`コレクションは、処理中にファイルを開いたり閉じたりすることでインデックスが変動する可能性があるからだ。また、VisioのオブジェクトはCOMの参照カウンタに依存しており、明示的に解放しない限り、アプリケーション終了までメモリ上に残り続ける。
我々アーキテクトが目指すのは、「例外を握りつぶさず、メモリを汚さない」堅牢な実装である。
—
2. 極限のPDF一括変換スクリプト
以下に、実戦投入レベルのコードを示す。ポイントは「参照の保持」「エラーハンドリングの局所化」「ファイルシステムの整合性確保」にある。
Option Explicit
‘ 伝説のアーキテクトが推奨するPDF一括エクスポート
Public Sub ExportAllDocumentsToPdf()
Dim doc As Visio.Document
Dim i As Long
Dim exportPath As String
‘ 1. Documentsコレクションの走査にはForループを使用する
‘ For Eachはコレクションの変更に弱い。インデックス参照が最も安全だ。
For i = Application.Documents.Count To 1 Step -1
Set doc = Application.Documents.Item(i)
‘ 未保存のドキュメントやシステムドキュメントを弾く判断基準
If Not doc.Saved Then
Debug.Print “警告: 未保存のドキュメントをスキップしました: ” & doc.Name
GoTo ContinueLoop
End If
‘ 2. ファイルパスの取得と加工
‘ .vsdxを.pdfに置換する際、文字列操作は堅牢に行う
exportPath = Left(doc.FullName, InStrRev(doc.FullName, “.”)) & “pdf”
On Error Resume Next
‘ 3. PDFエクスポート実行
doc.ExportAsFixedFormat visFixedFormatPDF, exportPath, _
visDocExAllPages, visImageQualityPrint, , , , True
If Err.Number <> 0 Then
Debug.Print “エラー: ” & doc.Name & ” の変換に失敗しました – ” & Err.Description
Err.Clear
End If
On Error GoTo 0
ContinueLoop:
‘ 4. オブジェクトの明示的解放（重要）
Set doc = Nothing
Next i
End Sub
—
3. シニアエンジニアが意識すべき「3つの鉄則」
① オブジェクトのライフサイクル管理
`Set doc = Nothing` はおまじないではない。VisioのCOMオブジェクトは、強力な親オブジェクトに紐付いている。特に大量のファイルを扱う場合、参照を保持し続けるとVisioプロセスが肥大化し、最悪の場合、OSレベルでI/O待ちが発生する。ループの最後には必ず解放せよ。
② Windows APIとの連携による「パスの正当性」
実務では、`FullName` プロパティがUNCパス（`\\server\share\…`）を返す場合、PDFの出力先でトラブルになることがある。必要であれば `GetLongPathName` APIを呼び出し、ショートパス形式をロングパスへ変換する処理を挟むべきだ。パスの深さがMAX_PATH（260文字）を超えそうな場合は、APIによるパス長制御が必須となる。
③ レガシー環境と「保存」のジレンマ
今回のコードでは `doc.Saved` をチェックしている。自動化の現場で最も怖いのは、「変換処理が原因で意図せぬ上書き保存が発生し、元の図面が破壊されること」だ。
PDF変換はあくまで「読み取り」のプロセスであるべきであり、スクリプト内で `doc.Save` を呼ぶような実装は、設計上の敗北であると心得よ。
—
結びに：自動化の真髄
「開いている全ドキュメントを変換する」という単純なタスクの中に、エラーハンドリング、リソース管理、ファイル操作のすべてが詰まっている。
コードをコピペして動かして終わりではない。貴殿が向き合っているそのVisioファイルは、誰かの重要な資産であるはずだ。その堅牢性を担保することこそが、エンジニアのプライドであり、我々が「アーキテクト」と呼ばれる所以である。
このコードをベースに、貴殿の環境に合わせて最適化を施してほしい。もし「巨大なVSDXの変換でメモリが足りない」という事態に陥ったら、その時はまた相談してくれ。その先にある「非同期処理とプロセス分離」の深淵を教えてやろう。
