属性テーブル ウィンドウへのアクセス

Private Sub InitEvents()
    Dim pAppWindows As IApplicationWindows
    Dim pWindowSet As ISet
    Dim pTableWindow As ITableWindow
    Dim pTableControl As ITableControl
    Dim pSelSet As ISelectionSet
    Dim pTableWindow3 As ITableWindow3
    
    Set pTableWindow3 = New TableWindow
    pTableWindow3.FindOpenTableWindows pWindowSet
    Set pAppWindows = Application
    pWindowSet.Reset
    Set pTableWindow = pWindowSet.Next
    
    Do Until pTableWindow Is Nothing
        Set pTableControl = pTableWindow.TableControl
        Set mTableViewEvents = pTableControl
        Set pTableWindow = pWindowSet.Next
    Loop
End Sub