Исходный текст

Option Explicit
Call ShowSearchObjDlg()

'=============================================================================
' Вывести диалог поиска объектов с SysId = "DOCUMENT" в составе корневого объекта "Root"
'=============================================================================
Sub ShowSearchObjDlg()
    Dim SearchObjDlg, Objects
' Инициализация свойств диалога поиска объектов
  Set SearchObjDlg = ThisApplication.Dialogs.SearchObjectDlg

' Указание типа искомых объектов
  SearchObjDlg.ObjectDef = "DOCUMENT"

' Указание родителя, в составе которого будет осуществлён поиск
  SearchObjDlg.RootObject = ThisApplication.Root
  
' Указание дескриптора окна TDMS. При вызове диалога из внутреннего скрипта, 
' является необязательным параметром.
  SearchObjDlg.ParentWindow = ThisApplication.hWnd
  
' Вызов диалога поиcка. 
' Если в диалоге была нажата кнопка "Отмена", то выйти из процедуры
  If SearchObjDlg.Show = False Then Exit Sub
    
' Если в диалоге была нажата кнопка "Ок" и выбраны объекты, то в переменную Objects 
' записать ссылку на выбранные объкты
  Set Objects = SearchObjDlg.Objects
End Sub
'=============================================================================