【テクニカル・上級編】【初心者向け】ページ名に「作成日」を自動付与して、図面管理を効率化する命名規則自動化ツール – Visio VBA解析バイブル

Visio VBA

2026.11.04

ページ命名規則の自動化：単なるリネームを超えた、データ整合性とオブジェクト・ライフサイクルの設計論

ページ命名規則の自動化：単なるリネームを超えた、データ整合性とオブジェクト・ライフサイクルの設計論

エンジニアリングの世界において、「単なるリネーム」などという言葉は存在しない。それは、ドキュメント管理におけるメタデータの確定であり、後続の自動化プロセス（アーカイブ、検索、システム間連携）におけるキー（Key）の定義である。

多くの初学者は、`ActivePage.Name = “Page_” & Date` といった一行のコードで満足する。しかし、我々シニアエンジニアが直面するのは、その先にある「ロケール依存によるソート順の崩壊」「重複による実行時エラー」「COMオブジェクトの参照カウント漏れによるメモリリーク」といった、実務における致命的な不具合である。

本稿では、Visio VBAを用いたページ命名規則の自動化を題材に、プロフェッショナルが実装すべき「堅牢なアーキテクチャ」の真髄を解説する。

1. 命名規則の設計思想：ISO 8601とソート可能性

自動化ツールを設計する際、最初に決めるべきは「文字列操作」ではなく「データ構造」である。

ページ名に日付を付与する場合、`yyyy-mm-dd` や `yyyymmdd` といった ISO 8601 に準拠した形式を選択しなければならない。なぜか？それは、ファイルシステムやデータベースにおける辞書順ソート（Lexicographical Sort）が、そのまま時系列順と一致する必要があるからだ。

`”1-12-2023″`（12月1日）と `”10-12-2023″`（10月12日）が混在する設計は、エンジニアリングにおける敗北を意味する。

2. 実装：堅牢な命名自動化プロシージャ

以下に、単なる日付結合ではなく、エラーハンドリングとオブジェクトの明示的制御を組み込んだ、実戦的なコードを示す。

Option Explicit

' ==============================================================================
' Module: modPageAutomation
' Description: ページ命名規則の自動化およびオブジェクト管理
' Author: Chief Architect
' ==============================================================================

''' <summary>
''' 新規ページを作成し、ISO 8601形式の日付を付与してリネームする。
''' </summary>
Public Sub CreateTimestampedPage()
    Dim visioApp As Visio.Application
    Dim targetPage As Visio.Page
    Dim newName As String
    Dim timestamp As String
    Dim retryCount As Integer
    Const MAX_RETRIES As Integer = 5
    
    ' 1. オブジェクトへの参照取得
    Set visioApp = Visio.Application
    
    ' 2. タイムスタンプの生成 (ISO 8601: YYYYMMDD)
    ' VBAのDate関数はロケールに依存するため、明示的なフォーマット指定は必須
    timestamp = Format(Date, "yyyymmdd")
    
    On Error GoTo ErrorHandler
    
    ' 3. ページの追加
    ' Addメソッドは新しいPageオブジェクトを生成して返す
    Set targetPage = visioApp.ActiveDocument.Pages.Add
    
    ' 4. 命名の衝突回避ロジック (Collision Avoidance)
    ' 同一日に複数ページを作成する場合、末尾に連番を付与する
    retryCount = 0
    Do
        newName = "Doc_" & timestamp & "_" & Format(retryCount, "00")
        
        ' ページ名が既存でないか確認
        If Not IsPageNameExists(visioApp.ActiveDocument, newName) Then
            Exit Do
        End If
        
        retryCount = retryCount + 1
        If retryCount >= MAX_RETRIES Then
            Err.Raise vbObjectError + 513, "modPageAutomation", "命名衝突が解消できません。最大リトライ数を超過しました。"
        End If
    Loop

    ' 5. プロパティの適用
    ' Nameプロパティの変更は、Visio内部のインデックス再構築を伴うため、
    ' ページオブジェクトが有効な状態で実行する必要がある
    targetPage.Name = newName
    
    MsgBox "Page created successfully: " & newName, vbInformation

CleanUp:
    ' 6. メモリ管理：オブジェクトの明示的解放
    ' COMオブジェクトの参照カウントを適切に減らすことは、
    ' 大規模な自動化プロセスにおいてメモリリークを防ぐための鉄則である
    Set targetPage = Nothing
    Set visioApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error: " & Err.Description, vbCritical, "System Error"
    Resume CleanUp
End Sub

''' <summary>
''' 指定した名前のページがドキュメント内に既に存在するかを判定する。
''' </summary>
Private Function IsPageNameExists(doc As Visio.Document, name As String) As Boolean
    Dim pg As Visio.Page
    On Error Resume Next
    ' 名前でページを取得しようと試み、エラーが出るかどうかで判定する低コストな手法
    Set pg = doc.Pages.get_Item(name)
    On Error GoTo 0
    
    IsPageNameExists = Not pg Is Nothing
End Function

3. アーキテクトの深層：技術的考察

3.1 オブジェクトのライフサイクルとCOMの挙動

VBAはCOM（Component Object Model）上で動作している。`Set targetPage = visioApp.ActiveDocument.Pages.Add` と記述した瞬間、メモリ上にはそのページを指す参照が生成される。

ここで重要なのは、`CleanUp` セクションにおける `Set … = Nothing` の記述だ。
「VBAのガベージコレクションが勝手にやってくれる」という考えは、レガシーなエンタープライズ環境においては通用しない。特に、ExcelやC#などの外部アプリケーションからVisioを操作（Automation）する場合、オブジェクトの参照が残っているだけで、Visioのプロセス（`visio.exe`）がバックグラウンドでゾンビ化し、サーバーリソースを食いつぶす原因となる。

3.2 Windows APIによる高精度な時刻取得（発展）

もし、ミリ秒単位での厳密な一意性が求められる、極めて高頻度な自動生成システムであれば、VBA標準の `Date` 関数ではなく、Windows APIの `GetLocalTime` を呼び出すべきである。

' Windows APIの宣言 (64bit環境を想定)
Private Declare PtrSafe Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

これを用いることで、VBAの内部時計の解像度に依存せず、OSレベルの正確なタイムスタンプを設計に組み込むことが可能になる。

3.3 エラーハンドリングの戦略

コード内の `IsPageNameExists` 関数に注目してほしい。私はここで `On Error Resume Next` を局所的に使用している。これは「エラーを無視するため」ではなく、「存在確認という目的のために、例外処理のオーバーヘッドを最小化するため」である。

プロフェッショナルなコードとは、例外を恐れるのではなく、例外が発生することを前提に、システムがどのような状態（State）に陥るかを制御するものである。

結論

「ページ名を日付にする」という一見単純なタスクの裏には、命名規則の標準化、衝突回避アルゴリズム、メモリ管理、そしてロケールへの配慮という、エンジニアリングの基本原則が凝縮されている。

ツールを構築する際は、常に「このコードが10,000回連続で実行されたとき、あるいは10年後のシステムがこのデータを読み取るとき、整合性は保たれているか？」を自問自答せよ。それこそが、シニアエンジニアとしての真の価値である。