'Use this sample when developing macros in Microsoft Office products. 
'This sample also works in macros developed in Micro Focus products.
Public Sub GetAllViewsWithMicrosoftOffice()
    'Declare object variables for the Application and Frame Objects
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
    Dim f As Attachmate_Reflection_Objects.Frame
 
    'Get a handle to the Application object
    Set app = GetObject("Reflection Workspace")
    
    'Get the Frame object
    Set f = app.GetObject("Frame")
    Debug.Print "count=" & f.ViewCount
    
    'Get all the view objects in the frame and print the title of each view
    Dim myView As Attachmate_Reflection_Objects.view
    Dim v As Variant
    For Each v In f.allViews
        Set myView = v
        Debug.Print "View title = " & myView.titleText
    Next
End Sub